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

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` 

我们的目标是让宏来复制工作表中“全资格赛”细胞到工作表“测试”打印出来，然后移动到下一个单元格下方，并与值重复的所有单元格了细胞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