VBA定位T列非空最后行号时错误返回60而非57

现有代码返回行号为60而非预期的57，核心原因是T列第58、59、60行的表面空白单元格并非真正的真空单元格。这类单元格通常残留有历史编辑痕迹、自定义单元格格式、条件格式规则、或是不可见的空文本字符，会被VBA的End(xlUp)方法识别为“存有内容的单元格”，导致从工作表最底部向上查找时直接定位到第60行，跳过了真正存储有效非空值的第57行。

不要依赖默认的End(xlUp)逻辑匹配单元格格式，直接基于单元格实际存储的值做匹配判定，有两种常用实现方式：

方式1：Find值匹配（运行效率更高，推荐大表使用） #

Dim lastrow As Long
Dim findRng As Range
' 针对T列（第20列）做值匹配查找
With Columns(20)
    ' 从列尾向前搜索，匹配任意非空值的单元格
    Set findRng = .Find(What:="*", _
                        LookIn:=xlValues, _
                        SearchOrder:=xlByRows, _
                        SearchDirection:=xlPrevious)
End With
' 兜底处理：如果整列没有非空值，避免空引用报错
If Not findRng Is Nothing Then
    lastrow = findRng.Row
Else
    lastrow = 1
End If

' 替换原有英文提示为中文
MsgBox "T列最后有效数据行号为：" & lastrow  

' 后续原有设置字体的逻辑可直接复用
Range("B2:T" & lastrow).SpecialCells(xlCellTypeVisible).Select
With Selection.Font
    .Color = -16776961
    .TintAndShade = 0
End With

方式2：逐行值遍历（适合小数据量场景，逻辑直观） #

Dim lastrow As Long
lastrow = 2
' 从首行数据开始逐行判定T列单元格的Trim后值长度
Do While Len(Trim(Cells(lastrow, 20).Value)) > 0
    lastrow = lastrow + 1
Loop
lastrow = lastrow - 1 ' 退出循环时已走到第一个空值行，回退1行即为最后有效行

执行SpecialCells(xlCellTypeVisible)操作前建议增加错误判断，避免工作表处于筛选状态、无可见单元格时触发运行时错误。
如果希望快速修复现有代码的识别问题，可以手动选中T列58-60行的“假空白”单元格，按下Ctrl+Delete清除全部内容与格式，此时原有End(xlUp)的写法也能返回正确的57行结果，但这种手动清理的方式不适合自动化批处理脚本。

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