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

[µo°Ý] ½Ð°Ý¦p¦óÅýcells¦¨¬°¤@­ÓÅܼơH

[µo°Ý] ½Ð°Ý¦p¦óÅýcells¦¨¬°¤@­ÓÅܼơH

  1.     Dim na%, nb%, nc%
  2.         For i = 2 To 20
  3.             na = Cells(i, 11)
  4.             nb = Cells(i, 11).Offset(-1, 0)
  5.             nc = Cells(i, 11).Offset(0, 1)
  6.             If na <> "" Then
  7.                 na = nb
  8.             End If
  9.             If na = "" Then
  10.                 na = nc
  11.             End If
  12.         Next
  13.     End If
½Æ»s¥N½X
¨Ï¥Î«áµL¥ô¦ó¿ù»~°T®§¤]¨S¦³¥ô¦ó¤ÏÀ³¡A¤£ª¾¹D¬O¤£¬Ocells¤£¯à¬O¤@­ÓÅܼơAÁÙ¬O¤Uªº«ü¥O¦³»~¡AÁÂÁÂÆ[¬Ý

¦^´_ 1# av8d
na«Å§i¬°µu¾ã¼Æ ¬°¦ó¥Î§PÂ_¦¡na¤£µ¥©óªÅ¦r¤¸¡H
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¥»©«³Ì«á¥Ñ av8d ©ó 2023-11-11 16:55 ½s¿è

¦^´_ 2# Andy2483

·PÁ«e½úªºÆ[¬Ý¡Ana¬O Cells(i, 11)
§Ú­ì¥»¥´ºâ dim na as range
¦ý¬O¸ÓÀx¦s®æ.value¬°¼Æ¦r©Ò¥Hdim µu¾ã¼Æ
§ÚÀx¦s¦¨Excel¤W¶Ç«á¦A§iª¾«e½ú¡A·PÁÂ

TOP

¦^´_ 2# Andy2483


    ¦Û°Ê»¼¼W¡B¦C¥X¯Ê¸¹.rar (13.48 KB)

¤w¸Ñµª¡A·í®É§ÚÅÞ¿è¥X¿ù¡A¬O cellsªº­È¦s¤J na¡A§ÚÁÙ·Q§ó²µuªº¼¶¼g¡AÁÂÁ«e½úªºÆ[¬Ý¡C

TOP

        ÀR«ä¦Û¦b : Ãø¦æ¯à¦æ¡AÃø±Ë¯à±Ë¡AÃø¬°¯à¬°¡A¤~¯àª@µØ¦Û§Úªº¤H®æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD