在VBA中声明和初始化字符串数组

这应该根据另一个堆栈溢出后的工作，但不是：

Dim arrWsNames As String() = {"Value1", "Value2"}

谁能让我知道怎么了？

试试这个：

Dim myarray As Variant
myarray = Array("Cat", "Dog", "Rabbit")

在String数组的特定情况下，您可以使用Split Function初始化该数组，因为它返回String数组而不是Variant数组：

Dim arrWsNames() As String
arrWsNames = Split("Value1,Value2,Value3", ",")

这样可以避免使用Variant数据类型，并为arrWsNames保留所需的类型。

这里的问题是数组的长度是不确定的，如果将数组显式定义为字符串，则会使VBA感到困惑。但是，变体似乎可以根据需要调整大小（因为它们占用大量内存，并且人们出于多种原因通常会避免使用它们）。

以下代码可以正常工作，但是与其他一些语言相比，它有点手动：

Dim SomeArray(3) As String

SomeArray(0) = "Zero"
SomeArray(1) = "One"
SomeArray(2) = "Two"
SomeArray(3) = "Three"

Dim myStringArray() As String
*code*
redim myStringArray(size_of_your_array)

然后，您可以执行以下静态操作：

myStringArray = { item_1, item_2, ... }

或者像这样的迭代：

Dim x
For x = 0 To size_of_your_array
    myStringArray(x) = data_source(x).Name
Next x

Public Function _
CreateTextArrayFromSourceTexts(ParamArray SourceTexts() As Variant) As String()

    ReDim TargetTextArray(0 To UBound(SourceTexts)) As String

    For SourceTextsCellNumber = 0 To UBound(SourceTexts)
        TargetTextArray(SourceTextsCellNumber) = SourceTexts(SourceTextsCellNumber)
    Next SourceTextsCellNumber

    CreateTextArrayFromSourceTexts = TargetTextArray
End Function

例：

Dim TT() As String
TT = CreateTextArrayFromSourceTexts("hi", "bye", "hi", "bcd", "bYe")

结果：

TT(0)="hi"
TT(1)="bye"
TT(2)="hi"
TT(3)="bcd"
TT(4)="bYe"

请享用

编辑：我删除了重复的文本删除功能，并使代码更小，更易于使用。

使用

Dim myarray As Variant

起作用但是

Dim myarray As String

不，所以我坐到变体