1

在今天早上之前从未使用过 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
4

0 回答 0