VBA函数convertRangetoList中ReDim处出现Type Mismatch错误求助

嘿，我看到你在用这个单元格区域转字符串的函数时，卡在ReDim arrNames(myRange - 1)这行报类型不匹配了——这问题我之前也碰到过，其实就是对Range对象的用法搞错了，来给你修正一下：

问题根源 #

你直接用myRange这个Range对象做算术运算（myRange - 1），VBA根本不知道怎么对一个对象执行减法操作，所以才会抛出类型不匹配的错误。你需要先获取区域内的单元格总数，再用这个数值来定义数组大小。

修正后的完整代码 #

Function convertRangetoList(myRange As Range, delimiter As String) As String
    Dim rngCell As Range
    Dim arrNames() As Variant
    Dim i As Long
    
    ' 先处理空区域的情况，避免后续报错
    If myRange.Cells.Count = 0 Then
        convertRangetoList = ""
        Exit Function
    End If
    
    ' 重新定义数组大小：用单元格总数减1，对应VBA默认的0起始下标
    ReDim arrNames(myRange.Cells.Count - 1)
    
    ' 遍历区域加载数组
    i = 0
    For Each rngCell In myRange
        ' 可选：过滤空单元格，避免出现连续分隔符（比如",,abc"这种情况）
        If Not IsEmpty(rngCell.Value) Then
            arrNames(i) = rngCell.Value
            i = i + 1
        End If
    Next
    
    ' 如果所有单元格都是空的，直接返回空字符串
    If i = 0 Then
        convertRangetoList = ""
    Else
        ' 调整数组到实际有值的长度，避免Join时出现多余分隔符
        ReDim Preserve arrNames(i - 1)
        convertRangetoList = Join(arrNames, delimiter)
    End If
End Function

关键修改点说明 #

• 数组大小定义：把ReDim arrNames(myRange - 1)改成ReDim arrNames(myRange.Cells.Count - 1)，myRange.Cells.Count会返回区域内的单元格总数，这是一个数值，能正确用于定义数组下标范围。
• 空区域判断：增加了对空区域的检查，防止传入空Range时出现负数下标报错。
• 空单元格过滤：加入了IsEmpty判断，跳过空白单元格，避免Join后出现连续的分隔符，让结果更整洁。
• 数组长度调整：最后用ReDim Preserve把数组缩小到实际有值的元素数量，确保Join出来的字符串没有多余的尾部分隔符。

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