VBA字符串转Range触发424错误（对象要求）问题求助

问题现象 #

当把分号分隔的数字范围（如2219; 2220; 2221; 2222; 2223）写入单元格后，将单元格赋值给Range对象WorkRng时宏运行正常；但直接把相同内容赋值给变量Final后，执行Set WorkRng = Range(Final)会触发运行时错误424（对象要求）。

后续代码的逻辑是对分号分隔的数字排序，若存在连续10个数字（首数末位为0、尾数末位为9），则保留首数去掉末位后的数字并删除后续9个数字。例如输入2219; 2220; 2221;...2231，预期输出2219; 222; 2230; 2231。

错误原因 #

Range()函数的参数要求是单元格地址格式（如A1、B2:C5），你传入的分号分隔数字字符串不符合该规则，因此触发对象类型错误。另外Set WorkRng = Final也不成立，因为Final是字符串变量，并非Range对象。

原代码中写入单元格再赋值能运行，是因为Cells(Count + 2, 5)本身就是Range对象，后续代码实际是读取单元格的Value来处理，并非依赖WorkRng作为单元格范围遍历。

解决方案 #

无需将字符串转换为Range对象，直接对Final变量对应的字符串进行拆分、排序、逻辑处理即可，跳过写入单元格的中间步骤。

修改后的代码 #

Dim Final, Fkod As String
Dim Arr As Variant
Dim i As Integer, j As Integer, xMin As Integer, temp As String
Dim x As Integer, p As Integer, r As Integer

' 获取分号分隔的数字字符串
Final = Right(Fkod, Len(Fkod) - 2)
' 拆分字符串为数组
Arr = VBA.Split(Final, "; ")

' 冒泡排序数组
For i = 0 To UBound(Arr)
    xMin = i
    For j = i + 1 To UBound(Arr)
        If Arr(xMin) > Arr(j) Then
            xMin = j
        End If
    Next j
    If xMin <> i Then
        temp = Arr(i)
        Arr(i) = Arr(xMin)
        Arr(xMin) = temp
    End If
Next i

' 处理连续10个符合条件的数字
x = 0
Do While x <= UBound(Arr)
    If x + 9 <= UBound(Arr) Then
        ' 校验首数末位为0，且前几位与第10位的前几位一致
        If Right(Arr(x), 1) = "0" And Left(Arr(x), Len(Arr(x)) - 1) = Left(Arr(x + 9), Len(Arr(x + 9)) - 1) Then
            ' 替换为去掉末位的数字
            Arr(x) = Left(Arr(x + 9), Len(Arr(x + 9)) - 1)
            ' 删除后续9个元素
            For p = 1 To 9
                For r = x + 1 To UBound(Arr) - 1
                    Arr(r) = Arr(r + 1)
                Next r
                ReDim Preserve Arr(LBound(Arr) To UBound(Arr) - 1)
            Next p
            ' 处理完后保持当前索引，重新检查更新后的元素
        Else
            x = x + 1
        End If
    Else
        Exit Do
    End If
Loop

' 合并数组为最终字符串
Final = VBA.Join(Arr, "; ")
' 如需写入单元格，取消下方注释
' Cells(Count + 2, 5).Value = Final

关键修改说明 #

1. 移除了冗余的Range对象转换逻辑，直接操作字符串与数组，彻底避免类型不匹配错误。
2. 优化了连续数字的处理循环，使用Do While确保处理完一组连续数字后，能正确检查当前位置的新元素，避免漏处理。
3. 删除了未实际使用的objArrayList对象定义，精简代码。

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