提示:其他語言是Google翻譯的。 你可以訪問 English 版本。
登入
x
or
x
x
註冊
x

or

如何在Excel中的行或列之間交換內容?

有時,當我們使用工作表時,我們需要交換行或列。 例如,我想將列A與列D交換,我想到的第一件事就是使用複制和粘貼命令。 事實上,除了複製和粘貼之外,還有其他一些方法可以解決這個問題。

用VBA代碼交換行或列

使用Kutools for Excel快速方便地交換行或列

使用Kutools for Excel將數據從行轉換為多列



在Excel工作表中快速將數據從行轉換為多列:

Kutools for Excel變換範圍 功能,您可以快速將數據從一行或一列轉換為多行或多列,反之亦然。

doc轉置數據

Kutools for Excel:比200方便的Excel加載項,可以在60天免費試用。 下載並免費試用現在!


1。 按住 ALT + F11 鍵,然後打開 Microsoft Visual Basic for Applications 窗口。

2。 點擊 插入 > 模塊,並將以下代碼粘貼到 模塊 窗口。

Sub SwapTwoRange()
'Updateby20131113
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。 然後點擊 按鈕來運行代碼,彈出一個對話框供您選擇要與之交換的兩個範圍,請參閱屏幕截圖:

doc交換行列01 01
 1
doc交換行列02 02

4。 點擊後 Ok,兩個範圍交換。 查看屏幕截圖:

doc交換行列01 01  2 doc交換行列02 02

對於Excel的初學者來說,代碼可能很難,有沒有簡單的方法可以快速,省時地完成。 當然,Kutools for Excel可以幫助您快速,舒適地交換行或列。

Kutools for Excel : 與超過300方便的Excel加載項,在60天免費試用沒有限制.

如果你已經安裝 Kutools for Excel,你可以快速交換兩列或幾行。

1. 點擊 Kutools > 範圍 > 交換範圍,看截圖:

doc交換行列02 02

2.交換範圍 對話框,單擊 按鈕 交換範圍1 選擇要交換的列A,然後單擊 按鈕 交換範圍2 選擇列D.( 注意:交換的範圍必須相同,大小相同。)

doc交換行列02 02

3。 然後點擊 OK。 這兩列已交換,並且單元格格式也被交換。 查看屏幕截圖:

doc交換行列01 01  2 doc交換行列02 02

有了這個 交換範圍您不僅可以交換行或列,還可以交換兩個範圍的內容。 點擊此處了解更多關於此功能的信息.

立即下載並免費試用Kutools for Excel!


Kutools for Excel:比200方便的Excel加載項,可以在60天免費試用。 下載並免費試用現在!


相關文章:

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


Kutools for Excel解決了您的大多數問題,並使您的生產率提高了80%

  • 重用: 快速插入 複雜的公式,圖表 以及你以前用過的任何東西; 加密單元格 密碼; 創建郵件列表 並發送電子郵件...
  • 超級方程式酒吧 (輕鬆編輯多行文字和公式); 閱讀佈局 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不丟失數據; 分裂細胞含量; 組合重複的行/列...防止重複的細胞; 比較範圍...
  • 選擇複製或唯一 行; 選擇空行 (所有細胞都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇......
  • 精確複製 多個單元格而不更改公式參考; 自動創建參考 多張表; 插入項目符號,複選框等等......
  • 提取文本,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級過濾器 (將過濾方案保存並應用到其他工作表); 高級排序 按月/週/日,頻率等; 特殊過濾器 用粗體,斜體......
  • 結合工作簿和工作表; 根據鍵列合併表; 將數據拆分為多個表格; 批量轉換xls,xlsx和PDF...
  • 超過300強大的功能。 支持Office / Excel 2007-2019和365。 支持所有語言。 在您的企業或組織中輕鬆部署。 全功能30天免費試用。
kte tab 201905

Office選項卡為Office提供選項卡式界面,使您的工作更輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,Publisher,Access,Visio和Project。
  • 在同一窗口的新選項卡中打開並創建多個文檔,而不是在新窗口中。
  • 通過50%提高您的工作效率,每天為您減少數百次鼠標點擊!
官方底部
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Akhil · 4 years ago
    Okk is there any way we can create a MACRO for it to do it fast bcz it won't be possible everytime to copy that code from somewhere and put it out there to Swap that Rows and Columns .
  • To post as a guest, your comment is unpublished.
    Sean · 4 years ago
    or you can just hold the shift key and drag the column where you want it to go
  • To post as a guest, your comment is unpublished.
    Kinane · 4 years ago
    I've tried the VBA code solution.
    It seemed to work fine until now.
    In the range i swap, there is a URL cell (i.e. hyperlink). Although the swap looks ok, the hyperlinks are not updated. It still points to the URL of the original range.
    Is there any code patch to handle this?
    thank you.
  • To post as a guest, your comment is unpublished.
    richy · 4 years ago
    Learn how to spell. Ridiculous. Emial. Really?
  • To post as a guest, your comment is unpublished.
    joey · 4 years ago
    Please learn how to spell before posting on the web.
  • To post as a guest, your comment is unpublished.
    karolans · 5 years ago
    So in short, there is no built-in way to swap columns. Fail :)