本技巧的目的:掌握仅仅复制数值到另一单元格区域中的方法。 数据源:需要将以下表格,以数值形式复制到另一工作表中: 提高了代码的辨识度,再也不用一行行的排版,方便快捷。 装了VBA代码助手(公众号主页回复 代码助手)后 直接输入 复制 也可以搜索代码块插入
Sheet6.Cells.Clear '清空 sheet6 工作表的内容 Sheet1.Range("A1").CurrentRegion.Copy 'sheet1 工作表 A1 开始的连续区域 复制 Sheets("Sheet6").Range("A1").PasteSpecial Paste:=xlPasteValues '选择性粘贴到:sheet6 工作表 A1 开始的位置 xlPasteValues: 仅复制数值 Application.CutCopyMode = False ★★★ 注意 缺点:会对系统造成干扰,覆盖原剪切版里的内容。 只要源区域大小和目标区域大小一致, 就可以直接以 .Value 方法赋值。 为了保证目标区域与源区域一致,一般使用 Resize 方法。 Sheet6.Cells.Clear '清空原 sheet6 工作表数据 With Sheet1.Range("A1").CurrentRegion '位置语句开始 '位置语句开始,结束中间的代码, 只需在引用的位置前面加上 . 即可 行 = .Rows.Count '该区域最大的行数 列 = .Columns.Count '该区域最大的列数 Sheet6.Range("A1").Resize(行, 列) = .Value '目标区域: 按源数据的最大行数,列数 扩展: 保证区域一致性 ★★★ 注意 优点:不会对系统造成干扰,即不会覆盖原剪切版里的内容。与选择性粘贴结果一样。 |
|
来自: 昵称72339616 > 《待分类》