vba - 我如何将特定列从一行复制到另一个工作表

Question

基本上我正在编写一份报告，并且可以将每一行以正确的顺序复制到另一张纸上，但我不需要每一行的每一列。我只需要每行 42 列中的 3 列来转移到新工作表。到目前为止，这是我的代码：

For k = 2 To coor2(2)
 If Cells(k, 5).Value > Cells(k, 16).Value Then
 Cells(k, 5).EntireRow.Copy Sheets("test").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
 End If
Next k

标签： vbaexcel

Answer 1

For k = 2 To coor2(2)
 If Cells(k, 5).Value > Cells(k, 16).Value Then 
     With Sheets("test").Range("A" & Rows.Count).End(xlUp)
         Cells(k, 5).Copy .Offset(1, 0)
         Cells(k, 7).Copy .Offset(1, 1)
         Cells(k, 9).Copy .Offset(1, 2)
     End With
 End If
Next k