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

[µo°Ý]½Ð±Ð¼Æ­È¹ïÀ³ªº¦WºÙ¤è¶ôªºÂà¼g

[µo°Ý]½Ð±Ð¼Æ­È¹ïÀ³ªº¦WºÙ¤è¶ôªºÂà¼g

¦U¦ì«e½ú­Ì¦n!!!
     ½Ð°Ý¦p¦ó±N¦³¼Æ­Èªº¨º¤@®æÀx¦s®æªº¦WºÙ¤è¶ô§@Âà¼gªº°Ê§@?
¦p:ex1.xslÀÉ¡Addd,eee,ff¹ïÀ³ªº¬OB6,C6,D6ªº¦WºÙ¤è¶ô¡A
   µM«á±NB6,C6,D6,³o¤T­Ó¦WºÙ¤è¶ô¦Ó¤£¬O¨ä¤º®eÂà¼g¦bFÄæ©O?
  ¥Ñ°Jªº·PÁÂ!!
  ^^

ex1.rar (3.27 KB)

¦WºÙ¤è¶ôªºÂà¼g

¥»©«³Ì«á¥Ñ Hsieh ©ó 2010-10-6 00:25 ½s¿è

F6=SUBSTITUTE(CELL("address",OFFSET($A$6,,ROW(A1))),"$","")
¦V¤U½Æ»s
VBA
  1. Sub nn()
  2. For Each a In [F6:F8]
  3.    a.Value = [B6].Offset(, i).Address(0, 0)
  4.    i = i + 1
  5. Next
  6. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¶W¯Åª©¥D±z¦n:
      ¦pªG¥u¦³ddd¹ïÀ³B6¡A¤¤¶¡ªÅ¤@®æ¡AµM«áfff¹ïÀ³D6¡A«h°µ§¹¿z¿ï¦³­Èªº¦WºÙ¤è¶ô·|Âà¼g¨ìFÄæ¡A¤]´N¬O
¥u·|Âà¼gB6©MD6¦Ó¤£·|Âà¼gC6¡A½Ð°Ý¶W¯Åª©¥D¡A³o¥i¦æ¶Ü?

TOP

¦^´_ 3# bosomfriend
  1. Sub Ex()
  2.     Dim E As Range, i As Integer
  3.     For Each E In Range("B6:D6")
  4.         If E <> "" Then
  5.            Range("F6").Offset(i) = E.Address(0, 0)
  6.             i = i + 1
  7.         End If
  8.     Next
  9. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD