将单元格从一张纸复制到另一张纸，对范围内的所有单元格重复

Question

我需要为 A2 到 A46 范围内包含值的单元格重复以下代码。

Worksheets("Full Qual").Range("A2").Copy _
  Destination:=Worksheets("Test").Range("D4")
ActiveWorkbook.PrintOut From:=2, To:=4, Copies:=1, Collate:=True, _
    IgnorePrintAreas:=False

目标是将单元格从工作表“Full Qual”复制到工作表“Test”，打印它，然后移动到下面的下一个单元格并重复所有单元格的值直到单元格 A46。

Answer 1

考虑：

Dim N As Long, v As Range
For N = 2 To 46
    Set v = Worksheets("Full Qual").Range("A" & N)
    If v.Value <> "" Then
        Worksheets("Full Qual").Range("A" & N).Copy _
          Destination:=Worksheets("Test").Range("D4")
        ActiveWorkbook.PrintOut From:=2, to:=4, Copies:=1, Collate:=True, _
            IgnorePrintAreas:=False
    End If
Next N

未经测试