Excel VBAmacros：使用循环将不同的列值从“源”选项卡复制到3个不同的Excel选项卡
我很新的Excel VBAmacros，我有一个循环的问题。 需要一些帮助。 我已经描述了整个过程。
我有一个名为Shipper VP的源Excel选项卡。 它有三个不同的人称为杰森，肯和史蒂夫不同月份的货运价值不同。
我想用循环创build一个Excelmacros。 我通过为每个人logging三个不同的macros来完成整个事情。 但是这些macros中的代码非常长，大部分事情都很常见，我想使用循环，并且不需要手动input任何值就可以使代码高效。
我想用循环，对于n = 1到3; 当n = 1时，
我想创build一个额外的表单，并通过在此情况下复制来自发货人VP选项卡的B4值的人员名称进行重命名。 所以现在创build一个额外的表单，它被命名为JASON。
之后，我想在JASON选项卡中input不同的值。
现在在下面这个重要的步骤中，我想将Shipper VP选项卡中的不同列值复制到Jason选项卡。
将B9：B17的值（从出货单VP选项卡）复制到单元格值D7：D15（进入JASON选项卡）。
将B19：B30（从出货单VP选项卡）的值复制到单元格值D16：D27（进入JASON选项卡）。
将B32：B43的值（从出货单VP选项卡）复制到单元格值D28：D39（进入JASON选项卡）。
将B45：B56的值（从出货单VP选项卡）复制到单元格值D40：D51（进入JASON选项卡）。
将B58：B69的值（从出货单VP选项卡）复制到单元格值D52：D63（进入JASON选项卡）。
之后，再次在JASON选项卡中input大量其他值，并完成一系列计算，并根据两个不同列中的值创build一个图表，标题标题为JASON，图表重命名为Jason。
现在在下一个循环中，n = 2，
我要为第二个叫Ken的人做同样的事情。
我想创build第二个工作表，并通过在此情况下复制来自“发货人VP”选项卡（此值为C4值）的人员的名称进行重命名。 所以现在创build一个额外的表单，它被命名为KEN。
之后，我想在KEN选项卡中input与JASON完全相同的值。
但是现在我想将Shipper VP选项卡中的不同列值复制到KEN选项卡。
将C9：C17的值（从出货单VP选项卡）复制到单元格值D7：D15（进入KEN选项卡）。
将C19：C30（从“出货单VP”选项卡）的值复制到单元格值D16：D27（进入KEN选项卡）。
将C32：C43的值（从出货单VP选项卡）复制到单元格值D28：D39（进入KEN选项卡）。
将C45：C56的值（从出货单VP选项卡）复制到单元格值D40：D51（进入KEN选项卡）。
将C58：C69（从出货单VP选项卡）复制到单元格值D52：D63（进入KEN选项卡）。
之后，在KEN选项卡中再次input大量其他新值，并根据两个不同列中的值完成一系列计算，并使用标题标题KEN创build图表，并将图表更名为Ken。 （这个部分和JASON之前的一样）。
现在在下一个循环中，n = 3，我想要为第三个人称为史蒂夫同样的事情（这次所有的价值将取自托运人VP选项卡的D列）。
我想完整地描述整个过程。 任何帮助循环代码将非常感激。 基本上，主要问题是将Shipper VP中不同列的值复制到各个选项卡，然后在循环中递增。 计算可以完成。
- 制作3个标签，每个VP一个。
- 无论你想要的graphics和一切设置每个选项卡。 只要记得引用发货人VP选项卡（即使用
=ShipperVP!A1），不要复制任何这些值。
其实，就是这样。 没有代码需要，你只需要做一次！
更进一步，您可能还需要制作3个单独的文件，以便您可以向每个人发送自己的选项卡：
- 写一个macros来打开第一个VP选项卡。
- 全选
- 复制
- 粘贴值（这删除了引用）
- 将选项卡复制为新的工作簿
- 用一个唯一的名称保存新的工作簿
- 重复下一个VP。
为了节省重复的代码，您可以将步骤1-6以VP名称作为参数放入函数中。