Answer 1

Preserve将保留现有值。

Dim qcNo() As String

Redim qcNo(4,2,350) as string


Redim Preserve qcNo(4, 2, 1000) as string