Hsieh

¦^´_ 1# show5217

1. Private Sub CommandButton1_Click()
   
2. ReDim ar(1 To TextBox1)
   
3. mystr = Split([A1], "-")(0) & "-"
   
4. For i = 1 To TextBox1.Value
   
5.   ar(i) = mystr & Replace([A1], mystr, "") + i - 1
   
6. Next
   
7. [A1].Resize(TextBox1, 1) = Application.Transpose(ar)
   
8. End Sub
   
9. 
   
10. Private Sub CommandButton2_Click()
    
11. Range([A2], [A2].End(xlDown)).ClearContents
    
12. End Sub

½Æ»s¥N½X