Excel VBA中Rows.Count循环引用及可变数据范围提取问题

我之前也碰到过类似的需求——前16行固定，后面的数据行数不固定，要从指定起始单元格开始，统计到最后一个有数据单元格的行数，还要在循环里用这个范围处理数据。这里给你一套靠谱的实现方案，用VBA来完成的话，逻辑清晰还不容易出错：

第一步：获取最后一行数据的行号 #

首先得精准定位起始单元格所在列的最后一个非空单元格行号，推荐用End(xlUp)方法，比UsedRange更可靠（毕竟UsedRange偶尔会把带格式的空行也算进去）：

' 先定义你的起始单元格，替换成实际的单元格引用
Dim startCell As Range
Set startCell = ThisWorkbook.Sheets("你的工作表名称").Range("A17") ' 比如前16行固定，起始在A17

' 获取起始单元格所在列的最后一个非空行号
Dim lastRow As Long
lastRow = startCell.Parent.Cells(startCell.Parent.Rows.Count, startCell.Column).End(xlUp).Row

这里startCell.Parent是直接引用起始单元格所在的工作表，避免切换工作表时出错，很实用。

第二步：计算可变数据的总行数 #

拿到最后一行行号后，直接和起始单元格的行号做差再加1，就是你要的总行数：

Dim dataRows As Long
' 先判断起始单元格下方有没有数据，避免出现负数
If lastRow >= startCell.Row Then
    dataRows = lastRow - startCell.Row + 1
Else
    MsgBox "起始单元格下方没有数据哦！"
    Exit Sub ' 没有数据就直接退出程序
End If

第三步：在循环中引用数据区域 #

有了起始单元格和总行数，就可以用Offset方法在循环里遍历每一行数据了：

Dim i As Long
For i = 0 To dataRows - 1
    ' 引用起始单元格往下第i行的单元格
    Dim currentCell As Range
    Set currentCell = startCell.Offset(i, 0)
    
    ' 这里写你要处理数据的逻辑，比如读取值、复制到其他位置等
    Debug.Print "第" & i+1 & "行数据：" & currentCell.Value
Next i

如果要处理整行数据，把Offset(i,0)改成startCell.Offset(i,0).EntireRow就行，灵活得很。

额外提醒 #

• 如果你的数据区域是多列的，只需要把列的判断改成你要的关键列（比如用第一列来判断最后一行），其他列的数据可以通过currentCell.Offset(0, 列偏移量)来获取；
• 要是用公式的话，也可以用COUNTA函数：=COUNTA(A17:A$1048576)，但公式在数据有空白单元格时会不准，还是VBA的方法更稳妥。

内容的提问来源于stack exchange，提问作者SDenison