Excelでヘッダーをクリックして列データを並べ替えるにはどうすればよいですか？

ある範囲のデータがあると仮定して、次のスクリーンショットに示すように、任意の列ヘッダーをクリックしてデータを昇順または降順で並べ替えたいと考えています。この作業をExcelでどのように解決できますか？

VBAコードを使用して列ヘッダーをクリックしてデータを並べ替える

VBAコードを使用して列ヘッダーをクリックしてデータを並べ替える

通常、Excelでは、データを迅速かつ簡単に並べ替えるために「並べ替え」機能を使用できますが、セルをクリックするだけでデータを並べ替えるには、次のVBAコードが役立ちます。

1. データをセルをクリックして並べ替えたいワークシートのタブを右クリックし、コンテキストメニューから「コードの表示」を選択します。開いた Microsoft Visual Basic for Applicationsウィンドウで、次のコードを空白のモジュールにコピーして貼り付けます。

VBAコード：セルまたは列ヘッダーをクリックしてデータを並べ替える：

Public blnToggle As Boolean
Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice
Dim LastColumn As Long, keyColumn As Long, LastRow As Long
Dim SortRange As Range
LastColumn = _
Cells.Find(What:="*", After:=Range("A1"), _
SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
keyColumn = Target.Column
If keyColumn > LastColumn Then Exit Sub
Application.ScreenUpdating = False
Cancel = True
LastRow = Cells(Rows.Count, keyColumn).End(xlUp).Row
Set SortRange = Target.CurrentRegion
blnToggle = Not blnToggle
If blnToggle = True Then
SortRange.Sort _
Key1:=Cells(2, keyColumn), Order1:=xlAscending, Header:=xlYes
Else
SortRange.Sort _
Key1:=Cells(2, keyColumn), Order1:=xlDescending, Header:=xlYes
End If
Set SortRange = Nothing
Application.ScreenUpdating = True
End Sub

2. そして、コードウィンドウを保存して閉じます。これで、データ範囲内の任意のセルまたは列ヘッダーをダブルクリックすると、その列が昇順で並べ替えられ、もう一度ダブルクリックすると、その列がすぐに降順で並べ替えられます。

関連記事：

セルをクリックしてセルの値を変更するにはどうすればよいですか？

Excelでセルの内容をクリックするだけでデータをフィルタリングするにはどうすればよいですか？