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

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

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

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

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

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

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

請應用以下公式：

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。這樣，範圍內的所有數據都已轉置到新工作表的單行中。請參見截圖：

使用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 鍵運行代碼，會彈出一個對話框讓您選擇要轉換為一行的內容範圍，點擊 確定，另一個彈出的對話框是讓您選擇一個單元格以輸出結果。請參見截圖：

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

備註：在 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. 在 轉換區域 對話框中，選擇 區域轉單行 選項，請參見截圖：

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

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

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

相關文章：

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

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

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