在今天早上之前从未使用过 VBA(学校的 Java 经验),我需要一些 VBA 来查找列中的日期,如果找到我设置的正确日期,然后将一个单元格向右移动,复制该值(一个数字),向左移动(到找到日期的原始单元格),然后再次向下移动,以便它可以继续向下移动列,然后根据日期将这些值相加并将该值插入到不同的工作簿中。是的,我已经进行了研究,并将继续这样做,但我越来越生气了。希望这是有道理的。
我的代码运行但我在表 1 中得到 0(表 2 中的数据是正确的)。
另外,如何更改代码以使其在运行前不选择 Sheet 2 的情况下运行?(如果不是,则会发生运行时错误)。
Sub Test()
Dim x As Double
Worksheets("Sheet2").Range("B1").Select
Do Until Selection.Value = ""
If Selection.Value = "3/1/2012" Then
Selection.Offset(0, 1).Select
x = x + ActiveCell.Value
Selection.Offset(0, -1).Select
Else
Selection.Offset(1, 0).Select
End If
Loop
Worksheets("Sheet1").Range("A20").Value = x
End Sub