vba - 将excel行从一张表复制到另一张表

Question

我正在将数据从一张纸复制到另一张纸，从源范围(Q5:AIxxx)到目标范围(C6:Uxxx)

我的 VBA 代码从一个单元格开始并循环到列的末尾以完成复制该列的数据:

Set s = Worksheets("Source")
Set d = Worksheets("Destination")

Dim i As Integer, j As Integer

j = 6
For i = 5 To 1500
   If s.Cells(i, 1).Value = "a" Or s.Cells(i, 1).Value = "b" Then
      d.Cells(j, 3).Value = s.Cells(i, 17).Value       
      j = j + 1
   End If
Next i

我有 > 20 列要移动，有没有办法一次复制该行？像这样的东西:

d.Cells(j, 3:21).Value = s.Cells(i, 17:35).Value     

目前，我必须指定每一列:

 d.Cells(j, 3).Value = s.Cells(i, 17).Value    'column 1
 d.Cells(j, 4).Value = s.Cells(i, 18).Value    'column 2
 d.Cells(j, 5).Value = s.Cells(i, 19).Value    'column 3
 etc

Answer 1

你可以这样做

    d.range(d.cells(j,3), d.cells(j,21)).copy
 s.range(s.cells(i,17), s.cells(i,35)).pastespecial xlvalues