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

[µo°Ý] ¦p¦ó«ü©wÀx¦s®æ¦ì¸m¨Ì·Ó»Ý¨D²¾°Ê

[µo°Ý] ¦p¦ó«ü©wÀx¦s®æ¦ì¸m¨Ì·Ó»Ý¨D²¾°Ê

¥Ø«e¥Î±ø½X±½´y¿é¤J
·íC3Àx¦s®æ¦³¼Æ­È©Î¤å¦r«h¦Û°Ê©¹D3Àx¦s®æ
·íD3Àx¦s®æ¦³¼Æ­È©Î¤å¦r«h¦Û°Ê©¹E3Àx¦s®æ
·íE3Àx¦s®æ¦³¼Æ­È©Î¤å¦r«h¦Û°Ê©¹C3Àx¦s®æ
«ùÄò¦ÜA65536
¸Ó¦p¦ó¨Ì·Ó»Ý¨D²¾°Ê?
¥¼©R¦W12.JPG

¸Õ¸Õ¡G
Set c = [c3:e65536]
d = Application.CountA(c)
c(d + 1).Select

TOP

oobird ª©¤j:
CÀx¦s®æ±½¤J¼Æ­È«á,»Ý¤â°ÊF8°õ¦æ,·|¸õ¦ÜDÀx¦s®æ
DÀx¦s®æ±½¤J¼Æ­È«á,¤â°ÊF8°õ¦æ,¤£·|¸õ¦ÜEÀx¦s®æ

TOP

¦^´_ 3# yueh0720


    @oobirdª©¤j¤è¦¡¥i¥H°õ¦æ

±½´y§¹¤£¬Oª½±µ¿é¤J¶Ü? ¬°¦óÁÙ­n«öF8 ?
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 1# yueh0720
  1. ActiveSheet.Range("c3").Activate
  2. Do
  3. ActiveCell.Offset(0, 1).Range("A1").Select
  4. Loop Until IsEmpty(ActiveCell.Value) = True
½Æ»s¥N½X

TOP

ML089 ¤j¤j¡G
¦]¬°±½ºË¿é¤J«á,¤£·|°Ê§@,©Ò¥H¤~«öF8

TOP

¥i¥H³]¸m±½´y«á¥[[ENTER]
ss

TOP

        ÀR«ä¦Û¦b : «Ý¤H°h¤@¨B¡A·R¤H¼e¤@¤o¡A´N·|¬¡±o«Ü§Ö¼Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD