ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

§R¤@¾ã¦C®É, ¦p¦óÁ׶}¦X¨Ö¤W¤U¦CªºÀx¦s®æ

§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

¦^´_ 1# openpc


    ¼Ó¥D~ ³o­Ó¥i¯à¬O§A»Ý­nªº¥\¯à~
   §Ú¦³´ú¸Õ¹L¤F~ 500µ§¼Æ¾Ú¤j·§¶]30sec
  1. Sub ee()
  2. Dim E As Range
  3. For i = 500 To 1 Step -1
  4.         If Application.CountA((Rows(i))) = 0 Then
  5.            For j = 1 To 256
  6.             If Cells(i, j).MergeCells = True Then
  7.                GoTo 1
  8.             End If
  9.            Next
  10.            Rows(i).Delete
  11. 1
  12.         End If
  13. Next
  14. End Sub
½Æ»s¥N½X
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¦^´_ 1# openpc
  1. Sub EE()
  2. For i = 500 To 1 Step -1
  3.   If Application.CountA((Rows(i))) = 0 And Not IsNull(Rows(i).MergeCells) Then
  4.      Rows(i).Delete
  5.   End If
  6. Next
  7. End Sub
½Æ»s¥N½X

TOP

·PÁ¤G¦ì¥ý¶i«ü±Ð,¹ê¥Î¦n¥Î, ¯u¬OÀò¯q¨}¦h.

TOP

        ÀR«ä¦Û¦b : §g¤l¦p¤ô¡AÀH¤è´N¶ê¡AµL³B¤£¦Û¦b¡C
ªð¦^¦Cªí ¤W¤@¥DÃD