blocks|key|1504277|text|使用ArrayList：|type|unstyled|depth|inlineStyleRanges|offset|length|style|BOLD|entityRanges|data|1504278|Set+myAl+=+CreateObject("System.Collections.ArrayList")++++++++
myAl.Add+("The")+'Add+Item
myAl.Add+("dog")+'Add+Item
myAl.Remove+("dog")+'Remove+an+item

'An+example+of+how+to+traverse+the+items+of+an+ArrayList:
For+Each+Item+In+myAl
++++Debug.Print+Item
Next+Item|code-block|syntax|javascript|1504279|您最好还是使用Dictionary，我不认为会有很多开销，不过，ArrayList数据结构可能是您要寻找的结构。|CODE|1504280|还有其他数据结构，如Hashtable、堆栈、队列，但它们似乎不太适合您的需要。|1504281|entityMap^0|0|B|0|0|7|A|W|9|0|0^^$0|@$1|2|3|4|5|6|7|R|8|@$9|S|A|T|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|U|8|@]|D|@]|E|$I|J]]|$1|K|3|L|5|6|7|V|8|@$9|W|A|X|B|M]|$9|Y|A|Z|B|M]]|D|@]|E|$]]|$1|N|3|O|5|6|7|10|8|@]|D|@]|E|$]]|$1|P|3|-4|5|6|7|11|8|@]|D|@]|E|$]]]|Q|$]]

Use an ArrayList: 

<pre><code>Set myAl = CreateObject("System.Collections.ArrayList") 
myAl.Add ("The") 'Add Item
myAl.Add ("dog") 'Add Item
myAl.Remove ("dog") 'Remove an item

'An example of how to traverse the items of an ArrayList:
For Each Item In myAl
 Debug.Print Item
Next Item
</code></pre>

You might just as well use the <code>Dictionary</code> and I don't expect that there will be a lot of overhead, nevertheless, the <code>ArrayList</code> data structure is probably the one you are looking for.

There are other data structures like Hashtables, Stacks, Queues but they seem less appropriate for your need.

blocks|key|1562089|text|我几乎从不把价值放在字典里。我只是用钥匙。不必为那事担心了。没有数据不使用内存。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1562090|这些是你的选择。|1562091|来自.NET+(尽量避免这些问题，因为已经存在COM开销--+.NET开销也只是重复COM功能)|offset|length|style|BOLD|1562092|·没有固定大小的ArrayList-An数组类。您可以继续添加项目到它。
•Hashtable—This类类似于Scripting.Dictionary类。您可以添加项目并按键查找它们。
·Queue-This是一个先进先出(FIFO)的集合。您将项目推入，然后以相同的顺序在稍后的时间读出它们。
·Stack-A+first+in，last+(FILO)系列。您将项目推送到堆栈上，然后按反向顺序将其弹出。
•SortedList—Similar到哈希表，除非迭代这些项时，它们总是按键排序。|blockquote|1562093|请参阅https://msdn.microsoft.com/en-us/library/aa719110(v=vs.71).aspx|1562094|COM对象|1562095|您有vbscript的Scripting.Runtime的字典+(vbscript可以传递到VBA)|1562096|'This+dedups
Set+Dict+=+CreateObject("Scripting.Dictionary")
On+Error+Resume+Next
Dict.Add+"Key1",+"Data"
Dict.Add+"Key2",+"Data"
Dict.Add+"Key3",+"Data"
If+Err.Number+<>+0+then
++++If+LCase(Arg(1))+=+"l"+then
++++++++Dict.Remove+Line
++++++++Dict.Add+Line,+""
++++End+If
End+If
For+Each+thing+in+Dict.Keys()
++++Msgbox+thing
Next|code-block|syntax|javascript|1562097|然后是ADO+，它可以从文件中保存和加载。|1562098|'This+sorts+and+filters
Set+rs+=+CreateObject("ADODB.Recordset")
With+rs
.Fields.Append+"SortKey",+4+
.Fields.Append+"Txt",+201,+5000+
.Open
.AddNew
.Fields("SortKey").value+=+1
.Fields("Txt").value+=+"Line1"
.UpDate
.AddNew
.Fields("SortKey").value+=+2
.Fields("Txt").value+=+"Line2"
.UpDate
.AddNew
.Fields("SortKey").value+=+3
.Fields("Txt").value+=+"Line3"
.UpDate

'Sorting
.Sort+=+"SortKey+ASC"

'Filtering
.filter+=+"Sortkey+<+3"

'Writing+it+out
Do+While+not+.EOF
++++MsgBox+.Fields("Txt").Value
++++.MoveNext
Loop|1562099|entityMap|0|LINK|mutability|MUTABLE|url|https://msdn.microsoft.com/en-us/library/aa719110(v=vs.71).aspx^0|0|0|0|6|0|8|9|12|9|2N|5|46|5|5Q|A|0|3|1R|0|0|0|5|0|T|2|0|0|3|4|0|0^^$0|@$1|2|3|4|5|6|7|19|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|1A|8|@]|9|@]|A|$]]|$1|D|3|E|5|6|7|1B|8|@$F|1C|G|1D|H|I]]|9|@]|A|$]]|$1|J|3|K|5|L|7|1E|8|@$F|1F|G|1G|H|I]|$F|1H|G|1I|H|I]|$F|1J|G|1K|H|I]|$F|1L|G|1M|H|I]|$F|1N|G|1O|H|I]]|9|@]|A|$]]|$1|M|3|N|5|6|7|1P|8|@]|9|@$F|1Q|G|1R|1|1S]]|A|$]]|$1|O|3|P|5|6|7|1T|8|@$F|1U|G|1V|H|I]]|9|@]|A|$]]|$1|Q|3|R|5|6|7|1W|8|@$F|1X|G|1Y|H|I]]|9|@]|A|$]]|$1|S|3|T|5|U|7|1Z|8|@]|9|@]|A|$V|W]]|$1|X|3|Y|5|6|7|20|8|@$F|21|G|22|H|I]]|9|@]|A|$]]|$1|Z|3|10|5|U|7|23|8|@]|9|@]|A|$V|W]]|$1|11|3|-4|5|6|7|24|8|@]|9|@]|A|$]]]|12|$13|$5|14|15|16|A|$17|18]]]]

I hardly ever put values in a dictionary. I just use keys. Don't worry about it. No data uses no memory.
These are your options.
From .NET (try to avoid these as there is already the COM overhead - the .NET overhead as well just duplicates COM functionality)
<blockquote>
•ArrayList—An array class that doesn't have a fixed size. You can just keep adding items to it.
•Hashtable—This class is similar to the Scripting.Dictionary class. You can add items and look them up by key.
•Queue—This is a first in, first out (FIFO) collection. You push items in, and then read them out at a later time in the same order.
•Stack—A first-in, last out (FILO) collection. You push items onto the stack, and then pop them off in reverse order.
•SortedList—Similar to the Hashtable, except when you iterate through the items,n they're always sorted by the key.
</blockquote>
See <a href="https://msdn.microsoft.com/en-us/library/aa719110(v=vs.71).aspx" rel="nofollow noreferrer">https://msdn.microsoft.com/en-us/library/aa719110(v=vs.71).aspx</a>
COM Objects
You have VBScript's Scripting.Runtime's Dictionary (vbscript is pastable into VBA)
<pre><code>'This dedups
Set Dict = CreateObject(&quot;Scripting.Dictionary&quot;)
On Error Resume Next
Dict.Add &quot;Key1&quot;, &quot;Data&quot;
Dict.Add &quot;Key2&quot;, &quot;Data&quot;
Dict.Add &quot;Key3&quot;, &quot;Data&quot;
If Err.Number &lt;&gt; 0 then
 If LCase(Arg(1)) = &quot;l&quot; then
 Dict.Remove Line
 Dict.Add Line, &quot;&quot;
 End If
End If
For Each thing in Dict.Keys()
 Msgbox thing
Next
</code></pre>
Then there is the ADO Recordset, which can be saved and loaded from file.
<pre><code>'This sorts and filters
Set rs = CreateObject(&quot;ADODB.Recordset&quot;)
With rs
.Fields.Append &quot;SortKey&quot;, 4 
.Fields.Append &quot;Txt&quot;, 201, 5000 
.Open
.AddNew
.Fields(&quot;SortKey&quot;).value = 1
.Fields(&quot;Txt&quot;).value = &quot;Line1&quot;
.UpDate
.AddNew
.Fields(&quot;SortKey&quot;).value = 2
.Fields(&quot;Txt&quot;).value = &quot;Line2&quot;
.UpDate
.AddNew
.Fields(&quot;SortKey&quot;).value = 3
.Fields(&quot;Txt&quot;).value = &quot;Line3&quot;
.UpDate

'Sorting
.Sort = &quot;SortKey ASC&quot;

'Filtering
.filter = &quot;Sortkey &lt; 3&quot;

'Writing it out
Do While not .EOF
 MsgBox .Fields(&quot;Txt&quot;).Value
 .MoveNext
Loop
</code></pre>

I have what seems to me like a simple problem. I have an array of values that I need to loop and delete. The problem is that an array can only be redimmed (cant delete the element in the middle).

I was contemplating using a dictionary, but I would not really use the value, only the key, which seems like a waste... Is there such thing as a "key" list?

For context, what I would like to do is something like:

<ol>
<li>Create array: <code>{1,2,3,4,5,6,7}</code></li>
<li>Delete an element from the middle: e.g. delete(3) = <code>{1,2,4,5,6,7}</code></li>
</ol>

As I said, I can use a dictionary, but seems like a waste!

Single data dictionary in VBA

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

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

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

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

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

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

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

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

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

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

在我看来，这是一个简单的问题。我有一个值数组，我需要循环和删除。问题是数组只能重调(不能删除中间的元素)。我在考虑用字典，但我不会真正使用这个值，只使用钥匙，这似乎是一种浪费…有“密钥”列表吗？就上下文而言，我想做的是：创建数组：{1,2,3,4,5,6,7}从中间删除元素:例如，删除(3)= {1,2,4,5,6,7...

问VBA中的单数据字典
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问VBA中的单数据字典EN