在 main sheet 中有 800 个名字（A1:A800）。每个单元格应按顺序转到不同的 sheet。第一个单元格到第一个 sheet 等

Question

我的主 sheet 中有将近 800 个单元格 (A1:A800)。每个单元格应复制到不同的 sheet 与订单。主单元格中的第一个单元格 sheet('main'!A1) 复制到第一个 sheet('1'!A1) ，第二个单元格('main'!A2) 复制到第二个 sheet('2'!A1) etc.I 已经创建了 800 个 sheet。我不太了解VBA。我找不到适合我的问题的任何代码。感谢您的帮助！

Answer 1

如果我看到你正在尝试做什么，应该不会太难。
您可以将 for 循环硬编码为 800。

for i = 2 to 800
    Range("A"&i).Copy Destination:=Sheets(i).Range("A" & i)
next

This is similar albeit a bit more involved

在 main sheet 中有 800 个名字（A1:A800）。每个单元格应按顺序转到不同的 sheet。第一个单元格到第一个 sheet 等

In main sheet there is 800 names(A1:A800). Each cell should go to different sheet with an order. First cell to first sheet etc

excel

vba

copy

paste

cells