register313

¦^´_ 1# VANESSA

VBA

1. Sub Sortsheets()
   
2.     Dim S%, C%, SH%, AR()
   
3.     SH = Worksheets.Count - 1
   
4.     ReDim AR(1 To SH)
   
5.     C = 1
   
6.     For S = 1 To Worksheets.Count
   
7.       If Sheets(S).Name <> "¥Ø¿ý" Then
   
8.          AR(C) = Sheets(S).Name
   
9.          C = C + 1
   
10.       End If
    
11.     Next S
    
12.     Sheets("¥Ø¿ý").[A:A] = ""
    
13.     Sheets("¥Ø¿ý").[A1].Resize(SH, 1) = Application.Transpose(AR)
    
14. End Sub

½Æ»s¥N½X