如何在Excel中串聯(lián)唯一值？
如果我有一長串的值填充了一些重復(fù)數(shù)據(jù)，那么現(xiàn)在，我只想查找唯一值，然后將它們串聯(lián)到單個(gè)單元格中。 如何在Excel中快速輕松地解決此問題？
在列中查找唯一值，然后使用VBA代碼將它們連接到一個(gè)單元格中
在一列中查找唯一值并將它們連接到一個(gè)單元格中 Kutools for Excel
列出唯一值并使用VBA代碼連接相應(yīng)的值
列出唯一值并將相應(yīng)的值與 Kutools for Excel
在列中查找唯一值，然后使用VBA代碼將它們連接到一個(gè)單元格中下列 用戶定義功能 可以幫助您將唯一值連接到列表中的單個(gè)單元格中，請執(zhí)行以下操作：
1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic應(yīng)用程序 窗口。
2。 點(diǎn)擊 插頁 > 模塊，然后將以下代碼粘貼到 模塊 窗口。
VBA代碼：將唯一值連接到單個(gè)單元格中：
Function ConcatUniq(xRg As Range, xChar As String) As Stringupdateby ExtendofficeDim xCell As RangeDim xDic As ObjectSet xDic = CreateObject("scripting.Dictionary")For Each xCell In xRgxDic(xCell.Value) = EmptyNextConcatUniq = Join$(xDic.Keys, xChar)Set xDic = NothingEnd FunctionCopy3. 然后回到您的工作表，并輸入以下公式： = ConcatUniq（A1：A17，“，”） 放入要輸出級聯(lián)結(jié)果的空白單元格，然后按 輸入 獲取唯一的串聯(lián)結(jié)果的關(guān)鍵，請參見屏幕截圖：
備注：在以上公式中， A1：A17 是您要連接的單元格范圍，而逗號“,”是您需要分隔組合值的分隔符，您可以根據(jù)需要更改它們。
在一列中查找唯一值并將它們連接到一個(gè)單元格中 Kutools for Excel如果您不熟悉VBA代碼， Kutools for Excel 也可以幫助您，您可以將 選擇重復(fù)和唯一單元格 和 結(jié)合 實(shí)用程序來實(shí)現(xiàn)您所需的結(jié)果。
Kutools for Excel : 帶有300多個(gè)便捷的Excel加載項(xiàng)，可以在內(nèi). 前往下載購買貝寶/ MyCommerce安裝后 Kutools for Excel，請執(zhí)行以下操作：Kutools for Excel 現(xiàn)在！ )
1。 選擇僅要合并唯一值的單元格列表。
2。 點(diǎn)擊 Kutools > 選擇 > 選擇重復(fù)和唯一單元格，請參見屏幕截圖：
3。 在 選擇重復(fù)和唯一單元格 對話框中選擇 全部唯一（包括第一個(gè)重復(fù)項(xiàng)） 選項(xiàng)下 第 部分，請參見屏幕截圖：
Tips：如果要合并唯一值（不包括首次出現(xiàn)的重復(fù)項(xiàng)），請選中 僅唯一值 選項(xiàng)。
4。 然后點(diǎn)擊 OK 按鈕，并且只選擇了唯一值，然后按 按Ctrl + C 復(fù)制它們，然后按將它們粘貼到特定位置 按Ctrl + V，請參見屏幕截圖：
5。 選擇粘貼的唯一單元格，然后單擊 Kutools > 合并與拆分 >合并行，列或單元格而不會(huì)丟失數(shù)據(jù)，請參見屏幕截圖：
6。 在 合并列或行 對話框，選擇 合并成單個(gè)單元格 在下面 根據(jù)以下選項(xiàng)合并選定的單元格，然后為合并的數(shù)據(jù)指定分隔符，請參見屏幕截圖：
7。 然后點(diǎn)擊 Ok or 使用 按鈕，提取的唯一值已連接到一個(gè)單元格中，如以下屏幕截圖所示：
Kutools for Excel 現(xiàn)在！
列出唯一值并使用VBA代碼連接相應(yīng)的值在另一種情況下，您有一個(gè)包括兩列的數(shù)據(jù)范圍，現(xiàn)在，您只想列出唯一值并連接另一列的相應(yīng)值以獲得以下結(jié)果，您是否有任何好的方法來完成這項(xiàng)工作在Excel中？
在這里，您可以應(yīng)用以下VBA代碼來處理此作業(yè)，請執(zhí)行以下操作：
1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic應(yīng)用程序 窗口。
2。 點(diǎn)擊 插頁 > 模塊，然后將以下代碼粘貼到 模塊 窗口。
VBA代碼：列出唯一值并連接相應(yīng)的數(shù)據(jù)
Sub test()updateby ExtendofficeDim xRg As RangeDim xArr As VariantDim xCell As RangeDim xTxt As StringDim I As LongDim xDic As ObjectOn Error Resume NextxTxt = ActiveWindow.RangeSelection.AddressSet xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xTxt, , , , , 8)Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)If xRg Is Nothing Then Exit SubIf xRg.Areas.Count > 1 ThenMsgBox "Does not support multiple selections", , "Kutools for Excel"Exit SubEnd IfIf xRg.Columns.Count <> 2 ThenMsgBox "There must be only two columns in the selected range", , "Kutools for Excel"Exit SubEnd IfxArr = xRgSet xDic = CreateObject("scripting.Dictionary")xDic.CompareMode = 1For I = 1 To UBound(xArr)If Not xDic.Exists(xArr(I, 1)) ThenxDic.Item(xArr(I, 1)) = xDic.Count + 1xArr(xDic.Count, 1) = xArr(I, 1)xArr(xDic.Count, 2) = xArr(I, 2)ElsexArr(xDic.Item(xArr(I, 1)), 2) = xArr(xDic.Item(xArr(I, 1)), 2) & "," & xArr(I, 2)End IfNextSheets.Add.Cells(1).Resize(xDic.Count, 2).Value = xArrEnd SubCopy3。 然后按 F5 鍵運(yùn)行此代碼，并彈出一個(gè)提示框，提醒您根據(jù)唯一值選擇要連接的數(shù)據(jù)范圍，請參見屏幕截圖：
4。 點(diǎn)擊 OK，則已提取唯一值，并將它們在另一列中的對應(yīng)值連接在一起，形成一個(gè)新的工作表。
備注：在上面的代碼中，您可以更改紅色逗號 xArr（xDic.Item（xArr（I，1）），2）= xArr（xDic.Item（xArr（I，1）），2）＆“,“＆xArr（I，2） 在此腳本中使用您要分隔組合數(shù)據(jù)的任何其他定界符。
列出唯一值并將相應(yīng)的值與 Kutools for Excel如果你有 Kutools for Excel，其 高級組合行 功能，您無需任何代碼即可快速輕松地解決此問題。
安裝后 Kutools for Excel，請執(zhí)行以下操作：Kutools for Excel 現(xiàn)在！ )
1。 首先，如果要保留原始數(shù)據(jù)，則應(yīng)復(fù)制原始數(shù)據(jù)。 然后根據(jù)唯一值選擇要連接的數(shù)據(jù)范圍。
2。 然后點(diǎn)擊 Kutools > 合并與拆分> 高級組合行，請參見屏幕截圖：
3。 在 高級組合行 對話框中，單擊只列出唯一值的列名，然后單擊 首要的關(guān)鍵，請參見屏幕截圖：
4。 然后，單擊要連接的另一個(gè)列名，然后單擊 結(jié)合，然后選擇一個(gè)分隔符來分隔合并的數(shù)據(jù)，請參見屏幕截圖：
5。 然后點(diǎn)擊 Ok 按鈕，這些值已經(jīng)根據(jù)另一列的唯一值進(jìn)行了級聯(lián)，如下圖所示：
Kutools for Excel 現(xiàn)在！
最佳辦公生產(chǎn)力工具
將小時(shí)轉(zhuǎn)化為分鐘 Kutools for Excel!準(zhǔn)備好增強(qiáng)您的 Excel 任務(wù)了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時(shí)間的工具。 簡化復(fù)雜的任務(wù)并像專業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗(yàn) Excel！
為什么需要 Kutools for Excel
