将所有内容复制到工作表vba中

' Copy wb.Sheets(wsSource.Name).Range("A1:W79").Copy ' Paste Special wbTarget.Sheets("Sheet1").Range("A1:W79").PasteSpecial xlValues wbTarget.Sheets("Sheet1").Range("A1:W79").PasteSpecial xlFormats 

这段代码允许我复制A1：W79范围内的所有内容。 我如何修改这个范围，以便它select工作表中包含值的所有东西。 例如，工作表可能包含来自C7：G20等的值

Answer 1

我会去如下：

 With wb.Sheets(wsSource.Name).UsedRange .Copy With wbTarget.Sheets("Sheet1").Range(.Address) .PasteSpecial xlValues .PasteSpecial xlFormats End With End With