VBA如何查找指定多个数据范围内包含有效值的最后一列

原有代码问题 #

• 未针对三个独立区域分别计算，全局遍历整个工作表的逻辑无法获取每个区块单独的最后有效列
• 未显式指定Find方法的全部参数，Excel会继承上一次查找的缓存配置（如查找范围、匹配规则），导致结果异常
• 查找逻辑没有指定按列优先搜索，无法保证返回的是最右侧的有效列

可直接运行的实现代码 #

Sub GetLastValidColumnForEachRange()
    Dim UBMonthlyYTDSht As Worksheet
    Dim targetRngArr As Variant, singleRng As Range
    Dim lastCol As Long, i As Long
    Dim findRes As Range
    
    ' 绑定目标工作表，此处替换为你实际的工作表名称
    Set UBMonthlyYTDSht = ThisWorkbook.Worksheets("UBMonthlyYTD")
    ' 定义三个待检测的目标数据范围
    targetRngArr = Array("A3:O43", "Q3:AE43", "AG3:AU43")
    
    For i = LBound(targetRngArr) To UBound(targetRngArr)
        Set singleRng = UBMonthlyYTDSht.Range(targetRngArr(i))
        ' 在当前区域内查找最后一个非空有效值
        Set findRes = singleRng.Find( _
            What:="*", _
            After:=singleRng.Cells(1, 1), _
            LookIn:=xlValues, _
            LookAt:=xlWhole, _
            SearchOrder:=xlByColumns, _
            SearchDirection:=xlPrevious, _
            MatchCase:=False _
        )
        
        If Not findRes Is Nothing Then
            lastCol = findRes.Column
            ' 示例输出，可根据业务需求替换为自己的逻辑
            Debug.Print "区域【" & targetRngArr(i) & "】最后有效列：" & _
            Split(Cells(1, lastCol).Address, "$")(1) & "，列号：" & lastCol
        Else
            Debug.Print "区域【" & targetRngArr(i) & "】无有效值"
        End If
    Next i
End Sub

代码说明 #

• 针对三个区域分别执行查找逻辑，结果互不干扰，适配分范围取最后列的需求
• 显式指定所有查找参数，完全规避环境缓存配置导致的结果异常
• 按列优先搜索，确保返回的是当前区域最右侧的有效列
• 如果后续需要调整检测范围，仅修改targetRngArr数组内的范围即可，无需改动核心逻辑

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