如何在Excel VBA中于M列后添加Count变量指定数量的列？

直接给你整合好的完整代码，把计算需添加列数和插入列的逻辑合并，同时处理了空表等异常情况：

Sub AddColumnsAfterM()
    Dim ColumnNumber As Long
    Dim Count As Integer
    Dim lastCol As Range
    
    ' 查找工作表中最后一个非空列
    Set lastCol = ActiveSheet.Cells.Find(What:="*", After:=ActiveSheet.Range("A1"), _
        SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
    
    ' 处理空表的情况
    If lastCol Is Nothing Then
        ColumnNumber = 0
    Else
        ColumnNumber = lastCol.Column
    End If
    
    ' 计算需要添加的列数
    Count = 25 - ColumnNumber
    
    ' 只有当需要添加的列数大于0时才执行插入
    If Count > 0 Then
        ' 在M列（第13列）之后插入Count列
        ActiveSheet.Columns(14).Resize(ColumnSize:=Count).Insert Shift:=xlToRight
    End If
End Sub

关键部分解释 #

• 查找最后一列：原代码的Find方法用来定位最后一个有内容的列，这里加了判断避免空表时报错。
• 计算列数：沿用你原有的Count = 25 - ColumnNumber逻辑，确保最终总列数到第25列（Y列）。
• 插入列操作：Columns(14)指定M列之后的第一列（N列），Resize(ColumnSize:=Count)扩展出需要插入的列数，Insert Shift:=xlToRight表示插入后原有列向右偏移。

注意事项 #

• 如果当前已有列数≥25，Count会≤0，此时不会执行任何插入操作，避免多余操作。
• 代码默认操作当前激活的工作表，如果需要指定固定工作表，把ActiveSheet改成ThisWorkbook.Sheets("你的工作表名")即可。

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