如何將每5或n行從一列轉(zhuǎn)置為多列？
假設(shè)您在A列中有較長的數(shù)據(jù)，現(xiàn)在，您想將A列中的每5行轉(zhuǎn)置為多列，例如將A1：A5轉(zhuǎn)換為C6：G6，將A6：A10轉(zhuǎn)換為C7：G7，依此類推顯示以下截圖。 如果不在Excel中重復(fù)復(fù)制和粘貼，如何處理此任務(wù)？
使用公式將每5或n行從一列轉(zhuǎn)置為多列
使用VBA代碼將每5或n行從一列轉(zhuǎn)置為多列
將每 5 行或 n 行從一列轉(zhuǎn)置為多列 Kutools for Excel
使用公式將每5或n行從一列轉(zhuǎn)置為多列在Excel中，您可以應(yīng)用以下公式將每n行從一列轉(zhuǎn)置為多列，請執(zhí)行以下操作：
1。 例如，將以下公式輸入到要將結(jié)果放入C1的空白單元格中， = INDEX（$ A：$ A，ROW（A1）* 5-5 + COLUMN（A1）），請參見屏幕截圖：
備注：在以上公式中， 答： 是您要轉(zhuǎn)置的列引用，并且 A1 是已使用列的第一個單元格，即數(shù)字 5 表示您的數(shù)據(jù)將定位的列數(shù)，您可以根據(jù)需要進行更改。 并且列表的第一個單元格必須位于工作表的第一行。
2。 然后將填充手柄向右拖動到五個單元格，然后繼續(xù)將填充手柄向下拖動到單元格范圍，直到顯示0，請參見屏幕截圖：
將每5或n行從一列轉(zhuǎn)換為多列：
要將每5或n行從一列轉(zhuǎn)換為多列， Kutools for Excels 變換范圍 實用程序可以幫助您盡快解決此工作。 它還可以幫助您將一系列數(shù)據(jù)轉(zhuǎn)置為單個行或列。 點擊下載 Kutools for Excel!
Kutools for Excel：具有300多個方便的Excel加載項，可以在內(nèi)，沒有任何限制。 立即下載并！
使用VBA代碼將每5或n行從一列轉(zhuǎn)置為多列如果您無法正確應(yīng)用公式，則以下VBA代碼也可以為您提供幫助。
1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic應(yīng)用程序 窗口。
2。 點擊 插頁 > 模塊，然后將以下代碼粘貼到 模塊 窗口。
VBA代碼：將每5或n行從一列轉(zhuǎn)置為多列：
Public Sub TransposeData()updateby ExtendofficeDim xLRow As LongDim xNRow As LongDim i As LongDim xUpdate As BooleanDim xRg As RangeDim xOutRg As RangeDim xTxt As StringOn Error Resume NextxTxt = ActiveWindow.RangeSelection.AddressSet xRg = Application.InputBox("Please select data range(only one column):", "Kutools for Excel", xTxt, , , , , 8)Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)If xRg Is Nothing Then Exit SubIf (xRg.Columns.Count > 1) Or _(xRg.Areas.Count > 1) ThenMsgBox "the used range only contain one column", , "Kutools for Excel"Exit SubEnd IfSet xOutRg = Application.InputBox("please select output range(specify one cell):", "Kutools for Excel", xTxt, , , , , 8)If xOutRg Is Nothing Then Exit SubSet xOutRg = xOutRg.Range(1)xUpdate = Application.ScreenUpdatingApplication.ScreenUpdating = FalsexLRow = xRg.Rows.CountFor i = 1 To xLRow Step 5xRg.Cells(i).Resize(5).CopyxOutRg.Offset(xNRow, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=TruexNRow = xNRow + 1NextApplication.ScreenUpdating = xUpdateEnd SubCopy3。 粘貼代碼后，請按 F5 鍵運行它，然后會彈出一個提示框，提醒您選擇要轉(zhuǎn)置的列，請參見屏幕截圖：
4。 然后點擊 OK，然后選擇一個要在其中彈出結(jié)果框的單元格，請參見屏幕截圖：
5。 并點擊 OK，該列中的數(shù)據(jù)已轉(zhuǎn)換為所需的五列，請參見屏幕截圖：
備注：在上面的代碼中，您可以更改數(shù)字 5 到您需要的其他號碼。
將每 5 行或 n 行從一列轉(zhuǎn)置為多列 Kutools for Excel如果你有 Kutools for Excel，其 變換范圍 實用程序，您可以快速將一列或一行轉(zhuǎn)置為多列和多行。
Kutools for Excel : 帶有300多個便捷的Excel加載項，可以在內(nèi).前往下載購買貝寶/ MyCommerce安裝后 Kutools for Excel，請執(zhí)行以下操作：
1。 在列中選擇數(shù)據(jù)，然后單擊 Kutools > Range > 變換范圍，請參見屏幕截圖：
2。 在 變換范圍 對話框中選擇 單列到范圍 選項下 轉(zhuǎn)換類型，然后檢查 固定值 在下面 每條記錄行，然后在中指定要轉(zhuǎn)置到的列數(shù) 固定值 框，請參見屏幕截圖：
3。 然后點擊 Ok 按鈕，在彈出的框中，請選擇一個單元格以輸出結(jié)果，請參見屏幕截圖：
4。 然后點擊 OK 按鈕，并且您的列數(shù)據(jù)已每5行轉(zhuǎn)置一次，如下所示的屏幕截圖：
下載并 Kutools for Excel 現(xiàn)在 ！
演示：將每 5 行或 n 行從一列轉(zhuǎn)置為多列 Kutools for ExcelKutools for Excel：具有300多個方便的Excel加載項，可以在內(nèi)，沒有任何限制。 立即下載并！最佳辦公生產(chǎn)力工具
將小時轉(zhuǎn)化為分鐘 Kutools for Excel!準備好增強您的 Excel 任務(wù)了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時間的工具。 簡化復(fù)雜的任務(wù)并像專業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗 Excel！
為什么需要 Kutools for Excel
