VBA 使用 CELL 方法复制单元格内容 - 示例代码

VBA 使用 CELL 方法复制单元格内容 - 示例代码

本文将介绍如何使用 VBA 的 CELL 方法将某一行的三个单元格复制到另一行。以下是用 VBA 的 CELL 方法将某一行的其中三个单元格复制的示例代码：

Sub CopyCells()
    '定义工作表和行号
    Dim ws As Worksheet
    Dim rowNumber As Long
    
    '设置工作表和行号
    Set ws = ThisWorkbook.Worksheets('Sheet1')
    rowNumber = 2
    
    '复制单元格
    ws.Cells(rowNumber, 1).Copy Destination:=ws.Cells(rowNumber + 1, 1)
    ws.Cells(rowNumber, 3).Copy Destination:=ws.Cells(rowNumber + 1, 2)
    ws.Cells(rowNumber, 5).Copy Destination:=ws.Cells(rowNumber + 1, 3)
End Sub

上述代码将第二行的第1列、第3列和第5列单元格复制到第三行的第1列、第2列和第3列单元格中。您可以根据需要更改工作表名称和行号。