同様の行番号をすべて削除する方法が必要な場合は、この記事が役に立ちます。

この記事では、マクロを使用して複数のワークシートの同じ行を削除する方法を学習します。

===

質問）：VBAコードを使用して複数のワークシートの同じ行を削除したい。私が欲しいのは、現在のファイルに存在するシートの数に関係なく、ブックのすべての行を削除するコードです。選択した行番号を5枚すべてから削除したい。

まず、同じ場所にあるすべてのワークシートに同様のデータを入力しましょう

image 1

以下の手順に従う必要があります：

[開発者]タブをクリックし、[コード]グループから[VisualBasic]を選択します

image 2

標準モジュールに次のコードを入力します：-

Sub DeleteRows（）

Dim shtArr、i As Long、xx As Long

shtArr = Array（ “Sheet1″、 “Sheet2″、 “Sheet3″、 “Sheet4″、 “Sheet5″）

xx = Selection.Row

For i = LBound（shtArr）To UBound（shtArr）

Sheets（shtArr（i））。Rows（xx）.EntireRow.Delete

次の私

サブの終了

===

image 3

  • カーソルを任意のセルA1とSheet1に置きます。

Alt + F8 *を押してマクロを実行します。選択した行番号がすべてのシートで削除されていることがわかります。

  • 次のスナップショットは、例としてシート1とシート2のデータを示しています。この演習を実行すると、それぞれのシートすべてに同様の解決策が見つかります。