基于输入框选择单元格隐藏工作表行的宏需求（附过往方案）

之前用于隐藏工作表列的宏经调整后，可实现基于输入框选择单元格来隐藏对应行的功能，以下是适配后的完整VBA代码：

Sub HideRowsByInput()
    Dim targetCell As Range
    Dim inputPrompt As String
    
    ' 设置输入框提示文本
    inputPrompt = "请选择要隐藏对应行的单元格："
    
    ' 弹出输入框让用户选择单元格
    On Error Resume Next
    Set targetCell = Application.InputBox(prompt:=inputPrompt, Type:=8)
    On Error GoTo 0
    
    ' 判断用户是否选择了有效单元格
    If Not targetCell Is Nothing Then
        ' 隐藏选中单元格所在的行
        targetCell.EntireRow.Hidden = True
        MsgBox "已成功隐藏选中单元格对应的行！", vbInformation
    Else
        MsgBox "未选择有效单元格，操作取消。", vbExclamation
    End If
End Sub

关键修改说明（对比原列隐藏宏）： #

• 将原代码中操作列的EntireColumn替换为操作行的EntireRow
• 调整输入框提示文本，明确提示用户选择对应行的单元格
• 保持核心逻辑：通过Application.InputBox(Type:=8)获取用户选中的单元格范围，再执行隐藏操作

如果需要实现批量隐藏多行或根据单元格值条件隐藏行的扩展功能，可参考以下代码示例：

批量隐藏选中区域的所有行

Sub HideMultipleRows()
    Dim targetRange As Range
    
    On Error Resume Next
    Set targetRange = Application.InputBox(prompt:="请选择要隐藏行的单元格区域：", Type:=8)
    On Error GoTo 0
    
    If Not targetRange Is Nothing Then
        targetRange.EntireRow.Hidden = True
        MsgBox "已成功隐藏选中区域对应的所有行！", vbInformation
    Else
        MsgBox "未选择有效区域，操作取消。", vbExclamation
    End If
End Sub

根据单元格值隐藏行（示例：隐藏值为"隐藏"的行）

Sub HideRowsByCellValue()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 指定目标工作表，可根据实际修改
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 假设判断列是A列
    
    ' 遍历行并判断值
    For i = 1 To lastRow
        If ws.Cells(i, "A").Value = "隐藏" Then
            ws.Rows(i).Hidden = True
        End If
    Next i
    
    MsgBox "已完成按值隐藏行的操作！", vbInformation
End Sub

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