现在有个需求,要把2,3,4列内容隔行拷贝:
拷贝完效果:
如果行数较少,那手动Ctrl+C/V即可,但如果很多行的话,就应该想办法减少重复工作,提高效率,叫做磨刀不误砍柴工。
所以,先把手动操作录制一个宏,在此基础上再使用VBA编程修改一下。
因为要在多个Workbook中使用,所以我们保存在Personal Macro Workbook中。这个文件平时是隐藏了,专门用来保存全局的宏,所以要解除隐藏一下:
可以在宏菜单中选择Edit:
然后就可以在VBE中查看宏的代码,录制的宏的代码如下:
Sub CopyLine()
'
' CopyLine Macro
' Copy the current content to the next row.
'
' Keyboard Shortcut: Ctrl+M
'
Range("C4:E4").Select
Selection.Copy
Range("C5").Select
ActiveSheet.Paste
End Sub
我们看到,这个操作是固定位置的,我们将位置改成当前选中的位置,再指定合适的大小,就能完成自动拷贝。
改完的代码如下:
Sub CopyLine()
'
' CopyLine Macro
' Copy the current content to the next row.
'
' Keyboard Shortcut: Ctrl+M
'
Range(Selection, Selection.Offset(0, 2)).Copy
Range(Selection.Offset(1, 0), Selection.Offset(1, 2)).Select
ActiveSheet.Paste
End Sub
这样,选择某个单元,然后运行这个宏,就会把连着的3个单元格内容,拷贝到下一行。
这里内容的长度是写死的,固定拷贝3个单元格内容。
参考内容:
在VBE中,菜单中选择Help -> Microsoft Visual Basic For Application Help,或者直接按下F1,则会访问微软官方帮助文档:
Develop solutions and customize Excel | Microsoft Docs
依次选择“Excel VBA reference” -> "Object model reference" -> "Range object"。
然后就可以查看Range对象的方法和属性,还可以点开“Range and Cells properties of the Worksheet object”,查看Range的构造方法。
点击Worksheet object的Range属性:Worksheet.Range property (Excel) | Microsoft Docs
查看Range对象的语法如下:
expression.Range (Cell1, Cell2)
expression这个表达式是一个表示Worksheet对象的变量。
通常情况下,Cell1和Cell2是两个最小单元格,分别代表Range的左上角和右下角,上面的例子使用的是Selection来作为参数。
在代码中,右键代码中的变量,可以查看某个object的定义:
提示对象被隐藏:
所以要unhidden一下:
这时就有定义了:
我们看到是Excel.Global的成员,实际就是Excel.Application的成员。
找到这个对象的引用,也可以在任意处点击右键,直接打开对象浏览器,搜索Selection,找到包含这个Selection对象的库:
我们看到有5个Selection对象,但前面的库是不同的,我们上面代码使用的其中一个库的对象。
使用不库的对象时,其引用方式不同,可以加上完整的名字,可以认为术语不同的命名空间,比如上面代码的完整Selection的引用是:
Range(Excel.Application.Selection, Excel.Application.Selection.Offset(0, 2)).Select
这时右键查看这个对象的帮助信息:
打开的网页:
我们操作中的Selection是一个Range对象,所以可以调用Offset方法来构造另外的Range Object。
(完)