¦p¦ó§â¨â­ÓArray¦X¨Ö?

FAlonso

°£¤F³o­Ó³Â·Ð¿ìªk¥~

1. Sub abc()
   
2. Dim a(), b(), c(), i
   
3. a = Array("Tony", "Garnett")
   
4. b = Array("Allen", "Pierce", "Bryant")
   
5. ReDim Preserve c(UBound(a) + UBound(b) + 1)
   
6. For i = 0 To UBound(a)
   
7. c(i) = a(i)
   
8. Next
   
9. For i = 0 To UBound(b)
   
10. c(i + UBound(a) + 1) = b(i)
    
11. Next
    
12. End Sub

½Æ»s¥N½X

¦³¨S¦³§Ö±¶¤èªk³B²z?

FAlonso

¦^´_ 2# GBKEE

1. Sub combine_array_GBKEE()
   
2. Dim a(), b(), c As Variant, d(), i As Integer, j As Integer
   
3. a = Array("Tony", "Garnett")
   
4. b = Array("Allen", "Pierce", "Bryant")
   
5. c = Join(a, ",") & "," & Join(b, ",")
   
6. 
   
7. i = UBound(Split(c, ","))
   
8. ReDim Preserve d(i)
   
9. For j = 0 To i
   
10. d(j) = Split(c, ",")(j)
    
11. Next
    
12. 
    
13. End Sub

½Æ»s¥N½X

¤w¸g²¤§@­×§ï,§¹¦¨¤F
¦hÁ¦U¦ì«ü¾É