如果都是字符串类型，有没有更稳定高效的方法

如果你的二维数组都是字符串类型，可以更直接地使用`ReDim Preserve`操作来扩展数组。由于字符串类型可以直接分配空间并保持原有数据，所以效率会更高。以下是使用`ReDim Preserve`处理字符串类型的二维数组的例子：

Dim strArray(100, 19) As String ' 假设你已经有了一个字符串类型的二维数组

' 增加列数
Dim newColumnCount As Integer = NewColCount
strArray.GetLength(2) += newColumnCount ' 原始数组允许动态扩展，这里加上新的列数

' ReDim Preserve操作会保留原有数据
ReDim Preserve strArray(-1, -1, strArray.GetLength(2)) ' -1表示自动计算行数

' 新的列可以从现有数组的最后一列开始添加
For i As Integer = 0 To numRows - 1
    strArray(i, _, _) = "新增的列" ' 使用下划线占位符表示不需要的部分
Next

' 现在你可以访问或处理新的列
' ...