如何將列和行轉置／轉換為單行？

Author Xiaoyang Last modified 2025-08-23

如何將多行多列合併成一個長行？也許這對您來說很簡單，因為您可以逐一手動複製並將它們合併到一行中。但如果存在數百行列，這將非常耗時且繁瑣。在這裡，我將介紹一些快速技巧來解決這個問題。

使用公式將列和行轉置／轉換為單行

使用VBA代碼將列和行轉置／轉換為單行

使用Kutools for Excel將列和行轉置／轉換為單行

使用公式將列和行轉置／轉換為單行

太棒了！在 Excel 中像 Chrome、Edge、Firefox 和 Safari 一樣使用 Efficient Tabs！
每天為您節省 50% 的時間，並減少數以千計的滑鼠點擊！

假設您有一個如下截圖所示的數據範圍，您可以使用一個長公式將該範圍的數據轉換到新工作表的一行中。

doc-convert-range-to-row1

請應用以下公式：

1. 在當前工作簿的新工作表中，點擊單元格A1，複製並粘貼此公式：=OFFSET(Sheet1!$A$1,((ROW()-1)*5)+(FLOOR(COLUMN()-1,4)/4),(COLUMN()-1)-(FLOOR(COLUMN()-1,4)))

備註：Sheet1!$A$1 是您要使用的目標工作表和範圍引用。

ROW()-1)*5，5 代表行數；而 COLUMN()-1,4)/4 中的 4 代表列數。您可以根據需要更改這些值。

2. 然後向右拖動填充柄，直到出現數字0。這樣，範圍內的所有數據都已轉置到新工作表的單行中。請參見截圖：

doc-convert-range-to-row2

使用VBA代碼將列和行轉置／轉換為單行

以下VBA代碼也可以幫助您將一系列數據轉換為一行。

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

2. 點擊插入 > 模塊，然後在模塊窗口中粘貼以下代碼。

Sub TransformOneRow()
'Updateby20131120
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Ranges to be transform :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Paste to (single cell):", xTitleId, Type:=8)
Application.ScreenUpdating = False
xRows = InputRng.Rows.Count
xCols = InputRng.Columns.Count
For i = 1 To xRows
    InputRng.Rows(i).Copy OutRng
    Set OutRng = OutRng.Offset(0, xCols + 0)
Next
Application.ScreenUpdating = True
End Sub

3. 然後按 F5 鍵運行代碼，會彈出一個對話框讓您選擇要轉換為一行的內容範圍，點擊確定，另一個彈出的對話框是讓您選擇一個單元格以輸出結果。請參見截圖：

screenshot of converting range to row with VBA

screenshot of converting range to row with VBA 2

然後點擊確定，所選範圍內的內容將被轉換為一行。請參見截圖：

screenshot of converting range to row with VBA original data

備註：在 Set OutRng = OutRng.Offset(0, xCols + 0) 中，您可以將 0 更改為任何數字以滿足您的需求。

例如，如果您希望根據原始行用一列分隔結果，可以將 Set OutRng = OutRng.Offset(0, xCols + 0) 更改為 Set OutRng = OutRng.Offset(0, xCols + 1)，結果如下所示：

使用 Kutools for Excel 將列和行轉置／轉換為單行

對於我們這些Excel初學者來說，上述兩種方法似乎有些困難，這裡我要介紹一款方便的工具——Kutools for Excel。

Kutools for Excel 包含超過300個實用的Excel工具。免費試用30天無限制。 立即獲取

借助 Kutools for Excel 的 轉換區域 工具，您可以快速將一個範圍轉換為單行，請按照以下步驟操作：

1. 選擇您要轉置的範圍。

2. 點擊 Kutools > 區域 > 轉換區域。

3. 在 轉換區域 對話框中，選擇 區域轉單行 選項，請參見截圖：

screenshot of converting range to row with kutools for Excel dialog

4. 然後點擊確定，並在彈出的對話框中選擇一個單元格放置結果。

screenshot of converting range to row with kutools for Excel output range dialog

5. 點擊確定，範圍內的數據已被轉置為單行。請參見截圖：

如果您想了解更多關於此功能的信息，請訪問 轉換區域。

相關文章：

如何在Excel中將行轉換為列？

如何在Excel中將單列轉置／轉換為多列？

如何將列和行轉置／轉換為單列？

最佳 Office 生產力工具

🤖	Kutools AI 助手：以智能執行為基礎，革新數據分析｜生成程式碼｜創建自訂公式｜分析數據並生成圖表｜調用 Kutools 增強函數…
	熱門功能：查找、選取項目的背景色或標記重複值｜刪除空行｜合併列或單元格且不遺失數據｜四捨五入（免公式）...
	高級 LOOKUP：多條件 VLookup｜多值 VLookup｜多表查找｜模糊查找...
	高級下拉列表：快速創建下拉列表｜依賴型下拉列表｜多選下拉列表...
	列管理器：添加指定數量的列｜移動列｜切換隱藏列的顯示狀態｜比較區域及列...
	精選功能：網格聚焦｜設計檢視｜增強編輯欄｜工作簿及工作表管理器｜資源庫（快捷文本）｜日期提取器｜合併資料｜加密/解密儲存格｜按列表發送電子郵件｜超級篩選｜特殊篩選（篩選粗體/傾斜/刪除線...）...
	15 大工具集：12 項文本工具（添加文本、刪除特定字符…）｜50+ 儀表類型（甘特圖等）｜40+ 實用公式（基於生日計算年齡等）｜19 項插入工具（插入QR码、根據路徑插入圖片等）｜12 項轉換工具（金額轉大寫、匯率轉換等）｜7 項合併與分割工具（高級合併行、分割儲存格等）｜...及更多