Excel數據處理：快速列舉不重復數據序號、位置和值

在日常工作中，處理海量數據是一項常見任務。篩選出不重復的數值是其中一個關鍵步驟，尤其在Excel表格中。雖然對行數據可以使用【篩選】功能來實現，但對于列或單元格區域數據就顯得棘手了。本文將分享如何利用

在日常工作中，處理海量數據是一項常見任務。篩選出不重復的數值是其中一個關鍵步驟，尤其在Excel表格中。雖然對行數據可以使用【篩選】功能來實現，但對于列或單元格區域數據就顯得棘手了。本文將分享如何利用Excel的宏功能，快速列舉不重復數據的序號、位置和數值。

使用VBA宏實現快速列舉不重復數據

1. 首先，在Microsoft Office Excel 2007中新建文檔并保存，按下快捷鍵ALT F11打開VBA（宏）編輯界面。

2. 在菜單欄中選擇【插入】->【模塊（M）】，插入一個新的模塊，并復制以下代碼到代碼框中。

```vba

Option Base 1

Sub 選數據列舉不重復()

Dim myrange As Range, myranges As Range, zhtj(), i As Long, a As Long

Set myranges Selection

ReDim zhtj(, 2)

i 0

a 0

On Error Resume Next

With CreateObject("scripting.dictionary")

For Each myrange In myranges

a a 1

If <> "" Then

i i 1

.Add , (RowAbsolute:False, ColumnAbsolute:False)

zhtj(i, 1) i

zhtj(i, 2) a

If <> 0 Then

i i - 1

End If

End If

Next myrange

Set myrange (Prompt:"選擇提取數據輸出一個單元格", Type:8)

(1, 4) Array("序號", "原數據序號", "單元格地址", "不重復數值")

(1, 0).Resize(i, 2) zhtj

(1, 2).Resize(i, 1) (.Items)

(1, 3).Resize(i, 1) (.Keys)

End With

End Sub

```

實際操作步驟

1. 返回Excel工作表窗口，選擇原始數據表。

2. 運行【選數據列舉不重復】宏，方法為：菜單欄中選擇【視圖】->【宏】->【查看宏(V)】，選擇該宏名并執行。

3. 程序會提示“選擇提取數據輸出一個單元格”，選擇后即可看到輸出結果，整個運行過程如圖所示。

通過以上操作，您可以快速而準確地列舉出不重復數據的序號、位置和值。希望這篇經驗能幫助您提升在Excel數據處理中的效率。如果覺得本文對您有所幫助，請不吝點贊或收藏以支持我們！如有任何疑問，歡迎點擊“我有疑問”，感謝您的閱讀與支持！