ExcelVBA | 008-复制数值到另一区域的2种方法

技巧

[mark_b]用于生产的代码，在操作前要进行备份操作。以防误操作把数据丢失！[/mark_b]

动图演示

代码区

Sub 复制单元格区域copy()
    '这是一条简单的复制粘贴,
    '用copy方法会影响剪切板,
    Sheet11.cells.Clear '清空Sheet11表
    Sheet10.Range("a1:f14").CurrentRegion.Copy
    Sheet11.Range("a1").PasteSpecial
End Sub

Sub 复制单元格区域value()
    Sheet11.cells.Clear '清空Sheet11表
    行 = Sheet10.[A1].CurrentRegion.Rows.Count '计算数据区域行数
    列 = Sheet10.[A1].CurrentRegion.Columns.Count '计算数据区域列数
    With Sheet10.[A1].CurrentRegion '配置此句为的是下方代码看着明了简单
        Sheet11.[A3].Resize(行, 列).Value = .Value '使用resize进行赋值
        
    End With
 End Sub

调整指定区域的大小Range.Resize 属性

[mark_a]Range.Resize 属性
调整指定区域的大小。返回 Range 对象，该对象代表调整后的区域。
语法

表达式.Resize(RowSize, ColumnSize)

表达式 一个返回 Range 对象的表达式。[/mark_a]