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编辑器中运行，以实现你的需求。

相关问题

VBA將B列内容根據-號拆分為兩列内容

可以使用VBA的Split函数将B列内容根据"-"号拆分成两列内容，然后将拆分后的内容放入C列和D列中。可以使用以下代码：

Sub splitCells()
    Dim lastRow As Long
    Dim i As Long
    Dim splitArr As Variant
    
    lastRow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row '获取B列最后一行
    
    For i = 1 To lastRow
        splitArr = Split(Cells(i, "B").Value, "-") '使用Split函数拆分B列内容
        Cells(i, "C").Value = splitArr(0) '将拆分后的第一部分放入C列
        Cells(i, "D").Value = splitArr(1) '将拆分后的第二部分放入D列
    Next i
End Sub

你可以将这段代码复制到VBA编辑器中，然后运行它来实现你的要求。

vba 利用数据透视表 按指定列拆分工作表

您可以按照以下步骤使用 VBA 利用数据透视表按指定列拆分工作表：

1. 创建一个名为“PivotTable”的数据透视表，将需要拆分的列放到行区域中，需要保留的列放到值区域中。

2. 在 VBA 编辑器中，打开需要拆分的工作表的代码模块。

3. 在模块中添加以下代码：

Sub SplitPivotTable()
    Dim pt As PivotTable
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim lr As Long
    Dim i As Long
    
    Set pt = Worksheets("PivotTable").PivotTables("PivotTable")
    Set ws = Worksheets.Add
    
    lr = pt.TableRange1.Rows.Count
    
    For Each cell In pt.TableRange1.Columns(1).Cells
        Set rng = ws.Range("A" & lr + 1)
        cell.Resize(, pt.TableRange1.Columns.Count).Copy rng
        lr = lr + 1
    Next cell
    
    For i = 2 To ws.Columns.Count
        If ws.Cells(1, i).Value <> "" Then
            ws.Columns(i).Delete
            i = i - 1
        End If
    Next i
    
    ws.Name = "NewSheet"
End Sub

4. 修改代码中的“PivotTable”为您的数据透视表名称。

5. 运行代码，新建一个工作表，按照透视表第一列的值拆分并复制到新工作表中。

注意事项：

1. 此代码仅适用于数据透视表中只有一个数据字段。

2. 如果需要拆分的列中存在空值，则会在新工作表中创建空行。

3. 如果需要保留的列中存在空值，则会在新工作表中创建空列。