VBA把B列按照-拆分，只保留第二列數據

你可以使用VBA中的Split函数将B列的内容按照"-"进行拆分，然后只保留第二个元素即可。

下面是一个示例VBA代码：

Sub SplitColumnB()
    Dim lastRow As Long
    Dim i As Long
    Dim arr() As String
    
    lastRow = Cells(Rows.Count, "B").End(xlUp).Row
    
    For i = 1 To lastRow
        arr = Split(Cells(i, "B").Value, "-")
        If UBound(arr) >= 1 Then
            Cells(i, "B").Value = arr(1)
        Else
            Cells(i, "B").Value = ""
        End If
    Next i
End Sub

这个代码会遍历B列中的每一行数据，将其按照"-"进行拆分，并将第二个元素保留下来，写回到原来的单元格中。如果B列中的某一行数据没有"-"符号，那么就将其清空。你可以将这个代码复制到VBA编辑器中运行，以实现你的需求。