复制工作表vba中的所有内容 [英] Copy everything in a worksheet vba

问题描述

复制

wb.Sheets（wsSource.Name）.Range（A1：W79）。复制
'粘贴特殊
wbTarget。表（Sheet1）。范围（A1：W79）。PasteSpecial xlValues
wbTarget.Sheets（Sheet1）。Range（A1：W79）。PasteSpecial xlFormats

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

解决方案

我会如下：

 使用wb.Sheets（wsSource.Name）.UsedRange 
 .Copy 
使用wbTarget.Sheets（Sheet1）。范围（.Address）
 .PasteSpecial xlValues 
 .PasteSpecial xlFormats 
结束
结束
  

' 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

This code allows me to copy everything in a range of A1:W79. How can I modify this Range so that it selects everything that contains value in a worksheet. For example, worksheet might contain values from C7:G20 etc.

解决方案

I'd go like follows:

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

这篇关于复制工作表vba中的所有内容的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！