Excel VBA - Copy/Paste 范围从一个 sheet 到所有进程 sheet

Question

第一次提问，如有遗漏请告知。

我从另一个 SO post 中找到了这段代码。我正在尝试将整个工作表从 "DNU" 复制到每个后续工作表中。我遇到的问题是这将粘贴值，但我希望进行常规粘贴以保留格式和公式。我试过从 "Value" 更改为复制和粘贴，但这最终会出错。任何帮助表示赞赏。谢谢。

代码如下： ~

Dim wsVar As Worksheet

Dim i as Integer
For i = 6 to ThisWorkbook.Worksheets.Count
    ThisWorkbook.Worksheets(i).Range("A1:y200").Value = ThisWorkbook.Worksheets("DNU").Range("A1:Y200").Value
Next i

End Sub

Answer 1

使用Range对象的Copy()方法

Dim wsVar As Worksheet
Dim i as Integer
With ThisWorkbook
    For i = 6 to .Worksheets.Count
        .Worksheets("DNU").Range("A1:Y200").Copy destination:=.Worksheets(i).Range("A1:Y200")
    Next 
End With

Excel VBA - Copy/Paste 范围从一个 sheet 到所有进程 sheet

Excel VBA - Copy/Paste range from one sheet to all proceeding sheets

excel

vba

loops

copy-paste