如果单元格具有值，请在另一个工作表中选择相同数量的行

Question

在我的第一张纸上插入389行文字，它会进行处理，并在纸张3中完全处理，但我需要在纸张3中选择相同数量的行，然后复制它。

主要问题是我在第一张纸上插入的行数量可以是1到10,000。

Answer 1

如果您输入的数据使得每一行从第一行向下填充到某行，您可以找到带有以下内容的最后一行，其中＆＃34; A＆＃34;是数据所在的列。

Dim sht As Worksheet
Set sht = ThisWorkbook.Sheets("Sheet1")
lastrow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row

然后你可以通过如下循环来浏览数据：

For each cell in sht.Range("A1:A" & lastrow)
    'do something with cell
next cell