この記事では、VBAコードを使用して複数のシートを自動的に並べ替える方法を学習します。

Q）複数のワークシート（すべてではない）のデータを並べ替える方法を知りたいのですが。

[.underline]＃例を見てみましょう：＃3枚のシート（1月、2月、3月）があり、列Aに情報を入力すると、そのうち3枚のシートのみを自動並べ替える必要があります。

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

img1

このワークブックに次のコードを入力します（どのシートにもありません）。これにより、すべてのワークシートでコードが実行されます。

Private Sub Workbook_SheetChange（ByValSh As Object、ByVal Target As Range）

エラー時に次を再開

ケースActiveSheet.Nameを選択

ケース「1月」、「2月」

その他の場合

交差しない場合（Target、Range（ “A：A”））は何もありません

Range（ “A1″）。Sort Key1：= Range（ “A2″）、_

Order1：= xlAscending、Header：= xlYes、_

OrderCustom：= 1、MatchCase：= False、_

オリエンテーション：= xlTopToBottom

終了If

選択の終了

サブの終了

img2

このようにして、情報を入力するときに、複数のシートの特定の列でデータを簡単に並べ替えることができます。これは、時間を節約し、レポートが希望どおりに表示されるようにするための優れた方法です。