[µo°Ý] «ö¤ÀÃþ½sÁ`¸¹ªº°j°é­n¦p¦ó¼g?

asch2007

¦U¦ì¤j¤j½Ð°Ý,§Ú»Ý­n§â¦U¤ÀÃþ¸¹½s¦¨Á`¸¹,½Ð°Ý­n¦p¦ó¥ÎVBA°õ¦æ?
¤ÀÃþ¸¹(¸g¹L²¤Æ¡A¹ê»Ú¤W¦U¤ÀÃþ¼Æ¥Ø«Ü¦h)¦p¤U:
¤ÀÃþ1        ¤ÀÃþ2        ¤ÀÃþ3
A01        B1        C1
A02        B2        C2
A03        B3       
        B4       


µ²ªG¦p¤U
¤ÀÃþ1        ¤ÀÃþ2        ¤ÀÃþ3        ½s½X
A01        B1        C1        A01B1C1
A02        B1        C1        A02B1C1
A03        B1        C1        A03B1C1
A01        B2        C1        A01B2C1
A02        B2        C1        A02B2C1
A03        B2        C1        A03B2C1
A01        B3        C1        A01B3C1
A02        B3        C1        A02B3C1
A03        B3        C1        A03B3C1
A01        B4        C1        A01B4C1
A02        B4        C1        A02B4C1
A03        B4        C1        A03B4C1
A01        B1        C2        A01B1C2
A02        B1        C2        A02B1C2
A03        B1        C2        A03B1C2
A01        B2        C2        A01B2C2
A02        B2        C2        A02B2C2
A03        B2        C2        A03B2C2
A01        B3        C2        A01B3C2
A02        B3        C2        A02B3C2
A03        B3        C2        A03B3C2
A01        B4        C2        A01B4C2
A02        B4        C2        A02B4C2
A03        B4        C2        A03B4C2

GBKEE

¦^´_ 1# asch2007

¥i­×§ï³o¸Ìªºµ{¦¡½X

asch2007

¦^´_ 2# GBKEE


¤U¸ü¬ã¨s
¥ý·PÁ¦^ÂÐ

asch2007

¦^´_ 2# GBKEE
¤j¤j¡A¹ï¤£°_¡A¨S»¡²M·¡¡A§Ú­nªº¤£¬O¦X¨Ö¨âÄæ
¦Ó¬O­n«ö¤ÀÃþ¨Ó½s¸¹¡A½s§¹´N·|¥X²{°ÝÃD¤W©Ò¶Kªºµ²ªG

½s¸¹¼Æ·|¦³3*4*2­Ó¡A¦Ó¥B§¹¥þ¨S¦³­«ÂÐ

«ô°U¤F¡AÁÂÁÂ

GBKEE

¦^´_ 4# asch2007
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim AR(), AB(), x As Integer, x0 As Integer, x21 As Integer, x2 As Integer
   
4.     AR = Array(Array("A01", "A02", "A03"), Array("B1", "B2", "B3", "B4"), Array("C1", "C2"))
   
5.     For x0 = 0 To UBound(AR(0))
   
6.         For x1 = 0 To UBound(AR(1))
   
7.             For x2 = 0 To UBound(AR(2))
   
8.                 ReDim Preserve AB(0 To x)
   
9.                 AB(x) = AR(0)(x0) & AR(1)(x1) & AR(2)(x2)
   
10.                 x = x + 1
    
11.             Next
    
12.         Next
    
13.     Next
    
14.     MsgBox Join(AB, vbLf)
    
15. End Sub

½Æ»s¥N½X

asch2007

¦^´_ 5# GBKEE

¦A«×·PÁ¤j¤jªº¦^ÂÐ
¦ý¹ê»Ú¤W¨C­Ó¤ÀÃþ¤Ö«h´X¤Q­Ó¡A¦h«h´X¦Ê­Ó
¯à§_¦³¨ä¥L§ó¦³¼u©Êªº³]©w¡H

¦A¦¸·PÁÂ

GBKEE

¦^´_ 6# asch2007

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim AR(1 To 3), AB(), x As Integer, x0 As Integer, x1 As Integer, x2 As Integer
   
4.     With Sheet1
   
5.         AR(1) = Application.Transpose(.Range("a1", .Range("a1").End(xlDown)))   'Aøó   ¨C­Ó¤ÀÃþ¤Ö«h´X¤Q­Ó¡A¦h«h´X¦Ê­Ó
   
6.         AR(2) = Application.Transpose(.Range("b1", .Range("b1").End(xlDown)))   'Bøó
   
7.         AR(3) = Application.Transpose(.Range("c1", .Range("c1").End(xlDown)))   'Cøó
   
8. 
   
9.         For x0 = 1 To UBound(AR(1))
   
10.             For x1 = 1 To UBound(AR(2))
    
11.                 For x2 = 1 To UBound(AR(3))
    
12.                     ReDim Preserve AB(0 To x)
    
13.                     AB(x) = AR(1)(x0) & AR(2)(x1) & AR(3)(x2)
    
14.                     x = x + 1
    
15.                 Next
    
16.             Next
    
17.         Next
    
18.     End With
    
19.     MsgBox Join(AB, vbTab)
    
20. End Sub

½Æ»s¥N½X

asch2007

¦^´_ 7# GBKEE

·P®¦
³oÂ÷§Ú·Q­nªº«Ü±µªñ¤F
§Ú¦A¨Ó¬ã¨s­n¦p¦ó§ï

¦A¦¸·PÁÂ

ML089

¦^´_ 7# GBKEE

AR(1) = Application.Transpose(.Range("a1", .Range("a1").End(xlDown)))   'Aøó
AR(2) = Application.Transpose(.Range("b1", .Range("b1").End(xlDown)))   'Bøó
AR(3) = Application.Transpose(.Range("c1", .Range("c1").End(xlDown)))   'Cøó

½Ð°Ý­Y¤£¥Î  Application.Transpose(  ®É¡A«á­±µ{¦¡½X­n¦p¦ó§ï¡A¥i§_¥Ü½d¤@¤U¡C

GBKEE

¦^´_ 9# ML089
Application.Transpose =>¤u§@ªí¤W¨Ï¥Î¶K¤W(Âà¸m)ªº¥\¯à, ¨Ò: Application.Transpose(AR(1 To 5, 1 To 10)) Âà¸m¬° AR(1 To 10 , 1 To 5 )
.Range("a1", .Range("a1").End(xlDown))=>¤Gºû°}¦C
¦]³o¸ÌAR(1)ªº¤¸¯À,¬O³]­p¬°­n¸m¤J¤@ºû°}¦C,¤£ª¾§A»¡ªº,Application.Transpose( ,­Y¤£¥Î¬O¦ó·N«ä.