samwang

¦^´_ 1# PJChen

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test()
Dim Arr, i%, j%, n%
Application.ScreenUpdating = False
Arr = Range("b1:m43")
For i = 3 To UBound(Arr)
    n = 0
    If Arr(i, 1) = "" Then
        For j = 1 To UBound(Arr, 2)
            If Arr(i, j) = "" Then n = n + 1
        Next
        If n = 12 Then Rows(i).EntireRow.Hidden = True
    End If
Next
Application.ScreenUpdating = True
End Sub

samwang

¦^´_ 3# PJChen


³o¸Ì¯à§_§ï¬°¡§°Ó«~¡¨¸ò¡§¦X­p¡¨¤§¶¡¡A
¤£­n¥Î«ü©w¹ê»Ú½d³ò¡H
>> ¤£¦n·N«ä¡A«á¾Ç¤£¤F¸Ñ±z±o·N«ä¡A¥i§_»¡©ú¸Ô²Ó©ÎÁ|¨Ò¡AÁÂÁÂ

samwang

¦^´_ 3# PJChen

³o¸Ì¯à§_§ï¬°¡§°Ó«~¡¨¸ò¡§¦X­p¡¨¤§¶¡¡A
¤£­n¥Î«ü©w¹ê»Ú½d³ò¡H
>> °Ó«~¬O­þ­ÓÄæ¦ì?¦X­p¬O­þ­ÓÄæ¦ì
°²³]BÄæ~MÄæ¤S«ç»ò¤£¥Î«ü©w½d³ò
Arr = Range("b1:m43")
³o¼Ë¤~¯à®M¥Î¨ì¦U­Ó«È¤áªº²z³f³æ·í¤¤¡C
>> ³o¬q§Úªº²z¸Ñ¬O¥i¥H§ï¬°Arr = Range("b1:m" & [b65536].End(3).Row - 2)¡A¹ï¶Ü?