如何判断合并单元格内容为空

luketools

  各位大神好，因格式设置，C1和D1需要合并单元格，用VBA代码控制筛选不符合条件的行自动隐藏，当合并单元格内容为空时则全部显示。

目前VBA代码可以实现不符合条件的自动隐藏，但是不能实现当合并单元格内容为空时全部显示

请问如何判断合并单元格内容为空，达到合并单元格内容为空时则全部显示？

longwin

ykcbf1100

。。。。。。

ykcbf1100

新写一个，工作表事件

附件供参考。。。

ykcbf1100

参与一下。。。

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim c1 As Range
   
3.     Set c1 = Me.Range("c1")
   
4.     If Not Intersect(Target, c1) Is Nothing Then
   
5.         Application.ScreenUpdating = False
   
6.         Application.EnableEvents = False
   
7.         Me.Rows("2:1000").EntireRow.Hidden = False
   
8.         Select Case c1.Value
   
9.             Case "OK"
   
10.                 For i = 3 To Me.Cells(Me.Rows.Count, "C").End(xlUp).Row
    
11.                     If Me.Cells(i, "C").Value = "OK" Then
    
12.                         Me.Rows(i).Hidden = False
    
13.                     Else
    
14.                         Me.Rows(i).Hidden = True
    
15.                     End If
    
16.                 Next i
    
17.             Case "NO"
    
18.                 For i = 3 To Me.Cells(Me.Rows.Count, "C").End(xlUp).Row
    
19.                     If Me.Cells(i, "C").Value = "NO" Then
    
20.                         Me.Rows(i).Hidden = False
    
21.                     Else
    
22.                         Me.Rows(i).Hidden = True
    
23.                     End If
    
24.                 Next i
    
25.             Case "全部"
    
26.                 For i = 3 To Me.Cells(Me.Rows.Count, "C").End(xlUp).Row
    
27.                     Me.Rows(i).Hidden = False
    
28.                 Next i
    
29.         End Select
    
30.         Application.ScreenUpdating = True
    
31.         Application.EnableEvents = True
    
32.     End If
    
33. End Sub
    

复制代码

luketools

ykcbf1100 发表于 2024-8-15 11:04
参与一下。。。

非常感谢！

luketools

longwin 发表于 2024-8-15 09:20

非常感谢！