我觉得这太简单了，无法粘贴，但是我的工作簿大约有100张纸，因此我需要将范围从一张纸（Sheet2范围a1：H200）复制到Sheet5 AF1：AM200，然后再复制每张纸（Sheet5）通过Sheet100或更多）。我尝试创建一个循环，然后将原始范围复制并粘贴到每张纸上，但是没有用。我觉得这是我最近得到的
Sub CopyPasteLoop()
Dim wsVar As Worksheet
For Each wsVar In ThisWorkbook.Sheets
With wsVar
ThisWorkbook.Worksheets("Sheet2").Range("A1:H200").Value = ThisWorkbook.Worksheets("Sheet5").Range("AF1").Value
End With
Next wsVar
End Sub
我觉得它应该更简单，但是我无法使其工作。谢谢！
差不多好了。试试这个：
Sub CopyPasteLoop()
Dim wsVar As Worksheet
Dim i as Integer
For i = 5 to ThisWorkbook.Worksheets.Count
ThisWorkbook.Worksheets(i).Range("AF1:AM200").Value = ThisWorkbook.Worksheets("Sheet2").Range("A1:H200").Value
Next i
End Sub
为了获得更好的性能，请使用以下命令：
Dim vRange as Variant
vRange = ThisWorkbook.Worksheets(2).range("A1:H200")
Dim i as Integer
For i = 5 to ThisWorkbook.Worksheets.Count
ThisWorkbook.Worksheets(i).Range("AF1:AM200").Value = vRange
Next i
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句