VBA中SpecialCells异常及lastrow计算问题排查

一、筛选后可见单元格范围错误的原因 #

你的代码Set rngI = usedR.Resize(usedR.Rows.Count - 5).Offset(1).Columns("I:I").SpecialCells(xlCellTypeVisible)出现范围异常，核心问题在于**Columns("I:I")是绝对引用工作表的整列I，而非你Resize/Offset后区域内的I列部分**。

当你对usedR.Resize(...).Offset(...)返回的区域调用Columns("I:I")时，VBA会直接指向工作表的整个I列，而非该子区域对应的I列片段。这就导致后续SpecialCells(xlCellTypeVisible)会包含I列中所有可见单元格——包括你目标范围（174:197）之外的大量空行（这些空行未被筛选隐藏，因此被判定为可见），最终输出范围延伸到Excel最大行（1046999）。

修正方法：改用相对引用获取子区域内的I列，比如：

' 方法1：用列索引（假设usedR从A列开始，I是第9列）
Set rngI = usedR.Resize(usedR.Rows.Count - 5).Offset(1).Columns(9).SpecialCells(xlCellTypeVisible)
' 方法2：明确限定区域范围
Dim tempRng As Range
Set tempRng = usedR.Resize(usedR.Rows.Count - 5).Offset(1)
Set rngI = tempRng.Range(tempRng.Cells(1, "I"), tempRng.Cells(tempRng.Rows.Count, "I")).SpecialCells(xlCellTypeVisible)

二、LastRow两种写法差异的原因 #

两种写法的核心区别在于行计数的参照对象不同：

1. 无效写法rngD(Rows.Count, 1)：Rows.Count是当前工作表的总行数（比如Excel 2007+是1048576），你试图用这个超大行数去引用rngD区域的第1列，这会超出rngD的实际范围。VBA会自动将其解析为引用工作表的第Rows.Count行第1列，而非rngD区域内的行。后续End(xlUp)会从工作表最后一行向上查找，得到的是整个工作表的最后非空行，而非rngD区域内的目标行。
2. 有效写法rngD(rngD.Rows.Count, 1)：rngD.Rows.Count是rngD区域自身的总行数，用这个数值引用rngD的最后一行第1列，再调用End(xlUp)，是在rngD区域范围内向上查找最后一个非空单元格，自然能得到rngD内的有效最后行。

另外补充：你的变量声明写法不规范，Dim lastrow As Long, lastrow = ...在VBA中是错误的，声明和赋值必须分开：

Dim lastrow As Long
lastrow = rngD(rngD.Rows.Count, 1).End(xlUp).Row

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