如何将有重复内容的相邻单元格合并且保留重复内容中的一个?

Question

现在有1列数据，例如1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9,10,10.我想要将1,1合并为一个单元格且内容为1，2,2合并为一个单元格且内容为2，一次类推，有没有款速的方法？

Answer 1

亲，如果单元格内的元素个数不确定，可以很肯定的告诉你，公式几乎不可能做到。还是用VBA编程解决比较方便。 打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Sheet上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口，选择刚插入的宏，点击“执行”。 Sub qcf()Dim d, Arr: Dim rg As Range: Dim i, r As LongSet d = CreateObject("Scripting.Dictionary")r = Cells(Rows.Count, "A").End(xlUp).RowFor Each rg In Range("A1:A" & r) Arr = Split(Replace(rg.Value, ", ", ","), ",") For i = 0 To UBound(Arr) d(Arr(i)) = "" Next rg.Value = Replace(Join(d.keys, ","), ",", ", "): d.RemoveAllNextEnd Sub