¦p¦ó§â¤u§@ªíªº¦WºÙÅã¥Ü¬°«ü©wªºÀx¦s®æ¤º®e?

irenemak2007

¤u§@ªí¦pªG¤£­«·s©R¦Wªº¸Ü
¦Û°Ê¬°Sheet1¡BSheet2¡BSheet3¤@ª½¦p¤U

¡@¡@A¡@¡@ B¡@¡@ C¡@¡@ D¡@¡@ E
1 qoo
2
3
4
5

Sheet1 Sheet2 Sheet3

¦p¦óÅýSheet1¦Û°ÊÅã¥Ü¬°a1ªº­È"qoo"
¤]´N¬OÅܦ¨
¡@¡@A¡@¡@ B¡@¡@ C¡@¡@ D¡@¡@ E
1 qoo
2
3
4
5

¡@¡@qoo Sheet2 Sheet3

µM«á
¦p¦óÅýSheet1¦Û°ÊÅã¥Ü¬°a1ªº­È"qoo"
¤]´N¬OÅܦ¨
¡@¡@A¡@¡@ B¡@¡@ C¡@¡@ D¡@¡@ E
1 qoo
2 abc
3
4
5

¡@¡@qoo abc Sheet3
ª½¦Ü¹J¨ìªÅ®æ¤~°±¤îÅÜ´«???

¦p¯à¸Ñ¨M¡A¤£³Ó·P¿E!!!

irenemak2007

Hsieh,
You are wonderful! I got it! Thank you very much!

Hsieh

¦^´_ 9# irenemak2007

1. Sub nn()
   
2. With Sheet1
   
3. For Each a In .Range(.[A1], .[A65536].End(xlUp))
   
4.    i = i + 1
   
5.    If i <= Sheets.Count Then
   
6.       Sheets(i).Name = a
   
7.       Else
   
8.       With Sheets.Add(after:=Sheets(Sheets.Count))
   
9.         .Name = a
   
10.       End With
    
11.     End If
    
12. Next
    
13. End With
    
14. End Sub

½Æ»s¥N½X

irenemak2007

¦U¦ì¤j­ô,
AÄæ¦ìªº¸ê®Æµ§¼Æ ¦h¹L sheet¦s¦bªº ¼Æ¶q¡C·í§Ú­Ì¥´¶}¤@­Ó¤u§@ï¡AùØ­±·|¦³¹w©w3±i¤u§@ªí¡C§Ú¦³4­Ó¦WºÙ·QÅܦ¨¦U¦Û4­Ó¤u§@ªíªº¦WºÙ®É¡Aµ²ªG¥u¦³²{¦s3±i¤u§@ªí§ó´«¤F¦WºÙ¡C§Ú´Á±æ²Ä¥|±i¯à¦Û°Ê¼u¥X¨Ó¡A¨Ã¤v§ó§ï¦n¦WºÙ¡C
By the way, I would like to say "thank you" to GBKEE. The marco you published at the beginning can help me to solve another problem. You are so great!

GBKEE

¦^´_  irenemak2007
§Ú²q·Q..¥i¯à¬O±zªºAÄæ¸ê®Æµ§¼Æ¤£¨¬³y¦¨.
·í AÄæ¦ìªº¸ê®Æµ§¼Æ ¤p©ó sheet ¼Æ¶q, ...
jackdream µoªí©ó 2010-8-19 16:20

§Ú²q: ¥i¯à¬OAÄ榳¬Û¦Pªº¸ê®Æ ²£¥Í 1004ªº¿ù»~ "À³¥Îµ{¦¡©Îª«¥ó©w¸q¤Wªº¿ù»~"

jackdream

¦^´_ 5# irenemak2007

§Ú²q·Q..¥i¯à¬O±zªºAÄæ¸ê®Æµ§¼Æ¤£¨¬³y¦¨.

·í AÄæ¦ìªº¸ê®Æµ§¼Æ ¤p©ó sheet ¼Æ¶q,«h solely ¥S¥xªº»yªk´N·|¥X²{¿ù»~.
«Øij¥[­Ó On Error Resume Next
©ÎªÌ¼W¥[§PÂ_¦¡

GBKEE

¦^´_ 5# irenemak2007
solelyªºµ{§Ç¨S¿ù ½Ðªþ¤W¹ê»ÚÀÉ®× ¬Ý¬Ý

irenemak2007

ÁÂÁ§A­Ìªº«ü¾É!
§Ú­nªº¬Osolely ©Ò»¡ªº¡C
¤£¹L¡A§A¨º­Óµ{¦¡¥u¥i§ó§ï¦Ü
sheet3ªº¦WºÙ¡A«á­±ªºsheet 4...sheet21³£¤£¦æ¤F
½Ð°Ý¦³¤èªk¶Ü

solely

¦^´_ 2# GBKEE
§Ú·Q...irenemak2007¤j¡AÀ³¸Ó©M§O¤Hªº­n¨D¤£¦P
¥L¬O·Q­n...¤u§@ªíªº¦WºÙ=Àx¦s®æªº¸ê®ÆXD
Sub yy()
For i = 1 To Sheets.Count
Sheets(i).Name = Cells(i, 1)
Next
End Sub

Hsieh

¦^´_ 1# irenemak2007

1. Sub nn()
   
2. For Each sh In Sheets
   
3. With sh
   
4. If .[A1] <> "" Then .Name = CStr(.[A1])
   
5. End With
   
6. Next
   
7. End Sub

½Æ»s¥N½X