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

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

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

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-9-12 14:27 ½s¿è

¦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
123

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-9-12 15:21 ½s¿è

¦^´_ 1# asch2007

¥i­×§ï³o¸Ìªºµ{¦¡½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE


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

TOP

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

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 5# GBKEE

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

¦A¦¸·PÁÂ
123

TOP

¦^´_ 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.         For x0 = 1 To UBound(AR(1))
  9.             For x1 = 1 To UBound(AR(2))
  10.                 For x2 = 1 To UBound(AR(3))
  11.                     ReDim Preserve AB(0 To x)
  12.                     AB(x) = AR(1)(x0) & AR(2)(x1) & AR(3)(x2)
  13.                     x = x + 1
  14.                 Next
  15.             Next
  16.         Next
  17.     End With
  18.     MsgBox Join(AB, vbTab)
  19. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 7# GBKEE

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

¦A¦¸·PÁÂ
123

TOP

¦^´_ 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
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 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«ä.
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : µÊ®ð¼L¤Ú¤£¦n¡A¤ß¦a¦A¦n¤]¤£¯àºâ¬O¦n¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD