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

【问题标题】：Copy everything in a worksheet vba复制工作表vba中的所有内容
【发布时间】：2017-03-30 09:46:31
【问题描述】：

' 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 等的值。

【问题讨论】：

使用UsedRange 属性
stackoverflow.com/questions/35712424/…

标签： vba excel

【解决方案1】：

我会这样去：

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

【讨论】：

@Desmond，你通过了吗？