VBA解析字符串将值放入新列

Question

我有一张表，上面有类似的数据行。

NOM(LSL,USL)=207.3980(206.1990,208.5970)    NOM(LSL,USL)=207.3980(206.1990,208.5970)    NOM(LSL,USL)=18.8200(18.4400,19.2100)

我只想获取值并将它们放在自己的单元格中，例如

207.3980    207.3980    18.8200
206.1990    206.1990    18.4400
208.5970    208.5970    19.2100

我继续收到“ByRef 参数不匹配”错误。我相信与我如何定义参考单元格有关。

Sub Parse_Replace()
        Dim i As Double
        Dim ws As Worksheet
            Set ws = ThisWorkbook.ActiveSheet
        Dim Col As Range
        Dim rLastCell As Range
            Set rLastCell = ws.Cells.Find(What:="*", After:=ws.Cells(1, 1), LookIn:=xlFormulas, LookAt:= _
            xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, MatchCase:=False)
    For i = rLastCell.Column To 1 Step -1
        Col = ColLett(rLastCell.Column)
        Columns(i).Cells(4) = SplitString(Col3, ",", 4)
        Columns(i).Cells(5) = SplitString(Col3, ",", 5)
        Columns(i).Cells(6) = SplitString(Col3, ",", 6)
    Next i

    End Sub

Function ColLett(Col As Integer) As String

    If Col > 26 Then
        ColLett = ColLett((Col - (Col Mod 26)) / 26) + Chr(Col Mod 26 + 64)
    Else
        ColLett = Chr(Col + 64)
    End If

    End Function

Function SplitString(pValue As String, pChar As String, pIndex As Integer) As Variant
    Dim YString As Variant

        YString = Replace(Replace(Replace(Replace(pValue, " ", ""), "=", ""), "(", ","), ")", ",")
        SplitString = Split(YString, pChar)(pIndex - 1)

    End Function

流程

• 用数据确定列数

• 遍历每一列

  • 将列索引转换为带有ColLett的列

  • 用SplitString设置单元格值

• 循环

谢谢

编辑： 将 SplitString 值替换为 inteded。

Answer 1

您在这里声明 Col 是一个范围：

Dim Col As Range

然后您尝试在此处将Col 设置为字符串：

Col = ColLett(rLastCell.Column)

设置范围时，必须将其设置为范围。此外，您必须使用 SET 关键字来执行此操作：

Set Col = <a range>

当您设置 Col 时，您只会在 For 的每个循环中将其设置为 rLastCell.Column。如果您只需要最后一列的列字母，请在进入 for 循环之前执行此操作。

无论如何，所有这些都是毫无意义的。您在任何时候都不会使用您在函数中检索时遇到的麻烦的列字母。实际上，对于您正在做的事情，您不需要列信。列字母适用于人类；列号在 VBA 中无论如何都是重要的。