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