类似的数据集，需要用VBA迭代行

Question

标题可能没有完全意义。但下面的描述应该有所帮助我有一些类似的数据集来自我们的一台测试机器，除非给机器的样品数量发生变化，否则这些数据集没有什么不同。 现在有一个宏假定要测量6个样本，但如果多于或少于6个样本，它会搞砸数据选择，然后我们得到错误的数字。

所以我想编辑它，以便VBA脚本智能地迭代由包含数据头的第一个单元定义的给定单元格区域。这理想情况下返回最后一行的位置，然后VBA脚本知道在哪里查找我想要的特定数字。即，单元格E12包含与数据有关的标题，并且直到E ??该单元格中没有数据

TL; DR - 我需要一些代码的帮助，从某个单元格开始，给我一个包含数据的最后一行的位置。

Answer 1

我建议这样做：

  Dim LastRow As Long
  With Sheets("Sheet1")
   LastRow = .Range("E" & .Rows.Count).End(xlUp).Row
  End With

但请记住：

• 这将开始从工作表的行数中读取单元格并向上移动直到它烧入数据填充单元格然后它将返回该行的索引。
• 这将返回基于E列的最后一个数据单元。所以如果 如果您有多个列并且正在处理整个工作表的数据，请确保选择最多的一个列 数据。
• 如果列中有合并的单元格，则会产生错误。

然后，您可以构建智能数据范围。

它会是这样的：

Dim r As Range
Set r = Range("A1:B" & LastRow)