loops - Excel宏循环遍历行并复制到另一张工作表

Question

我是 VBA 新手，并试图在 Excel 中实现这一点:

我有一张 sheet1 ，其中有带有值的行。我创建了一个按钮，它执行并将第一行数据复制到另一个工作表(Sheet2)，复制到一些预定义的单元格中(即单元格 A1 中的值进入例如 B3)。然后我要把它保存成pdf。

现在我希望我的代码更加动态，并对 Sheet1 中的每一行执行此操作。因此，首先将 A1-D1 中的所有值复制到工作表 2，创建 pdf，然后将下一行 (A2-D2) 复制到工作表 2，创建 pdf 等等。

我怎样才能做到这一点？

我的代码适用于一行:

Private Sub CommandButton1_Click()

 'Get name
   Worksheets("Sheet2").Range("B5").Value = Worksheets("Sheet1").Range("V2").Value &     " " & Worksheets("Sheet1").Range("W2").Value

 'Get adress
 Worksheets("Sheet2").Range("B6").Value = Worksheets("Sheet1").Range("AB2").Value

 'Create pdf for this row
 RDB_Worksheet_Or_Worksheets_To_PDF ()


End Sub 

Answer 1

您需要一个循环来遍历 V 列中的所有单元格。

Private Sub CommandButton1_Click()

    Dim ws1 As Worksheet
    Set ws1 = Sheets(1)

    Dim ws2 As Worksheet
    Set ws2 = Sheets(2)

    Dim cell As Range
    For Each cell In ws1.Range("V2:V" & ws1.Range("V" & Rows.Count).End(xlUp).Row)

        ws2.Range("B5") = cell & Chr(32) & cell.Offset(0, 1)
        ws2.Range("B6") = cell.Offset(0, 6)

        'RDB_Worksheet_Or_Worksheets_To_PDF ()

    Next

End Sub