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

2021年11月22日 21:02:33评论495字数 605阅读2分1秒阅读模式

技巧

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

动图演示

代码区

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