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

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

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

¦pªþÀÉ¡AÁÂÁ¤j¤j! Book3.rar (1.66 KB)

¦^´_ 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

·PÁÂHsieh¤j¤j!

TOP

½Ð°Ý¬°¦ó°õ¦æ«á¡A°»¿ù¨ì Sheet2.[B1].Resize(, s) = Ar ³o¤@¦æ¦³°ÝÃD?

TOP

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

TOP

        ÀR«ä¦Û¦b : ¥Í®ð¡A´N¬O®³§O¤Hªº¹L¿ù¨ÓÃg»@¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD