如何在Excel中不重復的列中加入文本？
如何在Excel中不重復的列中加入文本？
您是否知道如何將列中的文本連接到單元格中而在Excel中沒有重復項？ 如果在基于特定單元格值的列中加入文本而沒有重復項，該怎么辦？ 本文提供了解決問題的方法。
用公式將列中的文本聯接在一起，沒有重復項
使用VBA代碼根據另一單元格值將一列中的文本聯接在一起，沒有重復項
使用出色的工具輕松將基于另一個單元格值的文本合并到列中 有關合并單元格的更多教程… 用公式將列中的文本聯接在一起，沒有重復項如下面的屏幕截圖所示，您希望將A列中的文本連接到一個沒有重復的單元格中。 請執行以下操作。
1.選擇一個空白單元格，將以下公式復制到其中，然后按 其他 + 轉移 + 輸入 鑰匙在同一時間。
=TEXTJOIN(", ", TRUE, IF(MATCH(A2:A12, A2:A12, 0)=MATCH(ROW(A2:A12), ROW(A2:A12)), A2:A12, ""))
請注意： 在公式， ”, ”是組合文本的分隔符； A2：A12是您將連接在一起的列單元格。 請根據需要更改它們。
現在，指定列中的文本已合并，沒有重復。
使用VBA代碼根據另一單元格值將一列中的文本聯接在一起，沒有重復項有時，您可能需要在一列中加入文本，而不必根據另一個單元格中的值重復創建文本，如下面的屏幕截圖所示，您可以按以下步驟進行操作。
1.在工作表中包含您要加入的文本，請按 其他 + F11 鍵打開 Microsoft Visual Basic應用程序 窗口。
2.在 Microsoft Visual Basic應用程序 窗口中，單擊 插頁 > 模塊 然后將下面的VBA代碼復制到“模塊代碼”窗口中。
VBA代碼：根據另一單元格值將列中的文本聯接在一起，沒有重復項
Sub JoinTextsWithoutDuplicates()
Updated by Extendoffice 20190924
Dim xRg As Range
Dim xArr As Variant
Dim xCell As Range
Dim xTxt As String
Dim I As Long
Dim xDic As Object
Dim xValue
Dim xStr, xStrValue As String
Dim xB As Boolean
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set 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 Sub
If xRg.Areas.Count > 1 Then
MsgBox "Does not support multiple selections", , "Kutools for Excel"
Exit Sub
End If
If xRg.Columns.Count <> 2 Then
MsgBox "There must be only two columns in the selected range", , "Kutools for Excel"
Exit Sub
End If
xArr = xRg
Set xDic = CreateObject("Scripting.Dictionary")
xDic.CompareMode = 1
For I = 1 To UBound(xArr)
If Not xDic.Exists(xArr(I, 1)) Then
xDic.Item(xArr(I, 1)) = xDic.Count + 1
xArr(xDic.Count, 1) = xArr(I, 1)
xArr(xDic.Count, 2) = xArr(I, 2)
Else
xStrValue = xArr(I, 2)
xB = True
For Each xStr In Split(xArr(xDic.Item(xArr(I, 1)), 2), ",")
If xStr = xStrValue Then
xB = False
Exit For
End If
Next
If xB Then
xArr(xDic.Item(xArr(I, 1)), 2) = xArr(xDic.Item(xArr(I, 1)), 2) & "," & xArr(I, 2)
End If
End If
Next
Sheets.Add.Cells(1).Resize(xDic.Count, 2).Value = xArr
End Sub
Copy
3。 按 F5 鍵來運行代碼。 在彈出 Kutools for Excel 對話框中，選擇范圍，包括將要加入的文本所基于的值和將加入的文本，然后單擊 OK 按鈕。
然后，提取唯一值，并將它們在另一列中的相應唯一文本合并并放置在新工作表中。
使用出色的工具輕松將基于另一個單元格值的文本合并到列中也許您不擅長公式或VBA代碼。 在這里推薦 高級組合行 實用程序 Kutools for Excel 為了你。 使用此實用程序，只需單擊幾下，即可基于另一個單元格中的值輕松地將文本連接到列中。
申請前 Kutools for Excel請 首先下載并安裝.
請注意： 由于該實用程序將直接應用于原始范圍，因此請在執行以下操作之前復制原始數據。
1.選擇范圍（包括要加入的文本和要加入的文本所基于的值），然后單擊 Kutools > 內容 > 高級合并行。 看截圖：
2.在 高級組合行 對話框，請執行以下操作：
選擇包含您將基于其連接文本的值的列，然后單擊 首要的關鍵; 選擇包含要加入單元格的文本的列，然后單擊 結合 > 逗號; 如果還有列，請為它們指定條件。 在這種情況下，我選擇“銷售”列，然后選擇 計算 > 和。 點擊 OK 按鈕。 看截圖：然后，您可以看到指定列中的所有文本都基于鍵列進行了連接。 看截圖：
如果您想免費試用（30-day) 這個實用程序， 請點擊下載，然后按照上述步驟進行操作。
合并重復的行并在Excel中對值求和 在Excel中，當您具有一系列包含某些重復項的數據時，您可能總是會遇到此問題，而現在您想要組合重復數據并在另一列中求和相應的值，您如何解決此問題？ 嘗試本文中的方法。
在Excel中將多個單元格合并為帶有空格，逗號或其他分隔符的單元格 當您將多個列或行中的單元格合并為一個單元格時，合并后的數據可能不會被分隔。 但是，如果要用指定的標記（例如空格，逗號，分號或其他標記）將它們分開，該怎么辦？ 本教程將為您介紹一些方法。
串聯單元格以保持Excel中的數字/日期格式 您可能已經注意到，當我們在Excel中應用CONCATENATE函數時，日期格式（2014-01-03）和數字格式，例如貨幣格式（$ 734.7），百分比格式（48.9％），小數位（24.5000）等。被刪除并在連接結果中顯示為常規數字。 在本文中，我們提出了幾種解決方法，以在Excel中保留日期或數字格式來連接數據。
反轉Excel中的串聯功能 眾所周知，Excel中的Concatenate函數可以幫助我們將多個單元格合并為一個單元格，但是，有時您想要做與Concatenate函數相反的操作，這意味著不合并單元格，而是將單元格值拆分為多個單獨的單元格。 本文中的方法將有助于解決問題。
如果Excel中的另一列中存在相同的值，則串聯單元格 本文提供了一些方法來幫助您輕松連接單元格（如果Excel的另一列中存在相同的值）。
有關合并單元格的更多教程…
最佳辦公生產力工具
將小時轉化為分鐘 Kutools for Excel!
準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！
為什么需要 Kutools for Excel
??? 超過 300 項強大功能: Kutools 包含 300 多項高級功能，可簡化您在 1500 多種場景中的工作。
?? 卓越的數據處理能力：合并單元格、刪除重復項并執行高級數據轉換 - 所有這些都不費吹灰之力！
?? 高效的批量操作：當你可以聰明地工作時，為什么還要付出額外的努力呢？ 輕松批量導入、導出、組合和調整數據。
?? 可定制的圖表和報告：訪問各種附加圖表并生成富有洞察力的報告。
??? 強大的導航窗格：通過強大的列管理器、工作表管理器和自定義收藏夾獲得優勢。
?? 七種類型的下拉列表：通過各種功能和類型的下拉列表使數據輸入變得輕而易舉。
?? 用戶友好：對于初學者來說輕而易舉，對于專家來說是一個強大的工具。
立即下載，與 Excel 一起穿越時空！
閱讀更多
免費下載... 采購...
Office Tab 為 Office 帶來選項卡式界面，讓您的工作更輕松
在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。
在同一窗口的新選項卡中而不是在新窗口中打開并創建多個文檔。
每天將您的工作效率提高50％，并減少數百次鼠標單擊！
閱讀更多
免費下載... 采購...
版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。
版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。
相關文章
