用户窗体Command Button实现按ListBox选择批量删除行的问题

我来帮你搞定这个问题！你现在的核心需求是：根据ListBox里选中的流程，找到对应的「Lisa」所在行，然后删除该行及下方19行内容。咱们一步步修改代码，解决查找「Lisa」的问题：

首先明确几个前提（如果你的控件/工作表名称不一样，记得替换成自己的）：

• 假设显示流程的ListBox控件名叫lstProcesses
• 之前你用「Lisa」作为参考点，通过Offset定位流程名称（比如流程名称在Lisa单元格的右侧1列）
• 流程数据存储在名为Sheet1的工作表中

下面是修改后的完整代码，我加了详细注释：

Private Sub ClearButton_Click()
    Dim lisaCell As Range
    Dim targetProcessCell As Range
    Dim searchRange As Range
    Dim selectedProcess As String
    Dim cDelete As VbMsgBoxResult
    Dim firstLisaAddress As String
    
    ' 关闭屏幕刷新，提升运行流畅度
    Application.ScreenUpdating = False
    
    ' 先判断用户是否选中了流程
    If Me.lstProcesses.ListIndex = -1 Then
        MsgBox "请先选择要删除的流程！", vbExclamation
        Application.ScreenUpdating = True
        Exit Sub
    End If
    selectedProcess = Me.lstProcesses.Value
    
    ' 确认删除操作
    cDelete = MsgBox("确定要删除流程「" & selectedProcess & "」吗？", vbYesNo + vbQuestion)
    If cDelete <> vbYes Then
        Application.ScreenUpdating = True
        Exit Sub
    End If
    
    ' 设置查找范围为工作表已使用区域
    Set searchRange = ThisWorkbook.Worksheets("Sheet1").UsedRange
    
    ' 查找第一个包含「Lisa」的单元格
    Set lisaCell = searchRange.Find(What:="Lisa", LookIn:=xlValues, LookAt:=xlWhole)
    
    If Not lisaCell Is Nothing Then
        firstLisaAddress = lisaCell.Address ' 记录第一个找到的地址，避免死循环
        Do
            ' 根据你之前的偏移规则，找到该Lisa对应的流程名称单元格
            ' 这里假设流程在Lisa右侧1列，可根据实际情况修改Offset参数（比如Offset(-2,0)代表上方2行）
            Set targetProcessCell = lisaCell.Offset(0, 1)
            
            ' 匹配用户选中的流程
            If targetProcessCell.Value = selectedProcess Then
                ' 删除Lisa所在行及下方19行（共20行）
                lisaCell.Resize(20, 1).EntireRow.Delete
                MsgBox "流程「" & selectedProcess & "」已成功删除！", vbInformation
                Exit Do ' 找到目标后退出循环
            End If
            
            ' 继续查找下一个Lisa
            Set lisaCell = searchRange.FindNext(lisaCell)
        Loop While Not lisaCell Is Nothing And lisaCell.Address <> firstLisaAddress
        
        ' 如果循环结束未找到匹配项
        If lisaCell Is Nothing Or (lisaCell.Address = firstLisaAddress And targetProcessCell.Value <> selectedProcess) Then
            MsgBox "未找到流程「" & selectedProcess & "」对应的「Lisa」记录！", vbExclamation
        End If
    Else
        MsgBox "工作表中未找到「Lisa」标记的记录！", vbExclamation
    End If
    
    ' 恢复屏幕刷新
    Application.ScreenUpdating = True
End Sub

关键修改点说明： #

• 选中项验证：先检查用户是否在ListBox中选中了项目，避免空值操作
• 查找逻辑优化：通过Find+FindNext遍历所有「Lisa」单元格，精准匹配对应的流程名称
• 删除范围调整：用Resize(20,1)选中当前行及下方19行，一次性删除更高效
• 错误提示：增加了未找到目标的友好提示，同时确保屏幕刷新恢复（避免界面卡住）

注意事项： #

1. 把lstProcesses改成你实际的ListBox控件名称
2. 调整Offset(0,1)的参数，匹配你之前定位流程名称的偏移规则
3. 把Sheet1替换成你存储流程数据的工作表名称

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