我正在尝试通过 vba 迭代一个 excel 工作表。我需要它逐行读取工作表以使每个单元格都有一个数组,直到找到空(最终)行。
我举了一个数据的例子:
我知道从A列到G会有数据,我不知道会有多少行。
这个想法是:
Sub importarDatos()
'
' importarDatos Macro
'
'
Dim lineas As Worksheet
Set lineas = Worksheets("Lineas")
End Sub
我创建了一个宏,它获取工作表。(到目前为止一切都很好)。
问题是:如何将该工作表的数据放入从 A1:G1 到 An:Gn 的数组中,以便我可以使用循环遍历该数组?
我需要在某个时候知道我正在阅读的行号,以便将数据写入同一行的另一张表(导出数据)。也就是说,要读取的工作表的每一行都会将 1 行写入新工作表。
PS:要阅读的工作表在我要执行宏的位置。换句话说,通过按下一个按钮(我知道怎么做),它将调用将读取该工作簿的工作表并将数据导入另一个工作表的宏。
提前致谢
并定义到第 7 列的范围,将其传递给数组,然后遍历数组?
将范围加载到数组中几乎不会耗费时间,并且迭代它是相同的。这取决于您拥有的行数,也许这是值得的。
似乎解决方案不是很困难。
搜索互联网,我意识到我可以写出最后一行,因此,我可以从那里创建一个循环来获取每一行,如下所示:
最理想的做法是最多获取第 7 列,以免每次读取一行时都获取整个文件。我们将不得不看看如何做到这一点。