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