首先，你可以使用Excel VBA的For Each循环来遍历整个B列的数据。然后，使用If语句来检查B列中是否有相同的元素。如果有相同的元素，就使用Range.Delete方法将它们删除。例如：

Sub DeleteDuplicates()

Dim c As Range

For Each c In Range("B:B")
    If Application.WorksheetFunction.CountIf(Range("B:B"), c) = 1 Then
        c.Delete Shift:=xlUp 'Shift xlUp to move up cells after deletion 
    End If

Next c 

End Sub