Question

我有3列数据，第一列是m / dd / yyyy格式的日期，另外两列与问题无关。我想要做的是编写一个命令框或宏的代码，它将复制整个日期范围，直到1996年某一年（A列中的日期按时间顺序从1986年到2017年）。然后我希望将范围中的这部分数据粘贴到工作簿中的另一个工作表中。我该怎么做？

Answer 1

您可以遍历列中的每个项目，而年份少于1996年，以查找最后一行索引，然后选择/复制整个范围。

例如：

Sub sample()
Dim idx As Integer

    idx = 1
    Do While Year(Cells(idx, 1).Value) < 1996
        idx = idx + 1
    Loop

    Range(Cells(1, 1), Cells(idx - 1, 3)).Copy 
    Sheets("name of worksheet").Range("first cell of range you'd like to paste into").PasteSpecial Paste:=xlPasteValues

    Application.CutCopyMode = False
End Sub

将数据复制并粘贴到新工作表中直到某一年[VBA]

1 个答案: