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

[µo°Ý] ¦p¦ó©â¥X¤£µ¥©ó¹sªºÄæ¦ìªíÀY?

¦^´_ 1# winston219
  1. Sub Ex()
  2. Dim Ar()
  3. For Each a In Range([A1], [A1].End(xlToRight))
  4. If Application.Sum(a.EntireColumn) <> 0 Then
  5. ReDim Preserve Ar(s)
  6. Ar(s) = a
  7. s = s + 1
  8. End If
  9. Next
  10. Sheet2.[B1].Resize(, s) = Ar
  11. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# winston219
¦pªG¨S¦³²Å¦X±ø¥óªºÄæ¦ì
³y¦¨s=0®É´N·|¥X¿ù
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¦n¨Æ­n´£±o°_¡A¬O«D­n©ñ±o¤U¡A¦¨´N§O¤H§Y¬O¦¨´N¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD