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

评论495字数 605阅读2分1秒阅读模式

技巧

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

动图演示

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

代码区

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 属性

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

表达式.Resize(RowSize, ColumnSize)

表达式 一个返回 Range 对象的表达式。

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

部分文章来源于网络  如有侵权请告知本人立即删除!

站长邮箱447800330@qq.com

匿名

发表评论

匿名网友 填写信息

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen:

确定