🔄
RemoveDuplicates
データ処理A列（A1:A100）の重複データを削除します
🎬 デモGIF準備中
📖 使い方
- VBAエディタを開く（Alt + F11）
- モジュールを挿入（挿入 > モジュール）
- 下記VBAコードをコピー&ペースト
- ブック上で実行（Alt + F8 でマクロ選択）
💡 実行例： アクティブシートのA1:A100にデータを用意してマクロを実行。A列の重複行が削除されます（1行目はヘッダーとして保持）。
💻 VBAコード
Sub RemoveDuplicates()
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.Range("A1:A100").RemoveDuplicates Columns:=1, Header:=xlYes
Exit Sub
ErrHandler:
MsgBox "エラーが発生しました: " & Err.Description, vbCritical
End Sub