VBA-仅用第二个“-”分隔到另一列

Question

我正在尝试编写一个用第二个“-”分隔字符串的代码。范例：  1.我所拥有的是A1：12345-6789-姓名  2.我要的是A1：12345-6789和B1：-名称

Answer 1

Sub MySplit()
    With Worksheets("Sheet1") 'Change to your sheet
        Dim str() As String
        str = Split(.Range("A1"), "-")
        If UBound(str) > 1 Then
            .Range("A1").Value = str(0) & "-" & str(1)
            .Range("B1").Value = "-" & str(2)
        End If
    End With
End Sub