VBA 1004 宏循环执行时出错

Question

有人可以告诉我为什么我会在以下代码中收到 1004 错误吗？

如果不清楚，我会尝试循环所有不是我指定的工作表的工作表，并尝试选择特定范围并将其复制并粘贴到已编译的“定量工作表”

Dim ws As Worksheet
Dim x As Integer 
Dim y As Integer
Dim a As Integer
Dim b As Integer
Set ws = Worksheets("Quant Sheet")
x = 1
y = 3
a = 3
b = 2

Worksheets("Quant Sheet").Activate
For Each ws In ActiveWorkbook.Worksheets
If (ws.Name <> "Quant Sheet") Then

   ws.Range("A3").Select
   Selection.Copy
   Sheets("Quant Sheet").Select
   Cells(y, 1).Select
   ActiveSheet.Paste
   y = y + 1


End If

Next ws

Answer 1

您将 WS 设置为 Worksheets("Quant Sheet")，但随后在循环中使用相同的变量 ws。这可能是导致问题的原因。

试试这个:

Dim ws As Worksheet, mainWS As Worksheet
Dim x As Integer, y As Integer, a As Integer, b As Integer
Set mainWS = Worksheets("Quant Sheet")
x = 1
y = 3
a = 3
b = 2

For Each ws In ActiveWorkbook.Worksheets
If (ws.Name <> "Quant Sheet") Then
   ws.Range("A3").Copy Destination:=mainWS.Cells(y, 1)
   y = y + 1
End If

Next ws

主要是，你想要avoid using .Select/.Activate确保您更直接地处理数据。

编辑:仅供引用，您可以通过不使用诸如 y=y+1 之类的东西而使用偏移量或lastRow 变量来进一步使其更加动态，但那就是个人喜好，因为它会完成同样的事情。 (我还假设 x、a 和 b 变量在宏的其他位置使用...