GBKEE

¦^´_ 3# h99949

1. Dim AR()
   
2. Private Sub UserForm_Initialize()
   
3.     AR = Array(TextBox1, TextBox2, TextBox3, TextBox4, TextBox5, TextBox6)
   
4. End Sub
   
5. Private Sub CommandButton1_Click()
   
6.     With [A65536].End(3)(2, 1).Resize(1, UBound(AR) + 1)
   
7.     'With [A65536].End(xlUp).Cells(2, 1).Resize(1, UBound(AR) + 1)
   
8.         .Value = AR
   
9.         .Value = .Value  '¦ý¦p¦ó±NÀx¦s«áªº®æ¦¡§ï¬°¼Æ¦r??
   
10.     End With
    
11. End Sub

½Æ»s¥N½X