VBA二维数组操作：如何在数组中间插入列并调整大小

针对你的具体场景（从50列扩展到53列，中间插入） #

首先，你的数组是1-based索引的（下标从1开始），要把Myarray(1:340,1:50)扩展为(1:340,1:53)并在中间插入列，我们可以分步骤来实现：

假设你想在第25列之后插入这3列（你可以根据实际需求调整插入位置），代码示例如下：

Sub ResizeAndInsertColumns()
    Dim Myarray() As Variant
    Dim newArray() As Variant
    Dim insertPos As Integer ' 插入位置：在该列之后插入新列
    Dim insertColsCount As Integer ' 要插入的列数
    Dim i As Integer, j As Integer
    
    ' 假设这里已经初始化了Myarray的数据（替换成你自己的数组赋值逻辑）
    Myarray = Range("A1:AX340").Value ' 示例：从工作表读取数据到数组
    
    insertPos = 25 ' 比如在第25列后插入
    insertColsCount = 3 ' 要插入3列
    Dim originalRows As Integer, originalCols As Integer
    originalRows = UBound(Myarray, 1) - LBound(Myarray, 1) + 1
    originalCols = UBound(Myarray, 2) - LBound(Myarray, 2) + 1
    
    ' 初始化新数组：行数不变，列数=原列数+插入列数
    ReDim newArray(LBound(Myarray, 1) To UBound(Myarray, 1), _
                   LBound(Myarray, 2) To UBound(Myarray, 2) + insertColsCount)
    
    ' 1. 复制原数组中插入位置之前的列到新数组
    For j = LBound(Myarray, 2) To insertPos
        For i = LBound(Myarray, 1) To UBound(Myarray, 1)
            newArray(i, j) = Myarray(i, j)
        Next i
    Next j
    
    ' 2. 初始化插入的列（这里设为空值，你可以改成需要的默认值）
    For j = insertPos + 1 To insertPos + insertColsCount
        For i = LBound(Myarray, 1) To UBound(Myarray, 1)
            newArray(i, j) = "" ' 或者其他默认值，比如0
        Next i
    Next j
    
    ' 3. 复制原数组中插入位置之后的列到新数组的对应位置
    For j = insertPos + 1 To originalCols
        For i = LBound(Myarray, 1) To UBound(Myarray, 1)
            newArray(i, j + insertColsCount) = Myarray(i, j)
        Next i
    Next j
    
    ' 现在newArray就是你需要的(1:340,1:53)大小的数组了
    ' 可以将其写回工作表或者继续处理
    ' Range("A1:AZ340").Value = newArray
End Sub

通用的数组中间插入列方法（适用于任意1/0-based数组） #

如果需要一个可以复用的通用函数，不管数组是1-based还是0-based，也不管插入多少列，都可以用下面这个函数：

Function InsertColumnsIntoArray(sourceArray As Variant, insertPos As Integer, insertColsCount As Integer) As Variant
    Dim newArray() As Variant
    Dim srcRows As Integer, srcCols As Integer
    Dim srcLBoundRow As Integer, srcUBoundRow As Integer
    Dim srcLBoundCol As Integer, srcUBoundCol As Integer
    Dim i As Integer, j As Integer
    
    ' 检查输入是否为数组
    If Not IsArray(sourceArray) Then
        InsertColumnsIntoArray = sourceArray
        Exit Function
    End If
    
    ' 获取原数组的边界信息
    srcLBoundRow = LBound(sourceArray, 1)
    srcUBoundRow = UBound(sourceArray, 1)
    srcLBoundCol = LBound(sourceArray, 2)
    srcUBoundCol = UBound(sourceArray, 2)
    srcRows = srcUBoundRow - srcLBoundRow + 1
    srcCols = srcUBoundCol - srcLBoundCol + 1
    
    ' 初始化新数组
    ReDim newArray(srcLBoundRow To srcUBoundRow, _
                   srcLBoundCol To srcUBoundCol + insertColsCount)
    
    ' 复制插入位置之前的列
    For j = srcLBoundCol To insertPos
        For i = srcLBoundRow To srcUBoundRow
            newArray(i, j) = sourceArray(i, j)
        Next i
    Next j
    
    ' 初始化插入的列（默认空值，可根据需求修改）
    For j = insertPos + 1 To insertPos + insertColsCount
        For i = srcLBoundRow To srcUBoundRow
            newArray(i, j) = Empty
        Next i
    Next j
    
    ' 复制插入位置之后的列到新数组的偏移位置
    For j = insertPos + 1 To srcUBoundCol
        For i = srcLBoundRow To srcUBoundRow
            newArray(i, j + insertColsCount) = sourceArray(i, j)
        Next i
    Next j
    
    InsertColumnsIntoArray = newArray
End Function

使用这个通用函数的示例： #

Sub TestInsertColumns()
    Dim Myarray() As Variant
    Dim resultArray() As Variant
    
    ' 初始化你的数组
    Myarray = Range("A1:AX340").Value
    
    ' 在第25列之后插入3列（注意：如果是0-based数组，insertPos要对应0-based的下标）
    resultArray = InsertColumnsIntoArray(Myarray, 25, 3)
    
    ' 处理结果数组
    ' Range("A1:AZ340").Value = resultArray
End Sub

注意事项： #

• 如果你的数组是0-based的（下标从0开始），insertPos要使用0-based的列索引，比如在第24列（0-based）之后插入，insertPos就设为24。
• 插入的列可以根据需求修改初始化值，比如改成0、特定文本或者其他计算值。
• 数组必须是二维数组，这个函数不适用于一维数组。

内容的提问来源于stack exchange，提问作者user9152933