Question

我需要在excel中创建一个宏，它将为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

<强> UNTESTED

VBA Excel：将单元格从一个工作表复制到另一个工作表，重复范围内的所有单元格

1 个答案: