【Excel】エクセルでのセルや行入れ替え（上下のデータの順番：ショートカット：できない時：やマクロも）の方法

Sub SwapRows()
    Dim inputStr As String
    Dim rowNumbers As Variant
    Dim firstRow As Long, secondRow As Long
    Dim ws As Worksheet

    ' ユーザーに行番号を入力させる
    inputStr = InputBox("入れ替える行番号をカンマ区切りで入力してください（例: 3,5）")

    ' 入力された値をカンマで分割
    rowNumbers = Split(inputStr, ",")

    ' 入力値が2つではない場合は警告を出して終了
    If UBound(rowNumbers) + 1 <> 2 Then
        MsgBox "2つの行番号をカンマ区切りで入力してください。"
        Exit Sub
    End If

    ' 行番号を整数に変換
    firstRow = Val(rowNumbers(0))
    secondRow = Val(rowNumbers(1))

    ' 作業用シートの作成（存在しない場合）
    On Error Resume Next
    Set ws = ThisWorkbook.Worksheets("TempSwap")
    If ws Is Nothing Then
        Set ws = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        ws.Name = "TempSwap"
        ws.Visible = xlSheetVeryHidden ' シートを隠す
    End If
    On Error GoTo 0

    ' 一時的に第一行の内容を作業用シートにコピー
    Rows(firstRow).Copy Destination:=ws.Rows(1)

    ' 第二行の内容を第一行にコピー
    Rows(secondRow).Copy Destination:=Rows(firstRow)

    ' 作業用シートの内容を第二行にコピー
    ws.Rows(1).Copy Destination:=Rows(secondRow)
    Application.CutCopyMode = False

    MsgBox "行 " & firstRow & " と行 " & secondRow & " を入れ替えました。"
End Sub