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

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

打開VBE編輯器

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

插入模塊

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

編寫VBA代碼

Sub TiQu()
    Dim i1, i2, i3
    On Error Resume Next '忽略運(yùn)行過程中可能出現(xiàn)的錯誤
      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)) '獲取存在相同的單元格個數(shù)
            If i2  0 Then '如果不存在相同，則
                i3  i3   1 '累計1，從第二行開始
                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)無誤后，在VBE編輯器的功能區(qū)里面點擊“運(yùn)行”圖標(biāo)運(yùn)行程序。

查看結(jié)果

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