ML089

ÁÙ¬O¥Î¦^°é¨Ó¨M¸Ñ

Sub ex()
    For r = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
        If 0 = Application.CountA(Range(Cells(r, "A"), Cells(r, "F"))) Then '§PÂ_A~FÄæ¨S¦³¸ê®Æ¤~§R°£¦¹¦C
            Rows(r).EntireRow.Delete
        End If
    Next
End Sub

ML089

¦^´_ 8# mave

³o¤TºØ³£¥i¥H¨ú±oEXCEL ¤u§@ªí¨ç¼Æ¦bVBA¤¤¨Ï¥Î¡C

Sub ex()
a = Application.WorksheetFunction.CountA([A:A])
b = Application.CountA([A:A])
c = WorksheetFunction.CountA([A:A])
Debug.Print a, b, c
End Sub

ML089

¦^´_ 10# mave

application.XXX »P WorksheetFunction.XXX©Îapplication.WorksheetFunction.XXX¥Îªk
°Ñ¦Ò
http://forum.twbts.com/viewthrea ... p;extra=&page=1