Question

这是代码。我想要做的是创建一个包含字符串的所有索引位置的数组（名为＆＃34; difficultstring＆＃34;），其中存在一些空格（字符串看起来像＃34;文本文本文本......＆＃ 34）：

Dim cutarray
cutarray = Array(0)

For spacething = 2 To Len(difficultstring)
    If Mid(difficultstring, spacething, 1) = " " And Mid(difficultstring, spacething - 1, 1) <> " " Then
    ReDim cutarray(UBound(cutarray) + 1)
    cutarray(UBound(cutarray)) = spacething
End If
Next spacething

但出于某种原因，当我尝试使用cutarray数组稍后做某事，或者从cutarray显示值时，看起来它中没有任何数字。我检查了len（stringstring）并返回43的值 - 这意味着Excel试图填充此字符串，但实际上没有填充数字（当我拉出stringstring（0），stringstring（1）等时，没有显示任何内容。

有人可以帮忙吗？非常感谢!!!!!!!

Answer 1

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

ReDim Preserve cutarray(UBound(cutarray) + 1)

Excel VBA数组不从循环填充

1 个答案: