Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/25.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
在VBA宏中遍历数据集_Vba_Excel - Fatal编程技术网

在VBA宏中遍历数据集

在VBA宏中遍历数据集,vba,excel,Vba,Excel,我在工作表11月份的a列中有一系列数据,我试图创建一个循环,每次提取一个单元格,将其输入到另一个工作表生成器单元格中。D15运行一个简单的宏,将工作表保存到PDF中,然后返回循环 我的PDF宏工作正常,但我在循环过程中遇到了问题。我不确定我是否理解,但如果您只是想循环它,我想类似这样的方法可以工作: Sub Transfer() Dim i As Integer Dim Rows As Integer Rows = Worksheets("November").Range("A2",

我在工作表11月份的a列中有一系列数据,我试图创建一个循环,每次提取一个单元格,将其输入到另一个工作表生成器单元格中。D15运行一个简单的宏,将工作表保存到PDF中,然后返回循环


我的PDF宏工作正常,但我在循环过程中遇到了问题。

我不确定我是否理解,但如果您只是想循环它,我想类似这样的方法可以工作:

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_创建函数。

我们可以看到您的当前代码或其相关部分编辑到您的问题中吗?编辑器中提供了代码格式化工具。