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列单元格中。您可以根据需要更改工作表名称和行号