同一行中的二个单元格内容互换

wengjl

求助坛中大伽，我想要选中同一行中的二个不相邻的单元格，然后单击右键 ，将二个单元格的内容互换，是否可以用VBA实现？

麻烦提供帮助，谢谢！

二个同时选中后，点一下鼠标右键直接对换。
如果能实现这个功能，排课表时，调整处理就变得容易多了。请高手赐教。谢谢！

liulang0808

cidanji

1. Private Sub Worksheet_BeforeRightClick(ByVal T As Range, Cancel As Boolean)
   
2. Dim n&, a As Range, b As Range, tm
   
3. n = T.Areas.Count
   
4. If n <= 2 And T.CountLarge = 2 And T.Areas(1).Rows.Count * T.Areas(n).Rows.Count = 1 And T.Areas(1).Row = T.Areas(n).Row Then
   
5.     Cancel = True
   
6.     Set a = T.Areas(1)(1)
   
7.     Set b = T.Areas(n).Cells(T.Areas(n).Cells.Count)
   
8.     tm = a: a = b: b = tm
   
9. End If
   
10. End Sub

复制代码

wengjl

非常感谢二位的帮助，谢谢谢谢！