Hsieh

¦^´_ 7# sunnyso

1. Sub EXE()
   
2.     Dim A As Variant, B As Variant, C As Variant, D As Variant, I As Integer
   
3.     A = Array(Array("A1", "B1", "C1"), Array("A2", "B2", "C2"), Array("A3", "B3", "C3"))
   
4.     B = Array(Array("A4", "B4", "C4"), Array("A5", "B5", "C5"))
   
5.     [A1].Resize(UBound(A) + 1, 3) = Application.Transpose(Application.Transpose(A)) '°}¦CA¼g¤J¤u§@ªí
   
6.     [A1].Offset(UBound(A) + 1).Resize(UBound(B) + 1, 3) = Application.Transpose(Application.Transpose(B)) '°}¦CB¼g¤J¤u§@ªí
   
7.     D = Range("A1").CurrentRegion.Value '±NÀx¦s®æ¸ê®Æ¦s¦¨·s°}¦C
   
8.     Range("A1").CurrentRegion = ""
   
9.     [A1].Resize(UBound(D, 1), UBound(D, 2)) = D '¼g¦^¤u§@ªí
   
10. End Sub

½Æ»s¥N½X