Question

在Excel中如何编写代码，实现在用鼠标先后点选两个单元格后，里面的内容自动交换

请教高手，在Excel中如何编写代码，实现在用鼠标先后点选两个单元格后，里面的内容自动交换（可以将代码写在按钮里）？

Answer 1

Sub d()
Dim ss, s As Range
Set s = Selection
If s.Areas.Count = 2 Then
If s.Areas(1).Cells.Count = 1 And s.Areas(2).Cells.Count = 1 Then
ss = s.Areas(1).Cells(1, 1).Value
s.Areas(1).Cells(1, 1).Value2 = s.Areas(2).Cells(1, 1).Value
s.Areas(2).Cells(1, 1).Value2 = ss
End If
End If
End Sub