循环遍历VBA宏中的数据集

Question

我在工作表的第A列中有一系列数据＆＃34; 11月＆＃34;，我试图制作一个一次提取一个单元格的循环，将其输入另一个工作表＆＃34 ;发电机＆＃34; Cell.D15运行一个简单的宏来将工作表保存为PDF然后循环回来。

我的PDF宏工作正常，但我在循环过程中遇到了麻烦。

Answer 1

我不确定我理解，但如果你只是想循环它，我猜这样的东西会起作用：

Sub Transfer()

Dim i As Integer
Dim Rows As Integer

    Rows = Worksheets("November").Range("A2", Worksheets("November").Range("A2").End(xlDown)).Rows.Count

    For i = 1 To Rows

        Worksheets("Generators").Range("D15") = Worksheets("November").Cells(i + 1, 1)

        PDF_Create()

    Next

End Sub

在此示例代码中，您将在A1中拥有标题，然后数据从A2开始，没有空白值。然后它将相应地更改D15中的数字，然后您可以输入PDF_Create函数。