Delete Entire Row using VBA – Excel Macro Example Code

Excel VBA code to Delete Entire Row example will help us to delete rows in excel worksheet.Excel マクロ例では、行を削除するのに役立ちます。 我々は、全体の行を削除するには、行のDeleteメソッドを使用することができます。 この例では、VBAを使用してExcelワークシートの行全体を削除する方法が表示されます。 行全体を削除するマクロのExcel VBAコードは、Microsoft Excel 2003、Excel 2007、Excel 2010、およびExcel 2013.

VBA code to Delete Entire Row

Here is the VBA delete entire row macro syntax and Example VBA Macro code to Delete Entire Row from excel worksheets.It は、Excelワークシートから行全体を削除するマクロのシンタックス（構文）と例のVBAコードだ。 これは、VBAを使用してExcelワークブックから行全体を削除する方法を知るのに役立ちます。

VBA Delete Entire Row: Syntax

Following is the VBA delete entire row macro Syntax and sample VBA macro command to Delete Entire Row from workheet using VBA.VBA を使用してワークシートから行を削除します。 ワークシートの行オブジェクトのDeleteメソッドを使用しています。


Rows(

).EntireRow.Delete


ここで、行番号は削除する行番号です。

VBAで行全体を削除する。 例

The following Excel VBA delete entire row macro code is to delete entire row from the worksheet.The VBA delete entire row macro code is to delete the entire row from the workheet.The Excel VBA delete entire row macro code is from the workheet. このVBAは行全体を削除するマクロは、我々はコードに記載されている行を削除します。

Sub sbVBS_To_Delete_EntireRow () Rows(1).EntireRow.DeleteEnd Sub

行全体を削除するVBAマクロコードを実行する手順

VBAは行全体を削除するマクロを実行するには、次の手順に従ってください。
Step 2: Alt+F11を押してください – これは、VBA Editor.を開きます。
Step 3: 次に挿入メニューからコードモジュールを挿入します。
Step 4: 上記のコードをコピーして、上記のstep.
Step 5に挿入したコードモジュールに貼り付けてください：1行にいくつかのサンプルデータを入力します。
Step 6: 今すぐF5キーを押してコードを実行します。

今、あなたは行1全体がワークシートから削除されていることを観察することができます。

行全体を削除するVBAコードの説明：

シートから行全体を削除するVBAコードを記述するプログラムおよびサブ手続きを開始します。
Sub sbVBS_To_Delete_EntireRow_C()

「削除する行を指定し、EntireRow.Deleteメソッドで行を削除」
Rows(1).EntireRow.Delete

「行全体を削除するサブ手続きを終了」
End Sub

ここでRows（1）はワークシート1行を削除するようにエクセルへ伝えるためのものです。 そしてDeleteメソッドはワークシートから行全体を削除します。

VBA to Delete Entire Row in Excel :

あなたがExcelで最初のいくつかの行を削除したい場合は、削除コマンドを数回繰り返すことができます。 次のVBAの行全体を削除するマクロコード例では、ワークシートの最初の3つの行を削除する方法を紹介します。

Sub sbVBS_To_Delete_FirstFewRows_in_Excel() Rows(1).EntireRow.Delete Rows(1).EntireRow.Delete Rows(1).EntireRow.DeleteEnd Sub

この例では、削除コマンドが3回繰り返されていることがわかります。 それは、まず最初の行を削除するときに、最初の行を削除します。 次の行は（2行目）最初の行になります。 そこで、もう一度1行目を削除すると 次の行(3行目)が1行目になります。 つまり、VBAを使って最初の3行を削除したことになります。

VBA to Delete Entire Row in Excel : VBA code Explained

以下、VBA delete entire rowMacro to Delete first three rows in Excelを説明します。

最初の数行（3行）を削除するVBAコマンドを書く手順を開始します
Sub sbVBS_To_Delete_FirstFewRows_in_Excel_C()

『1行目が削除
Rows（1）.EntireRow.Delete』

『1行目が削除された
Rows（1）.EntireRow.Delete
‘今度は2行目が1行目になる-またまた1行目を削除しています
Rows(1).EntireRow.Delete
‘今度は3行目が1行目になる-またまた削除コマンドで1行目を削除しています
Rows(1).EntireRow.Delete
‘今度は1行目を削除している-
Rows(1).EntireRow.Delete’We have deleted the first 3 rows, and ending the sub procedure here.
End Sub

VBA to Delete Entire Row in Excel : Using For Loop

以下は、For Loopを使って最初の数行を削除するサンプルVBAマクロです。 VBAのForループを使って最初の10レコードを削除します。

Sub sbVBS_To_Delete_EntireRow_For_Loop()Dim iCntr For iCntr = 1 To 10 Step 1 Rows(1).EntireRow.Delete NextEnd Sub

VBA to Delete Entire Row in Excel : Using For Loop – Explanation

以下は、VBAのForループを使った行削除の詳細説明です。

VBAのforループを使って行を削除するVBAマクロを書くためのサブプロシージャを開始します
Sub sbVBS_To_Delete_EntireRow_For_Loop_C()
‘for loop反復を格納する変数iCntrを宣言する。
Dim iCntr
‘forループで行をループし、ここでstep文はiCntrの増分を示す.
For iCntr = 1 To 10 Step 1
‘最初の行を削除する.
Rows（1）.EntireRow.Delete
Next
‘We have delete the first row 10 times, that means we have deleted the first 10 rows in excel sheet using for loop and VBA.
End Sub

VBA to Delete Entire Row in Excel : Using Do while Loop

以下はVBA delete entire row macro to delete the first few rows using Do while Loopのサンプルになります。 これは、VBAのForループを使用して最初の10レコードを削除します。

Sub sbVBS_To_Delete_EntireRow_Do_while_Loop()Dim iCntriCntr = 10 ' Last row Do While iCntr >= 1 Rows(iCntr).EntireRow.Delete iCntr = iCntr - 1 LoopEnd Sub

VBA to Delete Entire Row in Excel : Using Do while Loop – Explanation

以下は、上記のVBA delete entire row Macro to delete Rows using Do while loop の説明です。

Dowhileループを使って行を削除するVBAマクロを起動します。
Sub sbVBS_To_Delete_EntireRow_Do_while_Loop()
‘Declaring the variable store last row number and use it as counter variable.
Dim iCntr
‘assigning the last row value to iCntr…最終行番号を格納している変数を宣言します。
iCntr = 10 ‘ 最終行
‘do whileループを使って、最後（10行目）から行を削除しています.
Do While iCntr >= 1
Rows(iCntr).EntireRow.Dim
Dim iCntr = 10 ‘ 最終行から行を削除しています。Delete
iCntr = iCntr – 1
Loop
‘ending the sub procedure here.
End Sub

ここで、最後から最初の行までループしていることが確認できます。 これは、ワークシートから行を削除している間、正確なコードになります。 常に最後の行から最初の行に削除します。