如何實(shí)現(xiàn)Excel表格中兩個(gè)單元格區(qū)域間的數(shù)據(jù)交換呢？通常我們使用剪切粘貼的方法來(lái)完成，但這個(gè)方法比較繁瑣，如果數(shù)據(jù)區(qū)域較大還容易出錯(cuò)。下面我們?cè)囍鴣?lái)編寫(xiě)一個(gè)可以實(shí)現(xiàn)該功能的“宏”吧。

　　打開(kāi)“工具”菜單中的“宏”，選擇“錄制新宏”命令，在個(gè)人宏工作簿中(Personal.xls)創(chuàng)建一個(gè)名為Exchange 的宏，代碼如下：

代碼：

　　判斷用戶是否選擇了兩個(gè)單元格或單元格區(qū)域 If Selection.Areas.Count = 2 Then Set XR = Selection.Areas（1） Set YR = Selection.Areas（2） 判斷選區(qū)是否重疊 If Not Intersect（XR， YR） Is Nothing Then Result = MsgBox（" 選擇區(qū)域有重疊！交換后重疊區(qū)域的數(shù)據(jù)將有部份被覆蓋！" & vbCrLf & " 是否繼續(xù)？"， vbYesNo） If Result = vbNo Then Exit Sub End If If XR.Rows.Count = YR.Rows.Count And XR.Columns.Count = YR.Columns.Count Then 交換選區(qū) SZ1 = XR.Formula SZ2 = YR.Formula XR = SZ2 YR = SZ1 Else MsgBox "選擇的兩個(gè)數(shù)據(jù)區(qū)域大小不一樣！請(qǐng)確認(rèn)重新選擇！" End If Else MsgBox "請(qǐng)按住Ctrl鍵選擇兩個(gè)要交換的數(shù)據(jù)區(qū)域！"

　　自定義一個(gè)工具欄按鈕，并將創(chuàng)建的宏指定給該按鈕即可(如圖)。如果選中的兩個(gè)單元格的區(qū)域大小(單元格個(gè)數(shù))不同或選擇的數(shù)據(jù)少于2個(gè)，系統(tǒng)將會(huì)給出相應(yīng)的出錯(cuò)提示。