KutoolsforOffice — 一套方案,五大工具。事半功倍。三月特賣:20% 折扣

如何在 Excel 中交換兩列或兩欄的內容?

作者技術支援修改日期

有時在使用工作表時,我們需要交換列或欄的位置。例如,若想將 A 欄與 D 欄互換,第一個想到的通常是使用複製和貼上功能。然而,除了複製貼上之外,其實還有其他更有效率的方法可以達成!

使用 VBA 程式碼交換列或欄

透過 Kutools for Excel 快速又方便地交換列或欄

使用 Kutools for Excel 將資料從列轉置為多個欄


使用 VBA 程式碼交換列或欄

1. 按住 ALT + F11 鍵,即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 點選插入> 模組,並將下列程式碼貼到模組視窗中。

Sub SwapTwoRange()
'Updateby Extendoffice
Dim Rng1 As Range, Rng2 As Range
Dim arr1 As Variant, arr2 As Variant
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1:", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2:", xTitleId, Type:=8)
Application.ScreenUpdating = False
arr1 = Rng1.Value
arr2 = Rng2.Value
Rng1.Value = arr2
Rng2.Value = arr1
Application.ScreenUpdating = True
End Sub

3. 接著點選執行按鈕按鈕以執行程式碼,系統將彈出對話方塊,供您選取要交換的兩個範圍,請參見截圖:

第一個範圍選取對話方塊的螢幕截圖
箭頭
第二個範圍選取對話方塊的螢幕截圖

4. 點選確定後,兩個範圍即完成交換。請參閱截圖:

交換前已選取儲存格的螢幕截圖箭頭交換後儲存格的螢幕截圖

透過 Kutools for Excel 快速又方便地交換列或欄

對於 Excel 初學者來說,VBA 程式碼可能較難上手,是否有更簡單又省時的方法呢?當然有!Kutools for Excel 能讓您快速、輕鬆地交換列或欄。

Kutools for Excel 提供超過 300 項進階功能,簡化複雜作業,提升創造力與效率。整合 AI 功能,Kutools 能精準自動化各項任務,讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊……         免費試用……

若您已安裝 Kutools for Excel,即可快速交換兩欄或兩列!

1. 點選 Kutools> 範圍> 交換區域,請參閱截圖:

Excel 功能區中 Kutools「交換範圍」選項的螢幕截圖

2. 交換區域對話方塊中,先點選範圍選取按鈕按鈕,從 交換的區域 1 選取要交換的 A 欄;再點選按鈕,從 交換的區域 2 選取 D 欄。(注意:用於交換的範圍大小必須相同。

「交換範圍」對話方塊的螢幕截圖

3. 接著點選確定,兩欄內容與儲存格格式皆已同步交換完成。請參見截圖:

使用 Kutools 前欄位的螢幕截圖箭頭使用 Kutools 後欄位的螢幕截圖

透過此交換範圍功能,您不僅能輕鬆交換列或欄,還可靈活交換任意兩個範圍的內容!點此深入了解此功能

Kutools for Excel-透過超過 300 項必備工具全面強化 Excel,讓您的工作更快速、更輕鬆,並運用 AI 功能實現更聰明的資料處理與高效生產力!立即取得

示範:透過 Kutools for Excel 快速交換列或欄

Kutools for Excel:超過 300 種實用工具隨手可得!盡享 AI 驅動功能,讓工作更聰明、更快速!立即下載!

使用 Kutools for Excel 將資料從列轉置為多個欄

透過 Kutools for Excel轉換區域功能,您能快速將資料在單一列(或欄)與多個列(或欄)之間相互轉置,輕鬆提升工作效率!

顯示「轉置範圍」對話方塊及將資料從列轉置為多欄選項的螢幕截圖


相關文章

如何在 Excel 中快速交換兩個儲存格的內容?

最佳 Office 生產力工具

🤖KUTOOLS AI 助手:基於以下內容徹底革新數據分析:智慧執行     產生程式碼  建立自訂公式    分析資料並產生圖表  呼叫增強函數……
熱門功能尋找、醒目提示或標記重複值     刪除空白行     合併列或儲存格而不遺失資料     不使用公式的四捨五入……
高級 LOOKUP多重條件 VLookup    多重數值 VLookup     跨多個工作表 VLookup      模糊查找……
高級下拉列表快速建立下拉式清單     相依式下拉式清單     多選下拉式清單……
欄位管理員新增指定數量的欄位移動欄位切換隱藏欄位的可見狀態比較範圍與欄位……
精選功能網格聚焦     設計視圖   增強編輯欄    工作簿與工作表管理員     資源庫(自動文字)  日期提取     合併工作表    加密/解密儲存格    依清單傳送電子郵件     超級篩選      特殊篩選(篩選粗體儲存格/斜體/刪除線……) ......
頂尖 15 工具組12 文字工具添加文本刪除特定字符,……)   50+ 圖表 類型甘特圖,……)   40+ 實用公式基於生日計算年齡,……)   19 插入工具插入二維碼從路徑插入圖片,……)   12 轉換工具金額轉大寫匯率轉換,……)   7 合併和拆分工具高級合併行分割儲存格,……)……以及更多
在您的慣用語言中使用 Kutools—支援英文、西班牙文、德文、法文、中文及另外 40+ 種語言!

運用 Kutools for Excel 強化您的 Excel 技能,體驗前所未有的高效能!Kutools for Excel 提供超過 300 項進階功能,大幅提升生產力並節省寶貴時間。立即點擊,取得您最需要的功能……


Office Tab 為 Office 帶來分頁式介面,讓您的工作更輕鬆自在!

  • 在 Word、Excel、PowerPoint 中啟用分頁式編輯與閱讀功能,以及 Access、Visio 與 Project。
  • 在同視窗的新分頁中開啟並建立多份文件,而非另開新視窗。
  • 每天為您提升 50% 的工作效率,並省下數百次滑鼠點擊!

所有 Kutools 增益集,一個安裝程式

Kutools for Office 套件整合了 Excel、Word、Outlook 與 PowerPoint 的增益集,以及 Office Tab Pro,非常適合需要跨多個 Office 應用程式協作的團隊使用!

ExcelWordOutlookTabsPowerPoint
  • 全能套件— 包含 Excel、Word、Outlook 與 PowerPoint 增益集,以及 Office Tab Pro
  • 一個安裝程式,一個授權— 數分鐘內即可完成設定(支援 MSI)
  • 協同運作更出色— 在多個 Office 應用程式間實現流暢的生產力體驗
  • 30 天完整功能試用— 無需註冊,無需信用卡
  • 超值之選— 比單獨購買各增益集更省費用