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