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 (Visual Basic for Applications) 中，如果你想从Excel工作表中删除所有数据列，除了第一列（假设它是A列），可以使用 `Range` 对象以及 `SpecialCells` 和 `EntireColumn` 方法。下面是一个简单的示例：

Sub RemoveDuplicatesExceptFirst()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 更改为你需要操作的工作表名称
    
    With ws
        ' 首先选定除了第一列的所有列
        For i = 2 To .Columns.Count ' 从第二列开始到最后一列
            If i <> 1 Then ' 确保跳过第一列
                .Columns(i).SpecialCells(xlCellTypeConstants).EntireColumn.Delete ' 删除全列，只留下常量值
            End If
        Next i
        
        ' 如果你想删除完全相同的行而不是仅常量值，可以用 `.RemoveDuplicates Columns:=1` 替换上面的循环
        '.Columns(1).RemoveDuplicates Columns:=1, Header:=xlNo ' 仅保留第一列并删除重复行
    End With
End Sub

这个脚本会删除所有列中除了第一列以外，如果有完全相同的数据行（或者如果你指定的 `Header:=xlNo` 表示无标题行，那么就是除了标题外）。记得替换 `"Sheet1"` 为你实际的工作表名。