ªð¦^¦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

¦^´_ 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

¶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

¥»©«³Ì«á¥Ñ 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

        ÀR«ä¦Û¦b : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD