根据日期添加小时

Question

它创建一个

  

运行时错误“ 2147417848（80010108）”

我对使用VBA真的很陌生。目前，我正在尝试根据B列中的相同日期在X列中添加工作时间，并将其导出到另一张纸上。

当我输入“ for a <105”但不能做到大于105时，它以某种方式起作用。两列的数据范围都在200到500之间。

sub test()
    dim a as string
    dim b as string
    dim e as string
    dim f as string
    '
    '
    b = 12
    a = 12
    Do While a < 110
        '
        If Cells(a, 2) = Cells(a + 1, 2) Then
            Cells(b, 27) = Cells(a, 24) + Cells(b, 27)
            a = a + 1
        End If
        '
        Do While Cells(a, 2) = Cells(a - 1, 2)
            Cells(b, 27) = Cells(a, 24) + Cells(b, 27)
            a = a + 1
            '
            If Cells(a, 2) <> Cells(a - 1, 2) Then
                b = a + 1 - 1
            End If
            '
        Loop
    Loop
    '
    '
    '
    f = 5
    'e follows value of a
    For e = 12 To 110
        '
        If Cells(e, 27) <> "" Then
            Sheets("Result").Cells(f, 6).Value = Sheets("Data").Cells(e, 27).Value / 60
            Sheets("Result").Cells(f, 5).Value = Sheets("Data").Cells(e, 2).Value
            f = f + 1
        End If
        '
    Next e
    '
    '
End Sub

先谢谢您。 ：D