エクセルの名前定義の一括削除の方法

スポンサードサーチ（詳細）

<< 前の質問 | 次の質問 >>

会社に数年前からあるエクセルファイルなのですが、
全てのセルに1,300以上の名前が定義されています。

これらの全てのセルの「名前の定義」を一括で削除することは可能ですか？

これらの定義があるがために、その他ファイルからのコピーがうまくできません。

投稿日時 - 2007-05-25 10:04:47

通報する

QNo.3028652

shink1114

すぐに回答ほしいです

質問者が選んだベストアンサー

VBAを使えば可能だと思います。
[Alt+F11]でVisual Basei Editorを起動し、
[ThisWorkbook]の中にでも以下のコードをコピペして
[標準]ツールバーの中にある、右向き△ボタン（[Sub/ユーザーフォームの実行]）を押します。

Sub 名前定義一括削除()
　Dim objName As Name
　For Each objName In ActiveWorkbook.Names
　　objName.Delete
　Next objName
End Sub

なお、VBAを実行して変更した分は「元に戻す」機能がききませんので
あらかじめファイルのバックアップをとっておくとよいでしょう。
成功したら、上のコードはDeleteで消去してください。

投稿日時 - 2007-05-25 10:33:36

お礼

早速のご回答ありがとうございました。
無事削除できました。

投稿日時 - 2007-05-25 13:44:14

回答を評価する （0）

通報する

ANo.1

shanglee

このQ&Aは役に立ちましたか?

はい

14人が「このQ&Aが役に立った」と投票しています

[ 前へ | 次へ ]

ベストアンサー以外の回答（2件中　1～2件目）

ANo.3

hana-hana3

ＶＢＡで可能です。
印刷範囲とオートフィルタの設定は残ります。
ファイルのバックアップを取った上で使用してください。

Sub delname()
Dim obj As Variant
Dim tmp As String

For Each obj In ThisWorkbook.Names
tmp = obj.Name
If InStr(tmp, "FilterDatabase") = 0 And InStr(tmp, "Print_Area") = 0 Then obj.Delete
Next
End Sub

投稿日時 - 2007-05-25 10:47:49

お礼

早速のご回答ありがとうございました。
無事削除できました。

投稿日時 - 2007-05-25 13:44:31

回答を評価する（1）

通報する

ANo.2

shanglee

No.1です。すみません、訂正です。

誤：Visual Basei Editor
正：Visual Basic Editor

メニューバーの[ツール]-[マクロ]-[Visual Basic Editor]でも起動できます。

投稿日時 - 2007-05-25 10:36:58

回答を評価する（0）

通報する