GBKEE

¦^´_ 3# freeffly
1¼Ó´£°Ý :¦³±Mªùµ¹¸Ó¤u§@ªí¨Ï¥Îªº©w¸q¦WºÙ,¦³¤°»ò¤è¦¡¥i¥H¤@¦¸§R°£³o¨Ç±Mªù«ü©w¤u§@ªíªº©w¸q¦WºÙ¶Ü?
2¼Óªºµ{¦¡·|§R±¼¬¡­¶Ã¯¤¤©Ò¦³ªº©w¸q¦WºÙ
´£¨Ñ¥u§R¸Ó¤u§@ªíªº©w¸q¦WºÙ

1. Sub Macro1() '©w¸q¦WºÙ¬°¸Ó¤u§@ªí±M¥Îªº¦WºÙ
   
2.     Sheet1.Names.Add Name:="ABC", RefersToR1C1:="=R5C2:R13C2"
   
3. End Sub
   
4. 
   
5. Sub Ex()
   
6. For Each E In Sheet1.Names '§R°£Sheet1¸Ó¤u§@ªíªº¦WºÙ
   
7. E.Delete
   
8. Next
   
9. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# freeffly
²¤Æ¤@¤U

1. Sub §R°£¦WºÙ()
   
2.     For I = 4 To Sheets.Count
   
3.         For Each c In Sheets(I).Names
   
4.             c.Delete
   
5.         Next
   
6.     Next
   
7. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 8# chin15
³o´N­n½Ð±Ð¼Ó¥Dªº»Ý¨D¬O¤°»ò