この記事では、特定の列でデータを自動的に並べ替える方法を学習します。

[.underline]#例を見てみましょう:#以下は、私たちが持っているデータのスナップショットです。以下のスナップショットを参照してください:

img1

入力時に列Aのデータを自動的に並べ替えるコードが必要です。

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

img2

作業中のシートに次のコードを入力します。 (この例ではsheet1)

Private Sub Worksheet_Change(ByVal Target As Range)

エラー時に次を再開

交差しない場合(Target、Range( “A:A”))は何もありません

Range( “A1″)。Sort Key1:= Range( “A2″)、_

Order1:= xlAscending、Header:= xlYes、_

OrderCustom:= 1、MatchCase:= False、_

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

終了If

サブの終了

img3

以下は、上記のコードの結果です。

img4

上記のコードは、列Aに変更があるたびにアクティブになります。列Bに変更があるときにマクロをアクティブにする場合は、わずかな調整を行う必要があります

Private Sub Worksheet_Change(ByVal Target As Range)

エラー時に次を再開

交差しない場合(Target、Range( “B:B”))は何もありません

Range( “B1″)。Sort Key1:= Range( “B2″)、_

Order1:= xlAscending、Header:= xlYes、_

OrderCustom:= 1、MatchCase:= False、_

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

終了If

サブの終了

img5

このようにして、特定の列でデータを簡単に並べ替えることができます。列A(最初の例)と列B(2番目の例)に情報を入力すると、コードがトリガーされ、データが自動的に並べ替えられます。これにより、データを定期的に並べ替える必要がある場合に多くの時間を節約できます。