blocks|key|346358|text|我发现：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|346359|Dim+Valeur+As+String
++++Dim+i+As+Integer
++++Dim+j+As+Integer
++++'For+each+element+in+the+list
++++For+i+=+0+To+lst_ref.ListCount+-+1
+++++++Valeur+=+Combobox.List(i)
++++++++For+j+=+i+%2B+1+To+Combobox.ListCount+-+1
++++++++++++'If+the+element+exist,+delete+it
++++++++++++If+Valeur+=+Combobox.List(j)+Then
++++++++++++++++Call+Combobox.RemoveItem(j)
++++++++++++End+If
++++++++Next+j
++++Next+i|code-block|syntax|javascript|346360|它采取乞讨的组合框，并检查该值是否再次红色在组合框的末尾。|346361|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

I found :
<pre><code>Dim Valeur As String
 Dim i As Integer
 Dim j As Integer
 'For each element in the list
 For i = 0 To lst_ref.ListCount - 1
 Valeur = Combobox.List(i)
 For j = i + 1 To Combobox.ListCount - 1
 'If the element exist, delete it
 If Valeur = Combobox.List(j) Then
 Call Combobox.RemoveItem(j)
 End If
 Next j
 Next i
</code></pre>
It take the beggining of the combobox and check if the value is red again in to the end of the combobox.

blocks|key|1185184|text|通常值得搜索的是，是否存在一个用于VBA的库，以节省您重新发明轮子的费用。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1185185|VBA的一个特别麻烦之处在于，虽然我们有诸如集合和Scripting.Dictionaries这样有用的结构，但是在填充这些对象之后，没有一种简单的方法可以将信息输入到这些对象中，或者对数据进行大量的处理。|1185186|我有一个项目，它对数组/scripting.dictionariews进行了大量的处理，为了使我的生活更加轻松，我在C#中创建了一个名为Kvp+(用于键值对)的VBA库，这有点像steriods上的Scripting.Dictionary。|1185187|您可以从这里下载Kvp对象的库、源代码和文档。|offset|length|1185188|一旦添加了对Kvp库的引用，就可以以标准的方式声明Kvp对象。|1185189|Dim+myKvp+as+Kvp
Set+myKvp=New+Kvp|code-block|syntax|javascript|1185190|然后，可以在单个语句中从excel电子表格中添加1D范围。|1185191|myKvp.AddByIndexFromArray+<excel+range>.Value|1185192|，它给出了长整数与单元格值的Kvp。|1185193|OP希望得到一个唯一值的列表。要用Kvp实现这一点，我们可以使用Mirror方法来创建唯一值的Kvp。|1185194|Dim+myMirroredKvp+as+Kvp
set+myMirroredKvp=myKvp.Mirror|1185195|Mirror方法返回两个项Kvp，其中项目0是唯一项的Kvp，而第一个项是找到项目的第一个键，第1项是原始密钥对值的Kvp，其中的值是重复的。|1185196|然后，可以使用GetKeys方法获得一个键数组。|1185197|Dim+myUniqueValues+as+Variant+
myUniqueValues+=+myMirroredKvp.GetItem(0).GetKeys|1185198|还是希望将项目按相反顺序排序？|1185199|myUniqueValues+-+myMirroredKvp.GetItem(0).GetKeysDescending|1185200|以上可缩短为|1185201|myUniqueValues+=+myKvp.Mirror.GetItem(0).GetKeysDescending|1185202|我发现Kvp库很有用。我希望你能做到！！|1185203|entityMap|0|LINK|mutability|MUTABLE|url|https://github.com/SteveLaycock/Kvp^0|0|0|0|4|2|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|1O|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|1P|8|@]|9|@]|A|$]]|$1|D|3|E|5|6|7|1Q|8|@]|9|@]|A|$]]|$1|F|3|G|5|6|7|1R|8|@]|9|@$H|1S|I|1T|1|1U]]|A|$]]|$1|J|3|K|5|6|7|1V|8|@]|9|@]|A|$]]|$1|L|3|M|5|N|7|1W|8|@]|9|@]|A|$O|P]]|$1|Q|3|R|5|6|7|1X|8|@]|9|@]|A|$]]|$1|S|3|T|5|N|7|1Y|8|@]|9|@]|A|$O|P]]|$1|U|3|V|5|6|7|1Z|8|@]|9|@]|A|$]]|$1|W|3|X|5|6|7|20|8|@]|9|@]|A|$]]|$1|Y|3|Z|5|N|7|21|8|@]|9|@]|A|$O|P]]|$1|10|3|11|5|6|7|22|8|@]|9|@]|A|$]]|$1|12|3|13|5|6|7|23|8|@]|9|@]|A|$]]|$1|14|3|15|5|N|7|24|8|@]|9|@]|A|$O|P]]|$1|16|3|17|5|6|7|25|8|@]|9|@]|A|$]]|$1|18|3|19|5|N|7|26|8|@]|9|@]|A|$O|P]]|$1|1A|3|1B|5|6|7|27|8|@]|9|@]|A|$]]|$1|1C|3|1D|5|N|7|28|8|@]|9|@]|A|$O|P]]|$1|1E|3|1F|5|6|7|29|8|@]|9|@]|A|$]]|$1|1G|3|-4|5|6|7|2A|8|@]|9|@]|A|$]]]|1H|$1I|$5|1J|1K|1L|A|$1M|1N]]]]

