End With without With.无法在列中循环

Question

所以我试图处理一个文件，转到"源"上a列的每个单元格（从第1行到最后一行保存数据），将该值放在"目标"上的单元格C3中，重新计算工作簿并保存文件

我还没有保存文件，因为我一直在循环。有人能帮忙吗？

  Sub test()
            Sheets("Source").Select
            With ActiveSheet
            Set r = Range("Employee #")
            For n = 1 To r.Rows.Count
            r.Cells(n, 1).Select
            Selection.Copy
            End With
                Sheets("Destination").Select
                Range("C3").Select
                ActiveSheet.Paste
                Application.CutCopyMode = False
    Next n

End Sub

7天前开始使用VBA，所以我正在努力做到最好。。

Answer 1

在进一步审查中，您不需要带块的

Sub test()
with Sheets("Source")
    Set r = .Range(.Range("A2"),.Range("A" &.row.count).end(xlup))'Change this to the column you want
end with
For n = 1 To r.Rows.count
    r.Cells(n, 1).copy Sheets("Destination").Range("C3")
    Application.CutCopyMode = False
Next n

End Sub

或者这件事的所有细节。但现在你可以看到，你把循环的每个值都放在一个单元格中。