本文介绍了如何通过录制宏并修改VBA代码，实现在Excel中高效隔行复制2，3，4列内容。首先手动操作录制宏，然后将宏代码修改为动态选取当前选中区域，并进行拷贝。最终代码实现选择任意单元格后，能自动将相邻3个单元格内容复制到下一行。此外，还详细解释了VBA中Range对象的使用和Offset方法，以及如何查找和理解对象的定义。
现在有个需求，要把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。
(完)
9219
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
