Question

' 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范围内的所有内容。如何修改此范围，以便它选择工作表中包含值的所有内容。例如，工作表可能包含来自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

复制工作表vba中的所有内容

1 个答案: