我们假设这些值是常量。我们将在 C 列中的内容循环：

Let's assume the values are constants. We will make a loop over the stuff in column C:

Sub MultiSwap()
    Dim C As Range, r As Range, v As Variant
    Set C = Range("C:C").Cells.SpecialCells(xlCellTypeConstants)
    For Each r In C
        If r.Value = 1 Then
            v = r.Offset(0, -2).Value
            r.Offset(0, -2).Value = r.Offset(0, -1).Value
            r.Offset(0, -1).Value = v
        End If
    Next r
End Sub