このVBAマクロは、Excelの列に新しいデータを入力するか値を変更するとすぐに、特定の列のすべてのデータを自動的に並べ替えます。

1。 で現在のシート名を右クリックします シートタブバー、をクリックします。 コードを表示 右クリックメニューから。

2。 開いているMicrosoftVisual Basic for Applicationダイアログボックスで、次のVBAマクロコードを開いているウィンドウに貼り付けます。

VBA：Excelの列の自動並べ替え

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Range("B1").Sort Key1:=Range("B2"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End Sub

Note:
1) 上記の vba コードでは、 B：B 列Bを自動ソートすることを意味し、 B1 は列 B の最初のセルです。 B2 は列 B の XNUMX 番目のセルで、必要に応じて変更できます。
2) スニペット ヘッダー:=xlはい 5行目には、ソートする範囲にヘッダーがあることをExcelに伝え、ソート時に範囲の最初の行が含まれないようにします。 ヘッダーがない場合は、に変更してください ヘッダー:=xlNo; 変更する Key1:=Range("B2") 4行目に Key1:=Range("B1").

3。 次に、ワークシートに戻ります。[価格]列に新しい数値を入力するか、既存の価格を変更すると、[価格]列が自動的に昇順で並べ替えられます。

Note注: [価格] 列に新しい数値を入力する場合は、元の数値の下にある最初の空白セルに数値を入力する必要があります。 新たに入力した数値と元の数値の間に空白のセル、元の数値の間に空白のセルがある場合、この列は自動的に並べ替えられません。

Excelで発生頻度で簡単に並べ替える

Excel用のKutools 高度な並べ替え ユーティリティは、Excelでのテキストの長さ、姓、絶対値、頻度などによるデータの並べ替えをすばやくサポートします。