合并a列的内容到一个单元格,空格连接,去重
分类:VBA
Sub MergeAndRemoveDuplicates()
Dim rng As Range
Dim cell As Range
Dim dict As Object
Set dict = CreateObject("Scripting.Dictionary")
' 设置要操作的范围(以 A 列为例)
Set rng = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
' 遍历每个单元格并拆分,将内容加入字典中去重
For Each cell In rng
Dim parts() As String
parts = Split(cell.Value, " ")
Dim i As Long
For i = LBound(parts) To UBound(parts)
If Not dict.exists(parts(i)) Then
dict.Add parts(i), 1
End If
Next i
Next cell
' 将字典中的内容合并成一个字符串
Dim result As String
result = Join(dict.keys, " ")
' 输出结果
Range("b1") = result
End Sub