VBA 复制一行中的三个单元格内容

VBA 复制一行中的三个单元格内容

Sub CopyThreeCellsInARow()
' 将某一行的其中三个单元格复制
' 选定要复制的行
Range('A1').Select ' 将 'A1' 替换为要复制的行的第一个单元格
Range(Selection, Selection.End(xlToRight)).Select ' 选择该行中的所有单元格
' 复制该行的前三个单元格
Range(Selection.Cells(1, 1), Selection.Cells(1, 3)).Copy
' 将剪贴板中的内容粘贴到另一个单元格中
Range('D1').Select ' 将 'D1' 替换为要粘贴到的单元格
ActiveSheet.Paste
End Sub

代码说明:

1. Range('A1').Select：选择要复制的行的第一个单元格。将 'A1' 替换为实际的单元格地址。
2. Range(Selection, Selection.End(xlToRight)).Select：选择该行中的所有单元格。
3. Range(Selection.Cells(1, 1), Selection.Cells(1, 3)).Copy：复制该行的前三个单元格。
4. Range('D1').Select：选择要粘贴到的单元格。将 'D1' 替换为实际的单元格地址。
5. ActiveSheet.Paste：将剪贴板中的内容粘贴到选定的单元格。

使用说明:

1. 将代码复制到 VBA 编辑器中。
2. 修改代码中的单元格地址，以匹配您的需求。
3. 运行代码，即可复制并粘贴选定行的三个单元格内容。