[µo°Ý] ¿ï¾Ü¯S©wÄæ¦ì¸ê®Æ°ÝÃD¡C

stephenlee

·Q½Ð±Ð¤j®a,§Ú¦³­Ó¤u§@ªí¦³¤@³s¦ê³sÄò¸ê®Æ,¦ý§Ú·Q§â»Ý­nªº¸ê®Æ,
¦p¹Ï¤ù©Ò¥Ü¶À¦â³¡¥÷½Æ»s,¸ê®Æ¤£¬O¨C¹j¨â¦æªº,¹Ï¤ù¬O§@¨Ò¤l,¦P®É¦A¥´¶}¤@­Ó·sªº¬¡­¶Ã¯·sªº¤@­ÓEXCEL§â¶À¦â³¡¥÷¶K¤W,
¦ý¤£¯à¦³¹j¦æªº,¦p¹Ï¤ù¦Ç¦â³¡¥÷,Äæ¦ì¬O©T©wªº,¥u¤£¹L¸ê®Æªº¦h»P¤Ö¨C¦¸³£¤£¦P,­n¿ï¾Ü¸ÓÄ檺©Ò¦³¸ê®Æ¦A§â¥L½Æ»s¶K¤W³o¼Ë,ÁÂÁ¤j®a¡C

¤U¸ü (80.3 KB)

2018-10-22 22:55

GBKEE

¦^´_ 4# stephenlee

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Ar(), Ar1(), Ar2(), i As Integer
   
4.     Ar = Application.Transpose(Range("A1:E10"))  '§A­n½Æ»sªº¸ê®Æ
   
5.     Ar1 = Array(1, 3, 5)                         '§A­nªºÄæ¦ì
   
6.     ReDim Ar2(UBound(Ar1))
   
7.     For i = 0 To UBound(Ar1)
   
8.         Ar2(i) = Application.Index(Ar, Ar1(i))   '¾É¤J§A­nªºÄæ¦ì
   
9.     Next
   
10.     Ar = Application.Transpose(Ar2)
    
11.     [h1].Resize(UBound(Ar), UBound(Ar, 2)) = Ar   '§A­n¶K¤Wªº¦a¤è
    
12. End Sub

½Æ»s¥N½X

stephenlee

ÁÂÁÂ¥H¤W¤j¤j¡C
¤£ª¾¹D¦³¨S¦³VBA ªº¥i¥H°Ñ¦Ò¤@¤U¡CÁÂÁÂ

hcm19522

¤U¸ü (10.59 KB)

2018-10-23 10:10

K2:K9=IFERROR(TEXT(N(OFFSET($A$1,ROW(A1)-1,SMALL(IF($K$2:$K$9>0,CODE($K$2:$K$9)-65),COLUMN(A1)))),"0;;"),"")

hcm19522

K2:K9=IFERROR(TEXT(N(OFFSET($A$1,ROW(A1)-1,SMALL(IF($K$2:$K$9>0,CODE($K$2:$K$9)-65),COLUMN(A1)))),"0;;"),"")