基于另一个工作表的单元格输出隐藏/取消隐藏另一个工作表中的多行的VBA代码

Sub HideRowsBasedOnCellValue()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim cell As Range
    Dim rowToHide As Range
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Sheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Sheets("目标工作表名称")
    
    ' 设置源工作表中用于判断隐藏行的范围
    Set sourceRange = sourceSheet.Range("A1:A10") ' 修改为实际的范围
    
    ' 设置目标工作表中需要隐藏的行的范围
    Set targetRange = targetSheet.Range("A1:A10") ' 修改为实际的范围
    
    ' 循环遍历源范围中的每个单元格
    For Each cell In sourceRange
        ' 判断单元格的值是否符合隐藏条件
        If cell.Value = "隐藏条件" Then ' 修改为实际的隐藏条件
            ' 获取对应的目标范围中的行
            Set rowToHide = targetRange.Rows(cell.Row)
            
            ' 隐藏行
            rowToHide.Hidden = True
        Else
            ' 获取对应的目标范围中的行
            Set rowToHide = targetRange.Rows(cell.Row)
            
            ' 取消隐藏行
            rowToHide.Hidden = False
        End If
    Next cell
End Sub