vba 数组字符串

楼主，这个应该调用什么API能很快搞定，不过我一般用VBA主要处理数据啥的，我大概试了下，用下面的方法也可行的。

Sub test()

Dim arr() As String, brr() As String

Dim crr() As String

Dim i As Long, k As Long

'随便定义了2个数据，按楼主说的，brr的所有元素在arr都存在

arr = Split("A,B,C,D,E,F,G", ",")

brr = Split("B,D,G", ",")

'用crr来存取 arr-brr的元素，crr的大小如下

ReDim crr(UBound(arr) - UBound(brr) - 1)

'开整，遍历arr，把每个brr中没有的放到crr中就好了

For i = 0 To UBound(arr)

If UBound(Filter(brr, arr(i))) <>0 Then

crr(k) = arr(i)

k = k + 1

End If

Next i

End Sub

我试过了，可以滴。方法思路就是这个啦

Sub ss_Error()

Dim Arr(), i&, One

 Arr = Array("A", "B", "C")

 For Each One In Arr

  One = "=" & One

 Next One

End Sub

Sub ss()

Dim Arr(), i&, One

 Arr = Array("A", "B", "C")

 For i = 0 To UBound(Arr)

  Arr(i) = "=" & Arr(i)

 Next i

End Sub

注意 for each one 方法的结果是错误的！

---