excel利用VBA互換兩個單元格或區域中的數據

Excel利用VBA互換兩個單元格或區域中的數據

有時需要在Excel工作表中互換兩個區域中的數據，如果區域相鄰可以直接用拖動鼠標并按住Shift鍵的方法進行互換。而當兩區域不相鄰且兩個區域中的數據量較大時用VBA則較為快捷。例如在互換兩列時可以直接單擊工作表上方的列標題選擇整列，然后執行代碼互換數據。

在工作表中選擇兩個形狀相同的、無公共部分的區域，然后執行下面的代碼，即可互換兩區域中的數據。

Sub TwoAreasSwap()Dim TheArea1, TheArea2 As VariantIf Selection.Areas.Count <> 2 ThenMsgBox "請選擇兩個區域！"Exit SubElseIf Selection.Areas(1).Cells.Count <> Selection.Areas(2).Cells.Count Or _Selection.Areas(1).Rows.Count <> Selection.Areas(2).Rows.Count ThenMsgBox "請選擇兩個形狀相同的區域！"Exit SubElseTheArea1 = Selection.Areas(1).CellsTheArea2 = Selection.Areas(2).CellsSelection.Areas(1).Cells = TheArea2Selection.Areas(2).Cells = TheArea1End IfEnd Sub

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。