Excel VBA高级筛选后批量转大写出现#VALUE!错误求助

高级筛选后，SpecialCells(xlCellTypeVisible)返回的是不连续的单元格区域（多个Area），直接调用rngup.Address会生成类似$A$17,$A$19:$A$21的地址字符串，而Excel的UPPER函数无法直接处理这种不连续区域的引用，导致Evaluate执行后返回#VALUE!错误。

Sub upper()
    Dim rgdata As Range
    Dim rgcriteria As Range
    
    ' 执行高级筛选
    Set rgdata = Worksheets("sheet1").Range("A16").CurrentRegion
    Set rgcriteria = Worksheets("sheet1").Range("A12").CurrentRegion
    rgdata.AdvancedFilter xlFilterInPlace, rgcriteria  
    
    ' 批量转大写
    Dim rngup As Range
    Dim area As Range
    Set rngup = Worksheets("sheet1").Range("A16").CurrentRegion.SpecialCells(xlCellTypeVisible).Offset(1, 0)
    
    ' 遍历每个连续可见区域，分别处理
    For Each area In rngup.Areas
        area.Value = Evaluate("INDEX(UPPER(" & area.Address & "),)")
    Next area
End Sub

• 遍历Areas集合：将不连续区域拆分为多个连续子区域，逐个处理可规避UPPER函数对不连续地址的识别问题
• 保留非循环高效性：对每个连续区域仍采用数组式批量赋值，避免了循环单个单元格的性能损耗
• 空值兼容：筛选后的空可见单元格转大写无影响，无需额外处理

内容的提问来源于stack exchange，提问作者José Angel Bernal