Question

所以我尝试处理单个文件，转到A列中的每个单元格＆＃34; Source＆＃34; （从第1行到最后一行保存数据），将该值放在单元格C3上＆＃34; Destination＆＃34;，重新计算工作簿并保存文件

我还没有保存文件，因为我陷入了循环。有人可以帮忙吗？

  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

在进一步审核中，您不需要使用with block

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

或所有关于那件事的。但是现在您可以看到您将所有循环的值放入一个单元格中。

结束与没有。无法遍历列

1 个答案: