Arrays Excel VBA数组未从循环中填充

这是代码。我想做的是创建一个数组，其中包含字符串（名为“艰难字符串”）的所有索引位置，其中存在一些空格（字符串看起来像“文本…”）：

Dim-cutarray
cutarray=Array（0）
对于spacething=2到Len（困难字符串）
如果Mid（difficultstring，spacething，1）=“和Mid（difficultstring，spacething-1，1）”，那么
ReDim cutarray（UBound（cutarray）+1）
cutarray（UBound（cutarray））=空间对象
如果结束
下一个太空事物

但出于某种原因，当我尝试稍后使用cutarray数组执行某些操作，或者显示cutarray中的值时，看起来里面没有任何数字。我检查了len（cutstring），它返回的值是43——这意味着Excel试图填充这个字符串，但实际上没有填充任何数字（当我拉动cutstring（0）、cutstring（1）等时，没有显示任何内容

有人能帮忙吗？非常感谢！！！！！！！

您需要在您的ReDim语句中使用“保留”命令，如@Gary的学生引用。请尝试：

ReDim Preserve cutarray(UBound(cutarray) + 1)

---

考虑使用保留OpTyChase<代码> ReDim <代码> >代码> ReDM保存< /代码>。

ReDim Preserve cutarray(UBound(cutarray) + 1)