VBA 文本到以括号作为分隔符的列

Question

这可能有点基础，但我基本上想将我的数据从一串文本拆分到单独的单元格中。下面是我要拆分的字符串类型。

输入：1)VITOL-GUNVORSA, $286.5/mt, 2kt, FOB Rdam, 远东输出：So the first row starting in column D is how I would like it

这是我当前的代码，它允许我拆分除了名字中的数字之外的所有内容，即 Vitol。现在我的问题是，如何添加另一个 OtherChar 以便我也可以按 ) 拆分？

谢谢。

Private Sub CommandButton1_Click()


    Dim myRng As Range
    Dim LastRow As Long

    LastRow = Sheets("Sheet1").UsedRange.Rows.Count

    With Sheets("Sheet1")
        Set myRng = Sheets("Sheet1").Range("A2:A" & LastRow)
    End With


    myRng.TextToColumns _
      Destination:=Range("D2:E2:F2:G2:H2"), _
      DataType:=xlDelimited, _
      Tab:=False, _
      Semicolon:=False, _
      Comma:=False, _
      Space:=True, _
      Other:=True, _
      OtherChar:="-"



End Sub

Answer 1

遍历范围内的单元格，运行 a SUBSTITUTE，然后进行文本到列。

Private Sub CommandButton1_Click()

    Dim myRng As Range
    Dim LastRow As Long

    LastRow = Sheets("Sheet1").UsedRange.Rows.Count

    With Sheets("Sheet1")
        Set myRng = Sheets("Sheet1").Range("A2:A" & LastRow)
    End With

    Dim cel As Range
    For Each cel In myRng
        cel.Value = WorksheetFunction.Substitute(cel.Value, "-", ", ")
    Next cel

    myRng.TextToColumns _
            Destination:=Range("D2:E2:F2:G2:H2"), _
            DataType:=xlDelimited, _
            Tab:=False, _
            Semicolon:=False, _
            Comma:=False, _
            Space:=True, _
            Other:=True, _
            OtherChar:=")"
End Sub

VBA 文本到以括号作为分隔符的列

VBA text to column with Parentheses as splitter

vba

excel

text

delimiter