VBAでExcelの通常の退屈なタスクを自動化する一方で、各シートをループする必要があります。もちろん、それがあなたがここにいる理由です。

ブック内のシートをループするコードを見てみましょう。

Activeworkbookおよび印刷シートのすべてのシートでループするVBAコード名前

Sub loopSheets()

For Each ws In ActiveWorkbook.Worksheets

Debug.Print ws.Name

Next ws

End Sub

上記のvbaコードは、アクティブなブックの各シートをループし、シート名を出力します

0088

どのように機能しますか?

とても簡単です。各ワークシートをwsのアクティブなブックに保存し、nameメソッドを使用してその名前を出力するようにVBAに指示します。

1つを除くすべてのシートをループする

したがって、1つのマスターシートで複数のシートをマージしようとしている場合は、各シートをループする必要があります。各シートのデータをマスターシートにコピーします。ただし、マスターシートをループから除外する必要があります。マスターシートに「マスター」という名前を付けたとします。その場合は、次の方法を使用してください:

Sub loopSheets()



For Each ws In ActiveWorkbook.Worksheets

If ws.Name <> "Master" Then

Debug.Print ws.Name & " Copied"

End If

Next ws

End Sub

上記のコードとほぼ同じですが、Ifステートメントが追加されているだけです。

If ws.Name <> "Master" Then

この行は、現在のワークシートの名前が「マスター」であるかどうかを確認します。そうでない場合は、ifブロック間のコードが実行されます。それ以外の場合、ブロックがスキップされた場合はその中のコード。

0089

そうですね、これでワークシートをExcelでループできます。次に、vbaを使用して複数のシートを1つに統合する方法を学習します。

ファイルをダウンロード

`link:/wp-content-uploads-2019-11-How-To-Loop-Through-Sheets-In-Excel-Using-VBA.xls [__VBAを使用してExcelでシートをループする方法]

関連記事:

link:/ files-workbook-and-worksheets-in-vba-add-and-save-new-workbook-using-vba-in-microsoft-excel [Microsoft Excel2016でVBAを使用して新しいブックを追加および保存する]

link:/ menus-toolbars-status-bar-in-vba-display-a-message-on-the-statusbar-using-vba-in-microsoft-excel [ExcelのVBAステータスバーにメッセージを表示する]

link:/ general-topics-in-vba-turn-off-warning-messages-using-vba-in-microsoft-excel [Microsoft Excel2016でVBAを使用して警告メッセージをオフにする]

人気の記事:

link:/ Tips-countif-in-microsoft-excel [COUNTIF in Excel 2016]

link:/ excel-formula-and-function-excel-sumif-function [ExcelでSUMIF関数を使用する方法]