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

¦³¨ç¼Æ¡B¤èªk¥i¥Hª¾¹D°}¦C¤¤«D"µL"­Ó¼Æ¶Ü?[¤w¸Ñ¨M]

¦^´_ 1# asus103
  1. Sub xx()
  2. ar = Application.Transpose([K1:K15])
  3. For i = LBound(ar) To UBound(ar)
  4.   If IsEmpty(ar(i)) Then cnt = cnt + 1 Else k = i
  5. Next
  6. MsgBox "µLªº¼Æ¶q:" & cnt & Chr(10) & "³Ì«á«DªÅªºid:" & k
  7. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¦³¤ß´N¦³ºÖ¡A¦³Ä@´N¦³¤O¡A¦Û³yºÖ¥Ð¡A¦Û±oºÖ½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD