如题所述
ç¨vbaå¯ä»¥å®ç°ãä¾å¦æè¡¨æ ¼å¦å¾ï¼
第ä¸æ¥ï¼ç¹å»å¼åå·¥å ·-visual basicãå¦å¾ï¼
第äºæ¥ï¼å¨å½åå·¥ä½è¡¨ä¸åå ¥ä»£ç å¦ä¸ï¼
Sub å é¤ç©ºè¡()
Dim bj As Boolean 'å¤æä¸è¡ä¸æ¯å¦é½æ¯ä¸ºç©º
For i = 15 To 1 Step -1
bj = False 'é»è®¤ä¸ºåï¼å¦ææé空å为ç
For Each mycell In Rows(i).Cells 'éåå½åè¡çåå
æ ¼
If mycell.Text <> "" Then 'å½ååå
æ ¼æ¯å¦ä¸ºç©º
bj = True 'å¦æä¸ä¸ºç©ºï¼åæ è®°èµå¼ä¸ºç éåºæ¹è¡çæ£æ¥
Exit For
End If
Next mycell
If Not bj Then Rows(i).Delete 'å¦ææ¹è¡å
¨é¨ä¸ºç©ºï¼åå é¤è¯¥è¡
Next i
End Sub
第ä¸æ¥ï¼è¿è¡å®ãç»æå¦å¾ï¼
温馨提示:答案为网友推荐,仅供参考