复制并粘贴VBA excel

这是我的宏， 本宏的目的是将范围“Ax:Jx”从板材测试1复制到板材测试2中的范围“P5:P14”

---

注意：我想运行1000个场景来查看对某些结果的影响。所以，第一步，我为场景创建循环宏，正如您在上面看到的

---

我被困在“表”（“Test1”）。范围（单元格（I，1）和单元格（I，10））。选择”。如何定义此范围，使其可以循环为x循环。

无需选择或复制/粘贴：

Sub Test()

Dim x As Integer

For x = 1 To 1000

Sheets("Test1").Range(Cells(x, 1), Cells(x, 10)).Select
Sheets("Test2").Cells(5, 16).PasteSpecial Paste:=xlValues, Transpose:=True

Next

End Sub

---

无需选择或复制/粘贴：

Sub Test()

Dim x As Integer

For x = 1 To 1000

Sheets("Test1").Range(Cells(x, 1), Cells(x, 10)).Select
Sheets("Test2").Cells(5, 16).PasteSpecial Paste:=xlValues, Transpose:=True

Next

End Sub

---

---

我相信这里缺少很多东西。您正在将变量范围复制到固定范围。选择一个范围并复制到另一个范围不需要循环。所以我看到了一些矛盾。这可能就是你遇到问题的原因。你能更清楚地定义你要解决的问题吗？我想运行1000个场景，看看对一些结果的影响。所以，第一步，我为场景创建循环宏，正如您在上面看到的。所以我需要在那里循环。这就是我被困在这里的原因。我不明白你的问题。你想要x循环，你有x在上面。你粘贴它有困难吗？还是你改变了你的问题？所以我还是看到了几个问题。第一，假设您循环1000次，并在每个循环上选择不同的数据。然后将其粘贴到同一目标中。每次都将覆盖，只有最后一次粘贴可见。第二，你正在选择，但从不复制，所以当你去粘贴，它将是任何在你的剪贴板开始。第三，你的目的地和你的来源地不一样。要获取复制宏代码，只需录制一个新宏，选择、复制，然后粘贴，就可以获取该代码。让我们先来看看。@MutjayLee我在选择范围“Ax:Jx”时遇到问题，因为我想选择范围“A1:J1”来表示x=1，选择范围“A2:J2”来表示x=2，等等这段代码不起作用：“Sheets”（“Test1”）。范围（单元格（x，1），单元格（x，10））。选择“我相信这里缺少很多内容。”。您正在将变量范围复制到固定范围。选择一个范围并复制到另一个范围不需要循环。所以我看到了一些矛盾。这可能就是你遇到问题的原因。你能更清楚地定义你要解决的问题吗？我想运行1000个场景，看看对一些结果的影响。所以，第一步，我为场景创建循环宏，正如您在上面看到的。所以我需要在那里循环。这就是我被困在这里的原因。我不明白你的问题。你想要x循环，你有x在上面。你粘贴它有困难吗？还是你改变了你的问题？所以我还是看到了几个问题。第一，假设您循环1000次，并在每个循环上选择不同的数据。然后将其粘贴到同一目标中。每次都将覆盖，只有最后一次粘贴可见。第二，你正在选择，但从不复制，所以当你去粘贴，它将是任何在你的剪贴板开始。第三，你的目的地和你的来源地不一样。要获取复制宏代码，只需录制一个新宏，选择、复制，然后粘贴，就可以获取该代码。让我们先来看看。@MutjayLee我在选择范围“Ax:Jx”时遇到问题，因为我想选择范围“A1:J1”表示x=1，范围“A2:J2”表示x=2，依此类推，这段代码不起作用：“Sheets”（“Test1”）。范围（单元格（x，1），单元格（x，10））。选择“谢谢，我将尝试这段代码。”。顺便问一下，你能告诉我，为什么我的代码不能工作

Sheets（“Test1”）。范围（单元格（x，1），单元格（x，10））。选择
1。您只需选择，而不是实际复制任何内容。2. <代码>单元格（x，1）
等默认情况下将引用活动工作表，因此如果这不是“Test1”，那么您将得到臭名昭著的1004错误。哦，您是对的，谢谢您的帮助。如果我在那里使用
copy
代码，那应该没问题吧？你可以使用
copy
，但没有理由，除非你也想复制格式。谢谢，我会尝试这段代码。顺便问一下，你能告诉我，为什么我的代码不能工作
Sheets（“Test1”）。范围（单元格（x，1），单元格（x，10））。选择
1。您只需选择，而不是实际复制任何内容。2. <代码>单元格（x，1）
等默认情况下将引用活动工作表，因此如果这不是“Test1”，那么您将得到臭名昭著的1004错误。哦，您是对的，谢谢您的帮助。如果我在那里使用
copy
代码，那应该没问题吧？你可以使用
copy
，但没有理由，除非你也想复制格式。