GBKEE

¦^´_ 6# iceandy6150

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim xSH As Integer, Sh As Worksheet, xi As Integer, A As Integer
   
4.     A = 6
   
5.     For Each Sh In Sheets
   
6.         If IsNumeric(Sh.Name) Then xSH = xSH + 1
   
7.     Next
   
8.     For xi = xSH + 1 To A
   
9.         Sheets("1").Copy , Sheets(Sheets.Count)
   
10.         Sheets(Sheets.Count).Name = xi
    
11.     Next
    
12. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 8# iceandy6150
¦^´_ 10# hugh0620

1. Private Sub CommandButton2_Click()
   
2.     Dim xSH As Integer, Sh As Worksheet, xi As Integer, A As Integer
   
3.     A = 6
   
4.     For Each Sh In Sheets
   
5.         If IsNumeric(Sh.Name) Then xSH = xSH + 1
   
6.     Next
   
7.     If xSH = 0 Then Exit Sub   '³o¸Ì ¥i°£¿ù
   
8.     For xi = xSH + 1 To A
   
9.         Sheets("1").Copy , Sheets(Sheets.Count)
   
10.         Sheets(Sheets.Count).Name = xi
    
11.     Next
    
12. End Sub

½Æ»s¥N½X