汇总各分表产品的名称

jdyq

请问老师，我想将各分表中的产品名称汇总到总表中，同时去除重复项，并按照升序排序。怎么实现呢？谢谢大师！

3190496160

Sub 汇总去重复()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
For Each sh In Sheets
    If sh.Index < Sheets("总表").Index Then
        r = sh.Cells(Rows.Count, 2).End(xlUp).Row
        ar = sh.Range("b4:b" & r)
        For i = 2 To UBound(ar)
            If Trim(ar(i, 1)) <> "" Then
                d(Trim(ar(i, 1))) = ""
            End If
        Next i
    End If
Next sh
With Sheets("总表")
    .UsedRange.Offset(4) = Empty
    .[b5].Resize(d.Count, 1) = Application.Transpose(d.keys)
    .[b5].Resize(d.Count, 1).Sort Key1:=.Cells(5, 2), Order1:=xlAscending, Header:=xlNo 'xlDescending
End With
MsgBox "ok!"
End Sub

3190496160

3190496160

汇总产品表.rar (20.17 KB, 下载次数: 14)

2023-6-7 21:49 上传

点击文件名下载附件

gwjkkkkk

请参考 。。。

jdyq

谢谢3190496160老师！谢谢gwjkkkkk老师！程序都完美实现功能，

jdyq

出现了个新问题，当表2中只有1行数据时，程序就报错了，麻烦大师看看是什么原因，谢谢！

fzxba

jdyq

谢谢大师们，终于解决了。