如何更新 n 行的日期和时间？

Question

我目前正在处理一个 16 000 行的 excel 文件

• B 列是我要更​​新的日期
• H 列是开始日期
• 第一列是结束日期
• K 列是日期需要更新的次数（更新 n 行）

想法是在 B 列中显示从开始日期到结束日期的所有日期（每列一个日期）。

您会在下面找到我当前的代码。我是初学者，它可能包含很多错误。能否请您帮帮我，我不断收到小错误：91、1004、5...

Sub Dates()
    Dim i As Long
    Dim k As Long
    Dim MyDate As Long
    Dim EndDate As Long
    Dim EndRowA As Long
    Dim EndRowB As Long
    Dim EndRowH As Long
    Dim StartDate As Long
    Dim ws As Worksheet
    Set ws = Worksheets("Sheet1")

    StartDate = ws.Cells(ws.Rows.Count, "H").Value
    MyDate = ws.Cells(ws.Rows.Count, "B").Value
    EndDate = ws.Cells(ws.Rows.Count, "I").Value
    EndRowA = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    EndRowB = ws.Cells(ws.Rows.Count, 2).End(xlUp).Row
    EndRowH = ws.Cells(ws.Rows.Count, 8).End(xlUp).Row

    Do While (i <= EndRowH And i <= EndRowA And i <= EndRowB)
        If ws.Cells(i, "H").Value = ws.Cells(i, "I").Value Then
            GoTo Continue
        ElseIf ws.Cells(i, "H").Value = ws.Cells(i, "I").Value Then
            For k = 1 To ws.Cells(i, k).Value
                ws.Cells(i + 1, "B").Select
                ws.Cells(i, "B").Value = ws.Cells(i - 1, "H").Value + 1
            Exit For
Continue:
        Next k
    End If
Loop
End Sub

电子表格中的主要列应如下所示：

Type    Date     Start date   End Date   #

A   01/01/2018  01/01/2018  01/10/2018  10
A   01/02/2018  01/01/2018  01/10/2018  10
A   01/03/2018  01/01/2018  01/10/2018  10
A   01/04/2018  01/01/2018  01/10/2018  10
A   01/05/2018  01/01/2018  01/10/2018  10
A   01/06/2018  01/01/2018  01/10/2018  10
A   01/07/2018  01/01/2018  01/10/2018  10
A   01/08/2018  01/01/2018  01/10/2018  10
A   01/09/2018  01/01/2018  01/10/2018  10  
A   01/10/2018  01/01/2018  01/10/2018  10
B   02/06/2018  02/06/2018  02/10/2018  5
B   02/07/2018  02/06/2018  02/10/2018  5
B   02/08/2018  02/06/2018  02/10/2018  5
B   02/09/2018  02/06/2018  02/10/2018  5
B   02/10/2018  02/06/2018  02/10/2018  5

提前谢谢你

Answer 1

只要试试这段代码，你就会看到你正在犯的错误：

Sub Dates()
    Dim ws As Worksheet
    Dim i As Long
    Dim k As Long
    StartDate = ws.Cells(ws.Rows.Count, "H").Value
    Date = ws.Cells(ws.Rows.Count, "B").Value
    EndDate = ws.Cells(ws.Rows.Count, "I").Value
    EndRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    MsgBox ws.Cells(ws.Rows.Count, "H").Address
    MsgBox ws.Cells(ws.Rows.Count, "B").Address

End Sub

我猜你在“H”列的最后一行没有任何价值。这是$H$1048576。 一般来说，通过EndRow 和End(xlUp) 传递的方式是一个不错的选择，请尝试在任何地方模仿它。

---

一些改进思路：

• 在模块顶部写Option Explicit。它会强制您声明变量并在执行前进行快速检查。
• 您应该将ws 分配给工作表。最简单的方法是Set ws = Worksheets("NameOfTheWorksheet")
• 您正在执行的循环应该以预期的方式结束。例如，对于每个Do While，都应该写一个Loop。 "Do While" "Loop" and "While" "Wend" Loop. What's the difference?
• VBA 中的GoTo 语句最好只用在句子On Error GoTo ErrHandler 中。一般来说，如果您从代码中删除GoTo Continue，它仍然会避免第二个循环。