如何根据用户输入动态确定单元格区域并在指定分区插入行？

原代码问题分析 #

你当前的代码存在两个核心问题：

• 两个循环逻辑完全一致，最终x和y都会被赋值为最后一个匹配分区的行地址，无法区分区域的上下限
• 引用变量时错误地将变量名放在引号内，导致Range("x:y")无法识别为动态范围

修正后的实现方案 #

以下代码可以准确定位目标分区的起始和结束行，并在分区末尾插入新行：

Dim startRow As Long, endRow As Long
Dim lastRow As Long
Dim i As Long
Dim targetSheet As Worksheet

' 直接绑定目标工作表，避免Activate带来的错误
Set targetSheet = Tabelle3
lastRow = targetSheet.Cells(targetSheet.Rows.Count, "J").End(xlUp).Row

' 初始化行号变量
startRow = 0
endRow = 0

' 一次遍历完成分区起始/结束行的定位
For i = 12 To lastRow
    If targetSheet.Cells(i, "J").Value = part.Value Then
        ' 首次匹配时记录起始行
        If startRow = 0 Then startRow = i
        ' 持续更新结束行为当前匹配行，最终得到分区最后一行
        endRow = i
    Else
        ' 若已找到起始行，当前行不属于目标分区则跳出循环（适用于连续分区）
        If startRow <> 0 Then Exit For
    End If
Next i

' 验证分区是否存在并执行插入
If startRow <> 0 And endRow <> 0 Then
    ' 在分区最后一行的下一行插入新行
    targetSheet.Rows(endRow + 1).Insert Shift:=xlDown
    
    ' 可在此添加新行的数据填充逻辑，示例：
    ' targetSheet.Cells(endRow + 1, "J").Value = part.Value
    ' targetSheet.Cells(endRow + 1, "A").Value = "新录入数据"
Else
    MsgBox "未找到指定分区：" & part.Value, vbExclamation
End If

关键说明 #

• 用startRow和endRow直接存储行号，比字符串地址更便于后续操作
• 一次遍历同时完成起始/结束行的定位，提升代码效率
• 加入分区不存在的判断，避免空值报错
• 摒弃Activate方法，直接引用工作表对象，代码更稳定

如果你的分区存在非连续的情况（同一分区行被其他内容隔开），只需删除Else块中的Exit For语句，循环会遍历所有行并记录最后一个匹配的行作为endRow。

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