^{<noscript id="6aksl"></noscript>}

編寫Excel宏輕松完成單元格數(shù)據(jù)互換

2024-08-23 19:50:52

字體：大中小

供稿：網(wǎng)友

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

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

代碼：

　　'判斷用戶是否選擇了兩個單元格或單元格區(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 "選擇的兩個數(shù)據(jù)區(qū)域大小不一樣！請確認重新選擇！"
End If
Else
MsgBox "請按住Ctrl鍵選擇兩個要交換的數(shù)據(jù)區(qū)域！"