🔄
SortData
データ処理A列（A1:A100）のデータを昇順に並び替えます
🎬 デモGIF準備中
📖 使い方
- VBAエディタを開く（Alt + F11）
- モジュールを挿入（挿入 > モジュール）
- 下記VBAコードをコピー&ペースト
- ブック上で実行（Alt + F8 でマクロ選択）
💡 実行例： アクティブシートのA1:A100にデータを用意してマクロを実行。A列が昇順に並び替えられます（1行目はヘッダーとして保持）。
💻 VBAコード
Sub SortData()
On Error GoTo ErrHandler
Dim ws As Worksheet
Set ws = ActiveSheet
If ws Is Nothing Then
MsgBox "アクティブなシートが見つかりません", vbCritical
Exit Sub
End If
If Application.WorksheetFunction.CountA(ws.Range("A1:A100")) = 0 Then
MsgBox "データが見つかりません", vbCritical
Exit Sub
End If
ws.Sort.SortFields.Clear
ws.Sort.SortFields.Add Key:=ws.Range("A1:A100"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ws.Sort
.SetRange ws.Range("A1:A100")
.Header = xlYes
.MatchCase = False
.Orientation = xlSortRows
.SortMethod = xlPinYin
.Apply
End With
Exit Sub
ErrHandler:
MsgBox "エラーが発生しました: " & Err.Description, vbCritical
End Sub