结束与没有。 无法循环访问列

因此，我试图在单个文件上工作，转到“源”（从第1行到最后一行保存数据）的列A中的每个单元格，将该值放置在“目标”的单元格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 

开始VBA 7天前，所以我想尽我所能在这里..

Answer 1

在进一步的审查中，你不需要with块

 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 

或所有的事情。 但是现在你可以看到你正在把每一个值都放到一个单元格中。