在新表格中提取合并相同产品名，或剔除重复，

神经蛙8756996 · 发表于 2023-3-11 17:51

合并相同产品名，并放到在新表格中，提取合并相同产品名，或剔除重复，从Sheet1，列A1

提取到Sheet2，列A1合并重复项，哪位大师帮忙弄一下

魚。。 · 发表于 2023-3-11 18:32

A列不是序号吗？

神经蛙8756996 · 发表于 2023-3-12 07:10

=INDEX(B:B,SMALL(IF(MATCH(B$1:B$6&"",B$1:B$6&"",0)=ROW(B$1:B$6) *(B$1: B$6<>""),ROW(B$1:B$6),65536),ROW(A1)))&""

神经蛙8756996 · 发表于 2023-3-12 07:10

这个带入后也不能用

高个子 · 发表于 2023-3-12 09:18

数组公式，三键结束

神经蛙8756996 · 发表于 2023-3-12 09:52

高个子发表于 2023-3-12 09:18
数组公式，三键结束

三键结束也不显示

高个子 · 发表于 2023-3-12 10:06

神经蛙8756996 发表于 2023-3-12 09:52
三键结束也不显示

三键结束得到这个

hhlty · 发表于 2023-3-12 23:32

Sub test1()
Dim d, arr
Dim i&

Set d = CreateObject("scripting.dictionary")

With Worksheets("sheet1")
      For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
         d(.Cells(i, 1).Value) = d(.Cells(i, 1).Value) + 1
      Next i
End With

arr = d.keys()

With Worksheets("sheet2")
      For i = LBound(arr) To UBound(arr)
         .Cells(2 + i, 1) = arr(i)
      Next i
End With

End Sub

HTbaican · 发表于 2023-3-13 11:35

感谢楼主分享！！！

神经蛙8756996 · 发表于 2023-3-13 15:20

hhlty 发表于 2023-3-12 23:32
Sub test1()
Dim d, arr
Dim i&

第四行代码错误

		自动登录	找回密码
密码			免费注册

[求助] 在新表格中提取合并相同产品名，或剔除重复，