如何將列和行轉置/轉換為單行？
如何將多個行和列合并為單個長行？ 也許這對您來說似乎很容易，因為您可以將它們一個接一個地復制并手動將它們連接成一行。 但是，如果有成百上千的行和列，將非常耗時且乏味。 在這里，我將討論一些解決問題的快速技巧。
用公式將列和行轉置/轉換為單行
使用VBA代碼將列和行轉置/轉換為單行
將列和行轉置/轉換為單行 Kutools for Excel
用公式將列和行轉置/轉換為單行 驚人的！ 在 Excel 中使用高效的選項卡，如 Chrome、Firefox 和 Safari！每天節省50％的時間，并減少數千次鼠標單擊！假設您具有一系列數據，如下面的屏幕快照所示，則可以在具有長公式的新工作表中將范圍數據轉換為一行。
請按以下方式應用公式：
1.在活動工作簿的新工作表中，單擊單元格A1，復制并粘貼以下公式： =OFFSET(Sheet1!$A,((ROW()-1)*5)+(FLOOR(COLUMN()-1,4)/4),(COLUMN()-1)-(FLOOR(COLUMN()-1,4)))
備注: Sheet1！$ A $ 1 是您要使用的工作表和范圍引用。
ROW（）-1）* 5 在上式中 5 代表行號； 和 欄（）-1,4）/ 4中， 4 代表列號。 您可以根據需要更改它們。
2.然后將填充手柄向右拖動，直到出現數字0。 在這種情況下，該范圍中的所有數據都已被移入新工作表中的一行中。 看截圖：
使用VBA代碼將列和行轉置/轉換為單行以下VBA代碼還可以幫助您將一系列數據轉換為一行。
1.按住 ALT + F11 鍵打開 Microsoft Visual Basic應用程序 窗口。
2。 點擊 插頁 > 模塊，然后將以下代碼粘貼到 模塊 窗口。
Sub TransformoneRow()Updateby1120Dim InputRng As Range, OutRng As RangexTitleId = "KutoolsforExcel"Set InputRng = Application.SelectionSet 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 = FalsexRows = InputRng.Rows.CountxCols = InputRng.Columns.CountFor i = 1 To xRowsInputRng.Rows(i).Copy OutRngSet OutRng = OutRng.Offset(0, xCols + 0)NextApplication.ScreenUpdating = TrueEnd SubCopy3.然后按 F5 鍵以運行代碼，會彈出一個對話框供您選擇要轉換為行的內容范圍，然后單擊 Ok，另一個彈出對話框供您選擇單個單元格以顯示結果。 查看屏幕截圖：
然后單擊 Ok，所選范圍內的內容將轉換為一行。 看截圖：
備注：在 設置OutRng = OutRng.Offset（0，xCols + 0），您可以更改 0 可以滿足您的需求。
例如，如果您想將累積到原始行的結果用一列分開，則可以更改 設置OutRng = OutRng.Offset（0，xCols + 0） 至 設置OutRng = OutRng.Offset（0，xCols + 1），結果如下所示：
將列和行轉置/轉換為單行 Kutools for Excel看來以上兩種方法對我們Excel初學者來說還是有些吃力，這里我就來說說一個好用的工具——Kutools for Excel 為你。
Kutools for Excel 包括300多個便捷的Excel工具。 ，不受限制。 立即獲取
使用實用程序 變換范圍 of Kutools for Excel，您可以將范圍快速轉換為單行，請執行以下操作：
1.選擇要移調的范圍。
2。 點擊 Kutools > 范圍轉換器 > 變換范圍，請參見屏幕截圖：
3.在 變換范圍 對話框中選擇 范圍到單行 選項，請參見屏幕截圖：
4。 然后點擊 OK，然后單擊一個單元格以將結果放入彈出框。
5。 點擊 OK，并且范圍內的數據已轉置為一行。 查看屏幕截圖：
如果您想進一步了解此功能，請訪問 變換范圍.
相關文章:
如何在Excel中將行更改為列？
如何在Excel中將單個列轉置/轉換為多個列？
如何將列和行轉置/轉換為單列？
最佳辦公生產力工具
將小時轉化為分鐘 Kutools for Excel!準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！
為什么需要 Kutools for Excel
