技巧
[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]
© 版权声明
1.文章版权归作者所有,可以不经允许任意转载。
2.如有侵权请告知,我会第一时间删除。
THE END
请登录后查看评论内容