Webのものを取り除く（Microsoft Excel）

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

WebからExcelワークシートに最初に貼り付けるときは、[形式を選択して貼り付け]や[値を貼り付け]などの操作を検討することをお勧めします。これは、そもそもこれらの不要なオブジェクトをワークシートに取り込むことを防ぐのに役立ちます。

[形式を選択して貼り付け]で目的の結果が得られない場合、または情報とオブジェクトが既に貼り付けられているワークシートで作業している場合は、いくつか試すことができます。ほとんどの人が最初に試みることは、次のように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_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

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

このヒント（6951）は、Microsoft Excel 2007、2010、2013、2016、2019、およびOffice 365のExcelに適用されます。Excelの古いメニューインターフェイス用のこのヒントのバージョンは、次の場所にあります。