VBA中Match结合Len判断空单元格失效问题求助

原代码中Len(range1.Resize(range1.Rows.Count, 1)) = 0的逻辑在工作表函数中可行，但VBA无法直接对单元格区域执行逐元素的Len判断，因此需要替换实现方式。以下是几种可行的替代方案：

方案1：使用CountA快速统计非空单元格 #

这是最简洁的实现方式，利用WorksheetFunction.CountA直接统计目标列的非空单元格数量：

Function GetRange(range1 As Range) As Range
    Dim nonEmptyCount As Long
    ' 统计目标列的非空单元格总数
    nonEmptyCount = WorksheetFunction.CountA(range1.Resize(range1.Rows.Count, 1))
    ' 返回首个空单元格之前的区域
    Set GetRange = range1.Resize(nonEmptyCount, range1.Columns.Count)
End Function

注意：需将函数返回类型声明为Range，且赋值时必须使用Set关键字，原代码缺少这两点会导致运行错误。

方案2：VBA循环逐个检查单元格 #

适合需要自定义判断逻辑的场景，通过循环遍历单元格找到首个空值：

Function GetRange(range1 As Range) As Range
    Dim i As Long
    Dim targetCol As Range
    Set targetCol = range1.Resize(range1.Rows.Count, 1)
    
    ' 遍历查找首个空单元格
    For i = 1 To targetCol.Rows.Count
        If IsEmpty(targetCol.Cells(i)) Then
            Exit For
        End If
    Next i
    
    ' 返回非空区域
    Set GetRange = range1.Resize(i - 1, range1.Columns.Count)
End Function

如果需要判断包含空格的"伪空"单元格，可将IsEmpty替换为Len(Trim(targetCol.Cells(i).Value)) = 0。

方案3：结合数组与Match函数实现原逻辑 #

将单元格区域转为数组后，再执行逐元素的Len判断，适配原代码的Match思路：

Function GetRange(range1 As Range) As Range
    Dim number As Long
    Dim cellValues As Variant
    ' 将目标列转为数组
    cellValues = range1.Resize(range1.Rows.Count, 1).Value
    
    ' 查找首个空值的位置，添加错误处理应对无空单元格的情况
    On Error Resume Next
    number = WorksheetFunction.Match(True, Application.Index(Len(cellValues) = 0, 0), 0)
    On Error GoTo 0
    
    ' 若未找到空单元格，取整个区域的行数
    If number = 0 Then number = range1.Rows.Count + 1
    
    Set GetRange = range1.Resize(number - 1, range1.Columns.Count)
End Function

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