如何高效调整指定Range行数至目标值（基于John Does数量）

你需要把指定单元格区域的行数调整到和John Does数量对应的目标值，不想用低效的循环增减，这里给你优化现有代码的方案：

先分析现有代码的问题 #

1. 变量声明不规范：Dim DayCount2, DayCount3 As Integer 里DayCount2是默认的Variant类型，不是Integer，容易引发类型错误
2. 删除分支逻辑错误：ElseIf DayCount2 < 0 完全不符合实际需求，应该是当前行数超过目标时才删除，也就是DayCount3 < 0的场景
3. Range引用不严谨：Range("A18").Offset(-DayCount3) 没加.，会引用当前活动工作表，而非指定的Sheet1
4. Insert参数写法不规范：缺少参数名，易读性差且容易因默认参数变化出错
5. 未做效率优化：大量行插入/删除时的屏幕刷新会拖慢执行速度

优化后的代码 #

Public Sub AdjRowsNos(Daycount As Integer)
    Dim findResult As Range
    Dim findRow As Long
    Dim currentEndRow As Long
    Dim targetEndRow As Long
    Dim rowDiff As Long
    
    With Sheet1
        ' 精准查找"Additional Expenses"的行号，避免默认设置导致查找偏差
        Set findResult = .Range("A:A").Find(What:="Additional Expenses", _
                                            LookIn:=xlValues, _
                                            LookAt:=xlWhole, _
                                            MatchCase:=False)
                                            
        ' 处理查找不到目标文本的异常情况
        If findResult Is Nothing Then
            MsgBox "未找到""Additional Expenses""标记，请检查表格"
            Exit Sub
        End If
        
        findRow = findResult.Row
        currentEndRow = findRow - 6 ' 原逻辑中的当前区域结束行
        targetEndRow = Daycount + 18 ' 原逻辑中的目标区域结束行
        rowDiff = targetEndRow - currentEndRow
        
        ' 关闭屏幕更新，大幅提升批量行操作的效率
        Application.ScreenUpdating = False
        
        If rowDiff > 0 Then
            ' 插入rowDiff行，明确指定格式来源和偏移方向
            .Range("A18").Resize(rowDiff, 11).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
        ElseIf rowDiff < 0 Then
            ' 删除多余的Abs(rowDiff)行，确保始终引用Sheet1的Range
            .Range(.Range("A18"), .Range("A18").Offset(Abs(rowDiff) - 1)).EntireRow.Delete
        End If
        
        ' 恢复屏幕更新
        Application.ScreenUpdating = True
    End With
End Sub

关键优化点 #

• 规范变量类型：用Long代替Integer，避免行号超过32767时溢出（Excel行数远大于Integer的最大值）
• 修正逻辑判断：用rowDiff < 0判断是否需要删除行，完全匹配实际需求
• 严谨的Range引用：所有Range对象前加.，确保始终操作Sheet1，不受活动工作表影响
• 效率提升：关闭ScreenUpdating减少屏幕刷新，批量操作时速度提升明显
• 错误处理：增加查找不到目标文本的判断，避免运行时错误
• 明确参数：Find和Insert方法都指定完整参数，避免因Excel默认设置变化导致异常

注意事项 #

• 如果你的目标行数逻辑是直接基于区域总行数，而非结束行，可以调整计算方式：比如当前区域行数 = findRow - 17（从A18到findRow-7的行数），目标行数=Daycount，行差=目标行数-当前行数
• 若调整区域的列数不是固定11列，修改Resize(rowDiff, 11)中的11为实际列数

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