寵物集市-寵物集市華東、華南、華北排行榜一覽表
524
2025-04-01
如何從Excel中的列范圍中動態提取唯一值列表？
如何從excel中的列范圍中動態提取唯一值列表？
對于定期更改值的列范圍，無論更改如何，您始終需要從該范圍中獲取所有唯一值。 如何制作唯一值的動態列表？ 本文將向您展示如何處理它。
使用公式從列范圍動態提取唯一值列表
使用VBA代碼從列范圍動態提取唯一值列表 使用公式從列范圍動態提取唯一值列表如下圖所示，您需要從范圍B2：B9中動態提取唯一值列表。 請嘗試以下數組公式。
1.選擇一個空白單元格，例如D2，在其中輸入以下公式，然后按 按Ctrl + 轉移 + 輸入 同時鍵。 （B2：B9是您要提取唯一值的列數據，D1是您的公式所在的上方單元格）
=IFERROR(INDEX($B:$B, MATCH(0,COUNTIF($D:D1, $B:$B), 0)),"")
2.繼續選擇單元格D2，然后向下拖動“填充手柄”以獲取指定范圍內的所有唯一值。
現在，將提取列范圍B2：B9中的所有唯一值。 當此范圍內的值更改時，唯一值列表將立即動態更改。
在excel中輕松選擇并突出顯示所有唯一值：
選擇重復和唯一單元格 實用程序 Kutools for Excel
可以幫助您輕松選擇并突出顯示所有唯一值（包括第一個重復項）或僅出現一次的唯一值，以及您需要的重復值，如下圖所示。
下載 Kutools for Excel 現在！ (30-天免費試用）您還可以使用以下VBA代碼從列范圍中動態提取唯一值列表。
1。 按 其他 + F11 同時打開 Microsoft Visual Basic應用程序 窗口。
2.在 Microsoft Visual Basic應用程序 窗口中，單擊 插頁 > 模塊。 然后將以下VBA代碼復制并粘貼到 模塊 窗口。
VBA代碼：從范圍中提取唯一值列表
Sub CreateUniqueList()
Dim xRng As Range
Dim xLastRow As Long
Dim xLastRow2 As Long
Dim I As Integer
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
xRng.Copy Range("D2")
xLastRow = xRng.Rows.Count + 1
ActiveSheet.Range("D2:D" & xLastRow).RemoveDuplicates Columns:=1, Header:=xlNo
xLastRow2 = Cells(Rows.Count, "B").End(xlUp).Row
For I = 1 To xLastRow2
If ActiveSheet.Range("D2:D" & xLastRow2).Cells(I).Value = "" Then
ActiveSheet.Range("D2:D" & xLastRow2).Cells(I).Delete
End If
Next
End Sub
Copy
備注：在代碼中，D2是您將找到唯一值列表的單元格。 您可以根據需要進行更改。
3.回到工作表，單擊 插頁 > 形狀 > 長方形。 看截圖：
4.在工作表中繪制一個矩形，然后輸入一些需要在其上顯示的單詞。 然后右鍵單擊它并選擇 分配宏 從右鍵單擊菜單中。 在里面 分配宏 對話框中，選擇 創建唯一列表 ，在 宏名 框，然后單擊 OK 按鈕。 看截圖：
5.現在，單擊矩形按鈕， Kutools for Excel 彈出對話框，請選擇包含您需要提取的唯一值的范圍，然后單擊 OK 按鈕。
從現在開始，您可以重復上述步驟5以自動更新唯一值列表。
相關文章: 如何在Excel中創建動態每月日歷？ 如何基于Excel中的單元格值在單元格中動態插入圖像或圖片？ 如何在Excel中創建到另一個工作表的動態超鏈接？最佳辦公生產力工具
將小時轉化為分鐘 Kutools for Excel!
準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！
為什么需要 Kutools for Excel
??? 超過 300 項強大功能: Kutools 包含 300 多項高級功能，可簡化您在 1500 多種場景中的工作。
?? 卓越的數據處理能力：合并單元格、刪除重復項并執行高級數據轉換 - 所有這些都不費吹灰之力！
?? 高效的批量操作：當你可以聰明地工作時，為什么還要付出額外的努力呢？ 輕松批量導入、導出、組合和調整數據。
?? 可定制的圖表和報告：訪問各種附加圖表并生成富有洞察力的報告。
??? 強大的導航窗格：通過強大的列管理器、工作表管理器和自定義收藏夾獲得優勢。
?? 七種類型的下拉列表：通過各種功能和類型的下拉列表使數據輸入變得輕而易舉。
?? 用戶友好：對于初學者來說輕而易舉，對于專家來說是一個強大的工具。
立即下載，與 Excel 一起穿越時空！
閱讀更多
免費下載... 采購...
Office Tab 為 Office 帶來選項卡式界面，讓您的工作更輕松
在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。
在同一窗口的新選項卡中而不是在新窗口中打開并創建多個文檔。
每天將您的工作效率提高50％，并減少數百次鼠標單擊！
閱讀更多
免費下載... 采購...
版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。
版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。
相關文章
