求助：实现第25至38行列数与C24单元格数值匹配的VBA代码删除列崩溃问题

我来帮你搞定这个删除列崩溃的问题！你的代码里存在几个关键问题，这正是删除操作时工作表崩溃的原因：

• 变量LastCol没有定义和赋值，直接使用会导致逻辑混乱
• 依赖Select和Selection操作单元格，这种方式非常不稳定，很容易触发未知错误
• 删除列的逻辑只处理了单次删除一列的场景，没有循环处理所有多余的列，而且目标范围选择也不对

下面是修正后的稳定代码，我会一步步给你解释改进的地方：

Sub AdjustColumns()
    Dim targetColCount As Integer
    Dim currentColCount As Integer
    Dim startRow As Integer, endRow As Integer
    Dim startCol As Integer
    
    ' 定义目标区域的参数：你代码里是25-36行，要是实际是25-38行就把endRow改成38
    startRow = 25
    endRow = 36
    startCol = 3 ' C列对应的列序号是3
    
    ' 获取C24单元格设定的目标列数
    targetColCount = Range("C24").Value
    ' 计算当前目标区域的实际列数：从起始列到该行最后一个非空列的列数
    currentColCount = Cells(startRow, Columns.Count).End(xlToLeft).Column - startCol + 1
    
    ' 先做输入合法性检查，避免非法值导致错误
    If targetColCount < 1 Then
        MsgBox "C24的值必须是大于等于1的正整数哦！"
        Exit Sub
    End If
    
    ' 优化操作体验：关闭屏幕刷新，避免闪烁还能提速
    Application.ScreenUpdating = False
    ' 错误捕获：就算出问题也不会直接崩溃，还能提示错误原因
    On Error GoTo ErrorHandler
    
    ' 循环调整列数，直到当前列数和目标列数一致
    Do While currentColCount <> targetColCount
        If currentColCount < targetColCount Then
            ' 新增列：在当前区域最右侧插入一列，复制起始列的格式和内容
            Cells(startRow, startCol + currentColCount).Resize(endRow - startRow + 1).Insert Shift:=xlToRight
            Cells(startRow, startCol).Resize(endRow - startRow + 1).Copy Cells(startRow, startCol + currentColCount)
            currentColCount = currentColCount + 1
        Else
            ' 删除多余列：删除当前区域最右侧的一列
            Cells(startRow, startCol + currentColCount - 1).Resize(endRow - startRow + 1).EntireColumn.Delete
            currentColCount = currentColCount - 1
        End If
    Loop
    
    ' 正常结束前恢复屏幕刷新
    Application.ScreenUpdating = True
    Exit Sub
    
    ' 错误处理分支
ErrorHandler:
    MsgBox "操作出错啦：" & Err.Description
    Application.ScreenUpdating = True ' 不管怎样都要恢复屏幕刷新
End Sub

关键改进点说明： #

• 抛弃Select/Selection：直接通过单元格对象定位操作，彻底避免选择操作带来的不稳定问题
• 变量清晰定义：明确目标区域的行、列范围，计算当前列数，再也不会出现无定义变量导致的逻辑混乱
• 循环批量调整：用Do While循环一次性处理所有需要新增或删除的列，不用重复手动执行
• 错误防护机制：加入错误捕获，就算遇到异常也会弹出提示，不会直接导致工作表崩溃
• 体验优化：关闭屏幕刷新，减少操作时的屏幕闪烁，同时提升代码运行速度
• 输入校验：防止C24输入负数、0或者非数值内容导致的错误

最后提醒下：如果你的目标区域实际是25到38行，记得把代码里的endRow = 36改成endRow = 38就行啦！

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