エクセル小僧：名前重複を解消する[予告？] [コンピューター]
ここ１年、苦労してきた問題が解決![[exclamation&question]](https://blog.ss-blog.jp/_images_e/159.gif)
エクセルファイルに見知らぬ名前がたくさんできていて、
『名前管理』ウィンドウには表示されない名前なんだけど、
シートコピーすると、『名前の重複』ダイアログボックスが山のようにへんてこりんな名前が出てくる。。
何てことは経験されたことがおありでしょうか？
このゾンビのような名前を一括消去するマクロを見つけました。
http://trash-area.com/archives/677
このマクロを使用しますと、"Print_Area"と"Print_Titles"以外の名前はすべて消去されます。
なので、残したい名前が他にある場合は、DeleteDefinedNames()マクロの
Dim n As Name
For Each n In ActiveWorkbook.Names
If Not n.Name Like "*!Print_Area" And _
Not n.Name Like "*!Print_Titles" Then
n.Delete
End If
Next
の部分を変更する必要があります。変更後のマクロについてはおいおい。。![[猫]](https://blog.ss-blog.jp/_images_e/101.gif)
エクセルファイルに見知らぬ名前がたくさんできていて、
『名前管理』ウィンドウには表示されない名前なんだけど、
シートコピーすると、『名前の重複』ダイアログボックスが山のようにへんてこりんな名前が出てくる。。
何てことは経験されたことがおありでしょうか？
このゾンビのような名前を一括消去するマクロを見つけました。
http://trash-area.com/archives/677
このマクロを使用しますと、"Print_Area"と"Print_Titles"以外の名前はすべて消去されます。
なので、残したい名前が他にある場合は、DeleteDefinedNames()マクロの
Dim n As Name
For Each n In ActiveWorkbook.Names
If Not n.Name Like "*!Print_Area" And _
Not n.Name Like "*!Print_Titles" Then
n.Delete
End If
Next
の部分を変更する必要があります。変更後のマクロについてはおいおい。。
nice! ありがとうございます。
(^_0)ノ
by cheese999 (2012-11-03 18:42)