§R¤@¾ã¦C®É, ¦p¦óÁ׶}¦X¨Ö¤W¤U¦CªºÀx¦s®æ
- ©«¤l
- 25
- ¥DÃD
- 11
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-2-16
- ³Ì«áµn¿ý
- 2024-3-7
|
§R¤@¾ã¦C®É, ¦p¦óÁ׶}¦X¨Ö¤W¤U¦CªºÀx¦s®æ
¦p¤Uªº¼gªk·|±N¦X¨ÖÀx¦s®æªº¤U¦Cµø¦PªÅ¥Õ¦Ó§R°£, ½Ð±Ð¥ý¶i§R¤@¾ã¦C®É, n¦p¦óÁ׶}¦X¨Ö¤W¤U¦CªºÀx¦s®æ¤£³Q§R°£, ·PÁÂ!
For i = 500 To 1 Step -1
If Application.CountA((Rows(i))) = 0 Then
Rows(i).Delete
End If
Next |
|
|
|
|
|
|
- ©«¤l
- 559
- ¥DÃD
- 58
- ºëµØ
- 0
- ¿n¤À
- 626
- ÂI¦W
- 0
- §@·~¨t²Î
- win8
- ³nÅ骩¥»
- office2013
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TW
- µù¥U®É¶¡
- 2010-11-22
- ³Ì«áµn¿ý
- 2024-6-14
|
¦^´_ 1# openpc
¼Ó¥D~ ³oÓ¥i¯à¬O§A»Ýnªº¥\¯à~
§Ú¦³´ú¸Õ¹L¤F~ 500µ§¼Æ¾Ú¤j·§¶]30sec- Sub ee()
- Dim E As Range
- For i = 500 To 1 Step -1
- If Application.CountA((Rows(i))) = 0 Then
- For j = 1 To 256
- If Cells(i, j).MergeCells = True Then
- GoTo 1
- End If
- Next
- Rows(i).Delete
- 1
- End If
- Next
- End Sub
½Æ»s¥N½X |
|
¾Ç²ß¤~¯à´£¤É¦Û¤v
|
|
|
|
|
- ©«¤l
- 967
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 1001
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-11-29
- ³Ì«áµn¿ý
- 2022-5-17
|
¦^´_ 1# openpc - Sub EE()
- For i = 500 To 1 Step -1
- If Application.CountA((Rows(i))) = 0 And Not IsNull(Rows(i).MergeCells) Then
- Rows(i).Delete
- End If
- Next
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 25
- ¥DÃD
- 11
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-2-16
- ³Ì«áµn¿ý
- 2024-3-7
|
·PÁ¤G¦ì¥ý¶i«ü±Ð,¹ê¥Î¦n¥Î, ¯u¬OÀò¯q¨}¦h. |
|
|
|
|
|
|