Grantは、Webページから情報を定期的にコピーし、その情報をワークシートに貼り付けます。彼は、生データだけでなく、チェックボックス、写真、ロゴなどの他のアイテムも使用することになります。Grantは、これらすべての非データアイテムを簡単に削除する方法を望んでいます。

ほとんどの人が最初に試みることは、次のようにGo ToSpecialを使用することです。

。 F5を押します。 Excelに[移動]ダイアログボックスが表示されます。

。 [特別]ボタンをクリックします。 Excelは、[特別に移動]ダイアログボックスを表示します。

（図1を参照）

。 [オブジェクト]オプションを選択します。

。 [OK]をクリックします。

これを行うと、Excelはワークシート内のいくつかのオブジェクトを選択し、Deleteキーを押してそれらを取り除くことができます。

問題は、このメソッドがワークシート内のすべての非データ項目を選択しないことです。それらのサブセット、つまりExcelによって「オブジェクト」と見なされるアイテムのみが選択されます。

より良い解決策は、マクロを使用してワークシート内のすべての形状を選択してから削除することです。これは、次のようなマクロを使用して行うのはかなり簡単です。

Sub DeleteAllShapes1()

Dim shp As Shape     For Each shp In ActiveSheet.Shapes         shp.Delete     Next End Sub

マクロは、アクティブなワークシートの各図形をループして、それぞれを削除します。ワークシートに貼り付けられているすべてのハイパーリンクも削除することで、マクロを少し拡張することができます。必要なのは、1行追加することだけです：

Sub DeleteAllShapes2()

Dim shp As Shape     For Each shp In ActiveSheet.Shapes         shp.Delete     Next     ActiveSheet.Hyperlinks.Delete End Sub

なんらかの奇妙な理由で、これらのマクロが削除したいすべての非データ項目を削除しない場合、使用できる別のアプローチがあります：

Excelの前にメモ帳で停止します。 Webデータを空白のメモ帳ドキュメントに貼り付けてから（貼り付けた後）その情報を選択し、クリップボードにコピーして戻します。次に、それをExcelに貼り付けます。

残っているのはストレートデータだけです。

注：

このページ（または_ExcelTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

link：/ excelribbon-ExcelTipsMacros [ここをクリックして、新しいブラウザタブでその特別なページを開きます]。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（2881）は、Microsoft Excel 97、2000、2002、および2003に適用されます。Excel（Excel 2007以降）のリボンインターフェイス用のこのヒントのバージョンは、次の場所にあります。

link：/ excelribbon-Get_Rid_of_Web_Stuff [Get Rid of WebStuff]。