循环遍历列并复制并粘贴单元格A到B.

Question

我正在研究一个简单的代码，但我无法破解它。我希望宏运行并获取值（2），并将单元格A到C复制并粘贴到工作表2中。下面的代码会复制单元格A-B和粘贴。我在循环中失败了。我希望它从第1行循环到最后一行。请。

Sub Tier_2()
    With Sheets("Sheet1")
        .Range(.Cells(1, 1), .Cells(3, 3)).Copy Sheets("Sheet2").Cells(1, 1)
    End With
End Sub

Answer 1

这不适合您的具体情况，但这个概念正是您所寻找的。你应该能够用我向你展示的东西做一些研究并弄明白。

lastRow = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row   'gets last row of Source sheet
For x = 1 to lastRow
    Sheets("Sheet2").Cells(x, 1) = Sheets("Sheet1").Cells(x, 1)    'copy data from Sheet1 to Sheet2 row x
Next x    'loop and add one to x

您可以在源表或目标表中使用行号或列号的变量。您可以在第一个循环中插入另一个循环。我不确定你在寻找什么，但你的问题似乎根本就没有。

如果这并没有让你朝着正确的方向前进，那么试试＆＃34; Do While Loop＆＃34;在搜索中。

编辑：更新公式以更好地反映想法。