主要通过开发者工具来操作
代码如下：
Private Sub CommandButton1_Click()
Dim cell1 As Range
Dim cell2 As Range
Dim temp As Variant
Set cell1 = Application.InputBox("请选择第一个单元格", "选择单元格", Type:=8)
Set cell2 = Application.InputBox("请选择第二个单元格", "选择单元格", Type:=8)
Dim originalCell1Value As Variant
Dim originalCell2Value As Variant
originalCell1Value = cell1.Value
originalCell2Value = cell2.Value
temp = cell1.Value
cell1.Value = cell2.Value
cell2.Value = temp
If MsgBox("操作是否正确？", vbYesNo + vbQuestion) = vbNo Then
' 恢复原始数据
cell1.Value = originalCell1Value
cell2.Value = originalCell2Value
End If
End Sub