excel vba 去重

需求：把A列的不重复的值放在B列。

1.vba脚本：

Option Explicit

Sub quchong()
    Dim i, m As Integer
    i = 1
    m = 1
    Do While Cells(i, "a") <> Empty And Cells(i, "a") <> ""
        If InStr(1, Cells(i, "a"), "类型", 1) = 0 And InStr(1, Cells(m, "b"), Cells(i, "a"), 1) = 0 Then
            m = m + 1
            Cells(m, "b").Value = Cells(i, "a")
        End If
        i = i + 1
    Loop
End Sub

2.结果如下，，将B列科学计数法改为文本：选中B列 - 【数据】 - 【分列】 - 【下一步】..-【列数据格式】：文本  - 【完成】

处理之后：