將單元格從一張紙復制到另一張紙，對范圍內的所有單元格重復

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

未經測試