Question

我有一张来自K3-K的床单？我的价值是06：00：00-20：00：00。我想在N3中粘贴整个列，但只是为了07:00:00（前8个字符并添加一小时）。我还想在列O3中列出结束时间（21:00:00）的整列，其中还包括添加一小时。

有什么建议吗？

Answer 1

我认为你已经超过了一半了。下面会完成吗？

Sub TimeAdd()

    Dim TmRange As Range
    Dim StartTm As Range
    Dim EndTm As Range
    Dim i As Integer

    Set TmRange = Worksheets("IMPORT_ORDERS").Range(Range("K3"), Range("K3").End(xlDown))
    Set StartTm = Worksheets("IMPORT_ORDERS").Range("N3")
    Set EndTm = Worksheets("IMPORT_ORDERS").Range("O3")

    For i = 1 To TmRange.Count
       StartTm.Offset(i - 1).Value = Left(TmRange(i, 1).Value, 8) + TimeValue("1:00:00")
       EndTm.Offset(i - 1).Value = Right(TmRange(i, 1).Value, 8) + TimeValue("1:00:00")
    Next i

End Sub

VBA：将整个列修剪为左和右。为每个值添加小时

1 个答案: