ªð¦^¦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 : Ãø¦æ¯à¦æ¡AÃø±Ë¯à±Ë¡AÃø¬°¯à¬°¡A¤~¯àª@µØ¦Û§Úªº¤H®æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD