在Excel中，有時(shí)候我們需要將某一列單元格的信息進(jìn)行羅列，并且不論重復(fù)與否，都提取出來(lái)放到另外一列中。下面我們將介紹如何通過(guò)VBA來(lái)實(shí)現(xiàn)這個(gè)功能。 打開(kāi)VBE編輯器 首先，打開(kāi)Excel表格，并

在Excel中，有時(shí)候我們需要將某一列單元格的信息進(jìn)行羅列，并且不論重復(fù)與否，都提取出來(lái)放到另外一列中。下面我們將介紹如何通過(guò)VBA來(lái)實(shí)現(xiàn)這個(gè)功能。

打開(kāi)VBE編輯器

首先，打開(kāi)Excel表格，并點(diǎn)擊【開(kāi)發(fā)工具】、【Visual Basic】，調(diào)出VBE編輯器。

插入模塊

在VBE編輯器的菜單欄上面點(diǎn)擊【插入】、【模塊】，以便后續(xù)輸入VBA程序代碼。

編寫(xiě)VBA代碼

Sub TiQu()
    Dim i1, i2, i3
    On Error Resume Next '忽略運(yùn)行過(guò)程中可能出現(xiàn)的錯(cuò)誤
      False '關(guān)閉屏幕顯示更新
    Set mysheet1  ("Sheet1") '定義工作表Sheet1
    i3  1
    For i1  2 To 1000 '從第2行到1000行
        If mysheet1.Cells(i1, 1) <> "" Then '如果單元格不是空白，則
            i2  (mysheet1.Range("G2:G1000"), _
                mysheet1.Cells(i1, 1)) '獲取存在相同的單元格個(gè)數(shù)
            If i2  0 Then '如果不存在相同，則
                i3  i3   1 '累計(jì)1，從第二行開(kāi)始
                mysheet1.Cells(i3, 7)  mysheet1.Cells(i1, 1) '把數(shù)值填入到G列相應(yīng)的單元格
            End If
        End If
    Next
      True '恢復(fù)屏幕顯示更新
End Sub

運(yùn)行程序

確認(rèn)無(wú)誤后，在VBE編輯器的功能區(qū)里面點(diǎn)擊“運(yùn)行”圖標(biāo)運(yùn)行程序。

查看結(jié)果

回到Sheet1工作表界面，你將會(huì)看到G列中已經(jīng)羅列出了A列單元格的信息。