我想在工作表中做一个复制粘贴循环,然后将同一个循环应用于同一工作簿中的所有其他工作表。VBA:为每个循环嵌套for循环
但是,问题是在第一个复制粘贴循环在一个工作表上完成后,代码不会移动到下一个工作表,该循环只是在同一个工作表中重复执行。
For循环:for-each循环简单的复制粘贴
:遍历工作表
这是代码:
Sub Code()
Dim sheet As Worksheet
Dim nr As Integer
For Each sheet In Worksheets
For nr = 14 To 309
Range("C" & nr).Copy
Range("C3").PasteSpecial xlPasteValues
Range("D" & nr).Copy
Range("C4").PasteSpecial xlPasteValues
ActiveSheet.Calculate
Range("F2").Copy
Range("E" & nr).PasteSpecial xlPasteValues
Range("I2").Copy
Range("F" & nr).PasteSpecial xlPasteValues
Next nr
Next
End Sub
谢谢您的帮助!
请在gro ing声之前说出您的问题,瑕疵应该在帖子尾部出现 只要。 – awiebe