京寵展信息指南
291
2025-04-01
如何僅在Excel中用唯一值填充組合框？
如何僅在Excel中用唯一值填充組合框？
當您創(chuàng)建一個包含有一些重復值的數(shù)據(jù)列表的組合框時，該組合框中不會自動排除重復值。 在這種情況下，如何在組合框中僅顯示唯一項？ 可能是本教程可以幫您一個忙。
僅通過使用VBA代碼使用唯一值填充組合框
僅通過使用VBA代碼使用唯一值填充組合框下面的VBA代碼可以幫助您在創(chuàng)建組合框時添加唯一值，請按照以下步驟操作：
1。 首先插入一個組合框，請單擊 開發(fā)商 > 插頁 > 組合框（ActiveX控件），然后拖動鼠標以繪制一個組合框，請參見屏幕截圖：
2。 然后右鍵單擊組合框，然后選擇 查看代碼 從上下文菜單中，查看屏幕截圖：
3。 而且 Microsoft Visual Basic應用程序 彈出窗口，請復制并粘貼以下代碼以替換原始代碼。
VBA代碼：具有唯一值的組合框：
Public Sub Populate_combobox_with_Unique_values()
Updateby Extendoffice
Dim vStr, eStr
Dim dObj As Object
Dim xRg As Range
On Error Resume Next
Set dObj = CreateObject("Scripting.Dictionary")
Set xRg = Application.InputBox("Range select:", "Kutools for Excel", _
ActiveWindow.RangeSelection.AddressLocal, , , , , 8)
vStr = xRg.Value
Application.ScreenUpdating = False
With dObj
.comparemode = 1
For Each eStr In vStr
If Not .exists(eStr) And eStr <> "" Then .Add eStr, Nothing
Next
If .Count Then
ActiveSheet.ComboBox1.List = WorksheetFunction.Transpose(.keys)
End If
End With
Application.ScreenUpdating = True
End Sub
Copy
備注：在上面的代碼中， 組合框1 是您創(chuàng)建的組合框的名稱，您可以根據(jù)需要進行更改。
4。 然后按 F5 鍵運行此代碼，然后在提示框中，選擇要添加到組合框中的數(shù)據(jù)源列表，請參見屏幕截圖：
5。 然后點擊 OK 按鈕，組合框中僅顯示唯一值，請參見屏幕截圖：
Tips:：如果沒有 開發(fā)商 此功能區(qū)中的選項卡 如何在Excel 2007/2010/2013功能區(qū)中顯示/顯示開發(fā)人員選項卡？ 可能會幫助您顯示“開發(fā)人員”標簽。
最佳辦公生產(chǎn)力工具
將小時轉(zhuǎn)化為分鐘 Kutools for Excel!
準備好增強您的 Excel 任務(wù)了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時間的工具。 簡化復雜的任務(wù)并像專業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗 Excel！
為什么需要 Kutools for Excel
??? 超過 300 項強大功能: Kutools 包含 300 多項高級功能，可簡化您在 1500 多種場景中的工作。
?? 卓越的數(shù)據(jù)處理能力：合并單元格、刪除重復項并執(zhí)行高級數(shù)據(jù)轉(zhuǎn)換 - 所有這些都不費吹灰之力！
?? 高效的批量操作：當你可以聰明地工作時，為什么還要付出額外的努力呢？ 輕松批量導入、導出、組合和調(diào)整數(shù)據(jù)。
?? 可定制的圖表和報告：訪問各種附加圖表并生成富有洞察力的報告。
??? 強大的導航窗格：通過強大的列管理器、工作表管理器和自定義收藏夾獲得優(yōu)勢。
?? 七種類型的下拉列表：通過各種功能和類型的下拉列表使數(shù)據(jù)輸入變得輕而易舉。
?? 用戶友好：對于初學者來說輕而易舉，對于專家來說是一個強大的工具。
立即下載，與 Excel 一起穿越時空！
閱讀更多
免費下載... 采購...
Office Tab 為 Office 帶來選項卡式界面，讓您的工作更輕松
在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發(fā)布者，Access，Visio和Project。
在同一窗口的新選項卡中而不是在新窗口中打開并創(chuàng)建多個文檔。
每天將您的工作效率提高50％，并減少數(shù)百次鼠標單擊！
閱讀更多
免費下載... 采購...
版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔相應法律責任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。
版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔相應法律責任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。
相關(guān)文章
