GBKEE

¦^´_ 2# jarodz
¦P¤@­Óworkbook¤UªºsheetÀ³¸Ó¬O¤£¯à¨ú¤@¼Ëªº¦W¦r¡A   ³o¬O¹ïªº

1. Sub Ex()
   
2.     Dim E
   
3.     For Each E In Sheets
   
4.         E.Name = E.Cells(1).Text
   
5.     Next
   
6. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# linsurvey2005
Cells(1)´N¬O A1    ¦p¦³¤@­ÓA1 ¨S¦³¸ê®Æ ¦b¨ºùØ´N·|¦³¿ù»~
Cells(1) ¥i¦¨ RANGE("B25")

GBKEE

¦^´_ 6# linsurvey2005
¤£¤ÓÀ´,¤W¶ÇÀɮ׬ݬÝ

GBKEE

¦^´_ 8# linsurvey2005

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Sh As Worksheet
   
4.     For Each Sh In Sheets
   
5.         If Sh.Name <> "¾ã²zªí" Then
   
6.             With Sheets("¾ã²zªí").Cells(Rows.Count, "a").End(xlUp).Offset(1)
   
7.                 .Cells(1) = Sh.Name
   
8.                 .Cells(1, 2) = Sh.[i38]  ' 6# ¬OI20  ªþÀɬOI38  ¦Û¤v¿ï
   
9.             End With
   
10.         End If
    
11.     Next
    
12. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 10# linsurvey2005
For Each Sh In Sheets     '¨Ì§Ç¸Ì¨C¤@­Ó¤u§@ªí
        If Sh.Name <> "¾ã²zªí" Then   '·í¤u§@ªí¦WºÙ¤£¬O"¾ã²zªí" ¤~°õ¦æªº