→ udm:先謝謝樓上,但是樓上的那種等於是插入,仍非我想要的『互換』 10/19 01:17
→ windknife18:不會阿,我試的結果會互換阿? 10/19 08:58
→ udm:或許你用的是整列換整列....可是我想要的是單格對單格互換.... 10/20 00:58
→ udm:如果是鄰近的兩格,當然看起來是互換。但相距遙遠的兩格, 10/20 00:59
→ udm:就看得出來,實是插入,而非互換QQ 10/20 00:59
→ udm:我找到方法了! 10/20 02:33
http://zhidao.baidu.com/question/104634162.html?fr=qrl&cid=864&index=2&fr2=query
短網址為:
http://0rz.tw/ZEyyf
配上設巨集及自設按鈕與自設按鍵即可!
謝謝了^^
※ 編輯: udm 來自: 121.254.70.53 (10/20 02:35)
→ windknife18:還真的是弄錯了說! 10/21 16:35
在Excel中如何编写代码,实现在用鼠标先后点选两个单元格后,里面的内容自动交换
悬赏分:0 - 解决时间:2009-7-6 11:19
请教高手,在Excel中如何编写代码,实现在用鼠标先后点选两个单元格后,里面的内容
自动交换(可以将代码写在按钮里)?
提问者: qfczyb - 助理 四级
最佳答案
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
回答者: juou88 - 助理 四级 2009-7-4 09:44