如何根據另一列中的唯一值轉置一列中的單元格？

網友投稿 321 2025-03-31

如何根據另一列中的唯一值轉置一列中的單元格？

假設您有一個包含兩列的數據范圍，現在，您想根據另一列中的唯一值將一列中的單元格轉置為水平行，以獲得以下結果。您有什么好主意可以解決Excel中的此問題嗎？

根據具有公式的唯一值將單元格轉置為一列

使用VBA代碼根據唯一值將單元格轉置為一列

根據唯一值轉置一列中的單元格 Kutools for Excel

根據具有公式的唯一值將單元格轉置為一列

使用以下數組公式，您可以提取唯一值并將其對應的數據轉置為水平行，請執行以下操作：

1。輸入此數組公式： = INDEX（$ A $ 2：$ A $ 16，MATCH（0，COUNTIF（$ D $ 1：$ D1，$ A $ 2：$ A $ 16），0）） 放入一個空白單元格（例如D2），然后按 Shift + Ctrl + 輸入 鍵在一起以獲得正確的結果，請參見屏幕截圖：

備注：在以上公式中， A2：A16 是您要列出其唯一值的列，并且 D1 是此公式單元格上方的單元格。

2。然后將填充手柄向下拖動到單元格以提取所有唯一值，請參見屏幕截圖：

3。然后繼續將此公式輸入到單元格E2中： =IFERROR(INDEX($B:$B, MATCH(0, COUNTIF($D2:D2,$B:$B)+IF($A:$A<>$D2, 1, 0), 0)), 0)，并記得按 Shift + Ctrl + 輸入 鍵以獲取結果，請參見屏幕截圖：

備注：在上式中： B2：B16 是您要轉置的列數據， A2：A16 是您要基于其轉置值的列，并且 D2 包含您在步驟1中提取的唯一值。

4. 然后將填充手柄拖到要列出轉置數據的單元格的右側，直到顯示0，請參見屏幕截圖：

5。然后繼續將填充手柄向下拖動到單元格范圍，以獲取轉置數據，如以下屏幕截圖所示：

使用VBA代碼根據唯一值將單元格轉置為一列

公式可能會讓您難以理解，在這里，您可以運行下面的VBA代碼以獲取所需的所需結果。

1。按住 ALT + F11 鍵打開 Microsoft Visual Basic應用程序 窗口。

2。點擊插頁 > 模塊，然后將以下代碼粘貼到模塊窗口。

VBA代碼：根據另一列中的唯一值將一列中的單元格轉置：

Sub transposeunique() updateby Extendoffice Dim xLRow As Long Dim i As Long Dim xCrit As String Dim xCol As New Collection Dim xRg As Range Dim xOutRg As Range Dim xTxt As String Dim xCount As Long Dim xVRg As Range On Error Resume Next xTxt = ActiveWindow.RangeSelection.Address Set xRg = Application.InputBox("please select data range(only two columns):", "Kutools for Excel", xTxt, , , , , 8) Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange) If xRg Is Nothing Then Exit Sub If (xRg.Columns.Count <> 2) Or _ (xRg.Areas.Count > 1) Then MsgBox "the used range is only one area with two columns ", , "Kutools for Excel" Exit Sub End If Set xOutRg = Application.InputBox("please select output range(specify one cell):", "Kutools for Excel", xTxt, , , , , 8) If xOutRg Is Nothing Then Exit Sub Set xOutRg = xOutRg.Range(1) xLRow = xRg.Rows.Count For i = 2 To xLRow xCol.Add xRg.Cells(i, 1).Value, xRg.Cells(i, 1).Value Next Application.ScreenUpdating = False For i = 1 To xCol.Count xCrit = xCol.Item(i) xOutRg.Offset(i, 0) = xCrit xRg.AutoFilter Field:=1, Criteria1:=xCrit Set xVRg = xRg.Range("B2:B" & xLRow).SpecialCells(xlCellTypeVisible) If xVRg.Count > xCount Then xCount = xVRg.Count xRg.Range("B2:B" & xLRow).SpecialCells(xlCellTypeVisible).Copy xOutRg.Offset(i, 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True Application.CutCopyMode = False Next xOutRg = xRg.Cells(1, 1) xOutRg.Offset(0, 1).Resize(1, xCount) = xRg.Cells(1, 2) xRg.Rows(1).Copy xOutRg.Resize(1, xCount + 1).PasteSpecial Paste:=xlPasteFormats xRg.AutoFilter Application.ScreenUpdating = True End Sub

Copy

3. 然后按 F5 鍵來運行此代碼，然后會彈出一個提示框，提醒您選擇要使用的數據范圍，請參見屏幕截圖：

4。然后點擊 OK 按鈕，將彈出另一個提示框，提醒您選擇要放入結果的單元格，請參見屏幕截圖：

6。點擊 OK 按鈕，并且已經根據A列中的唯一值對B列中的數據進行了轉置，請參見屏幕截圖：

根據唯一值轉置一列中的單元格 Kutools for Excel

如果你有 Kutools for Excel，結合 高級組合行 和 分裂細胞 實用程序，您無需任何公式或代碼即可快速完成此任務。

Kutools for Excel : 帶有300多個便捷的Excel加載項，可以在30天內免費試用.

前往下載30天免費試用購買貝寶/ MyCommerce

安裝后 Kutools for Excel，請執行以下操作：

1。選擇您要使用的數據范圍。（如果要保留原始數據，請首先將數據復制并粘貼到其他位置。）

2。然后點擊 Kutools > 合并與拆分 > 高級組合行，請參見屏幕截圖：

3。在 根據列合并行 對話框，請執行以下操作：

（1.）單擊要轉置數據所基于的列名稱，然后選擇 首要的關鍵;

（2.）單擊要轉置的另一列，然后單擊結合然后選擇一個分隔符以分隔組合的數據，例如空格，逗號，分號。

4。然后點擊 Ok 按鈕，B列中的數據已基于A列合并到一個單元格中，請參見屏幕截圖：

5。然后選擇組合的單元格，然后單擊 Kutools > 合并與拆分 > 分裂細胞，請參見屏幕截圖：

6。在 分裂細胞 對話框中選擇 拆分為列 在下面 Type 選項，然后選擇用于分隔組合數據的分隔符，請參見屏幕截圖：

7。然后點擊 Ok 按鈕，然后選擇一個單元格以將拆分結果放入彈出的對話框中，請參見屏幕截圖：

8。點擊 OK，您將根據需要獲得結果。看截圖：

下載并免費試用 Kutools for Excel 現在！

演示：根據唯一值轉置一列中的單元格 Kutools for Excel

Kutools for Excel：具有300多個方便的Excel加載項，可以在30天內免費試用，沒有任何限制。 立即下載并免費試用！

最佳辦公生產力工具

將小時轉化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？利用的力量 Kutools for Excel - 您終極的節省時間的工具。簡化復雜的任務并像專業人士一樣瀏覽數據。以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel

??? 超過 300 項強大功能: Kutools 包含 300 多項高級功能，可簡化您在 1500 多種場景中的工作。