VBA文本以圆括号作为分隔符

这可能有点基本,但我基本上想分割我的数据从一个文本string到单独的单元格。 下面是我正在寻找拆分的string。

input:1)VITOL-GUNVORSA,$ 286.5 / mt,2kt,FOB Rdam,FE输出: 所以从D列开始的第一行是我想要的

这是我现在的代码,它允许我分开一切,但从名字,即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 

循环遍历你的范围中的单元格,运行一个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 

在这里输入图像说明