excel - 使用 Excel VBA 循环将数据从一张表复制到另一张表（在同一工作簿中）

Question

我正在尝试将数据从一张表（SheetA）复制到另一张表（sheetB）。我已经设置了一个循环来复制数据并成功粘贴。但是，它将数据粘贴到 SheetB 中它保存在 SheetA 上的任何行中（即，如果数据来自第 12 行，它将被粘贴到第 12 行 - 我希望它被粘贴到下一个可用行中以避免任何空白行）。

代码当前看起来像这样 - 我尝试为目的地添加一个计数变量（w），但这不起作用（非常业余），您可能会说：

w = 1
x = 1

RawData.Activate
    Do While Cells(x, 4).Value <> ""
            If Cells(x, 4).Value = "Bracknell" Then
            RawData.Range(Cells(x, 1), Cells(x, 10)).Copy Destination:=Bracknell.Range("A" & w)
        End If

x = x + 1
w = w + 1

Loop

伙计们提前干杯！

标签： excelvba