VBA - 无法将字符串数组的值存储到另一个字符串数组中

Question

我想将字符串数组（

ArrayBuffer1

）的第4个位置的值存储到另一个字符串数组（

ArrayBuffer2

）的第1个位置，当

ArrayBuffer1

的第7个字母是

"4"

时：

Dim ArrayBuffer1(15) As String
Dim ArrayBuffer2(15) As String

If Mid(ArrayBuffer1(4), 7, 1) = "4" Then
                                           
   ArrayBuffer2(1) = ArrayBuffer1(4)
                      
End If

IF-Request 有效，我检查过。但是

ArrayBuffer2(1)

始终为空，即使 IF 请求的条件是

TRUE

！

真的不知道出了什么问题，看起来很简单。 感谢您的帮助...

Answer 1

我用这段代码尝试了一下，它有效：

Public Sub test()


   Dim ArrayBuffer1(15) As String
   Dim ArrayBuffer2(15) As String
   
   ArrayBuffer1(4) = "44444444"
   
   If Mid(ArrayBuffer1(4), 7, 1) = "4" Then
                                              
      ArrayBuffer2(1) = ArrayBuffer1(4)
                         
   End If

End Sub

ArrayBuffer2(1) 是“44444444”