It is often worth searching to see if a Library for VBA exists that will save you reinventing the wheel.
It is a particular annoyance of VBA that whilst we have such useful structures as Collections and Scripting.Dictionaries there is no easy way to get information into such objects or to do much processing of the data once those objects are populated.
I had a project which had a lot of processing of arrays/scripting.dictionariews and to make my life a little easier I created a VBA library in C# called Kvp (for Key Value Pairs) which is a bit like a Scripting.Dictionary on steriods.
You can download the library, source code, documentation for the Kvp object from <a href="https://github.com/SteveLaycock/Kvp" rel="nofollow noreferrer">here</a>
Once you have added a reference to the Kvp library you can declare a Kvp object in the standard way.
<pre><code>Dim myKvp as Kvp
Set myKvp=New Kvp
</code></pre>
You can then add a 1D range from an excel spreadsheet in a single statement
<pre><code>myKvp.AddByIndexFromArray &lt;excel range&gt;.Value
</code></pre>
which gives a Kvp of long integers vs cell values
The OP wishes a list of unique values. To do this with a Kvp we can use the Mirror method to create a Kvp of the unique values.
<pre><code>Dim myMirroredKvp as Kvp
set myMirroredKvp=myKvp.Mirror
</code></pre>
The Mirror method returns a Two item Kvp where item 0 is a Kvp of unique items vs the first Key at which the item was found and item 1 is a Kvp of original Keys vs value where the values are a duplicate.
You can then get an array of the keys using the GetKeys method
<pre><code>Dim myUniqueValues as Variant 
myUniqueValues = myMirroredKvp.GetItem(0).GetKeys
</code></pre>
Or should you want the items sorted in reverse order
<pre><code>myUniqueValues - myMirroredKvp.GetItem(0).GetKeysDescending
</code></pre>
The above can be shortened to
<pre><code>myUniqueValues = myKvp.Mirror.GetItem(0).GetKeysDescending
</code></pre>
I've found the Kvp library quite useful. I hope you do to!!

I have the below code to populate a listbox, therefore I want to remove duplicates from my combobox. I Don't know how to do it:
<pre><code> Private Sub CommandButton1_Click()
 Dim ws_suivi As Worksheet
 Set ws_suivi = ActiveWorkbook.Worksheets(&quot;suivi&quot;)
 Fin_Liste_suivi = ws_suivi.Range(&quot;A65530&quot;).End(xlUp).Row
 
 For i = 2 To Fin_Liste_suivi
 UserForm_SDE.ComboBox_Type_Rapp.AddItem ws_suivi.Range(&quot;AD&quot; &amp; i)
 Next
 
 UserForm_SDE.Show
 
 End Sub
</code></pre>

Remove duplicates in VBA Combobox

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

我有下面的代码来填充一个列表框，因此我想从我的组合框中删除重复的内容。我不知道怎么做： Private Sub CommandButton1_Click()     Dim ws_suivi As Worksheet    Set ws_suivi = ActiveWorkbook.Worksheets("suivi"...

问删除VBA组合框中的重复项
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问删除VBA组合框中的重复项EN