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

[µo°Ý] ¦p¦ó¥ÎVBA®Ú¾Ú«eÄæ¸ê®Æ¦³§_¡A¨Ó¨M©w¬O§_¶ñ¤J¯S©wÄæ¦ì¸ê®Æ¡C

SUB TEXT()
           ROW1 = CELLS( ROWS.COUNT,"C").END(3).ROW
           FOR i = 2 TO ROW1
                      IF CELLS(i,"C").VALUE <> "" THEN
                             CELLS(i,"F").VALUE = CELLS(i,"M").VALUE
                      ELSE
                             CELLS(i,"F").VALUE = ""
                      END IF
           NEXT

END SUB

TOP

        ÀR«ä¦Û¦b : ¡i°µ¤Hªº¶}©l¡j¨C¤@¤Ñ³£¬O¬G¤Hªº¶}©l¡A¨C¤@­Ó®É¨è³£¬O¦Û¤vªºÄµ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD