返回列表 上一主題 發帖

[發問] (已解決)刪除工作表裡面所有的定義名稱

本帖最後由 GBKEE 於 2011-4-26 16:22 編輯

回復 3# freeffly
1樓提問 :有專門給該工作表使用的定義名稱,有什麼方式可以一次刪除這些專門指定工作表的定義名稱嗎?
2樓的程式會刪掉活頁簿中所有的定義名稱
提供只刪該工作表的定義名稱
  1. Sub Macro1() '定義名稱為該工作表專用的名稱
  2.     Sheet1.Names.Add Name:="ABC", RefersToR1C1:="=R5C2:R13C2"
  3. End Sub

  4. Sub Ex()
  5. For Each E In Sheet1.Names '刪除Sheet1該工作表的名稱
  6. E.Delete
  7. Next
  8. End Sub
複製代碼

TOP

回復 2# chin15


    感謝
     程式碼比想像中的簡單
     原本自己試了很多方法
     就跟正確方法差一些
字典兩各字 還真難理解

TOP

Sub dm()
For Each c In ActiveWorkbook.Names
   c.Delete
Next
End Sub

TOP

        靜思自在 : 站在半路,比走到目標更辛苦。
返回列表 上一主題