多个宏一个工作表不同的sheet里使用

赣州韵达

有没大神帮我弄下把工作表2的宏同样的运用到工作表3里去啊

liulang0808

Sub test()
Set d = CreateObject("scripting.dictionary")
With Sheet2
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    ar = .Range("a1:c" & r)
    ReDim br(1 To UBound(ar), 1 To 3)
    For i = UBound(ar) To 2 Step -1
        If Trim(ar(i, 1)) <> "" Then
            t = d(Trim(ar(i, 1)))
            If t = "" Then
                k = k + 1
                 d(Trim(ar(i, 1))) = k
                 t = k
                 br(k, 1) = ar(i, 1)
                 br(k, 2) = ar(i, 2)
                 br(k, 3) = ar(i, 3)
            End If
        End If
    Next i
    rs = .Cells(Rows.Count, 5).End(xlUp).Row + 5
    .Range("e2:g" & rs) = Empty
    .Range("e2").Resize(k, 3) = br
End With
End Sub

看看是不是这个意思吧？调整下对应的表

赣州韵达

liulang0808 发表于 2020-5-29 06:52
Sub test()
Set d = CreateObject("scripting.dictionary")
With Sheet2

可否给个表，，。。。。。。。

liulang0808

赣州韵达 发表于 2020-5-29 08:37
可否给个表，，。。。。。。。

楼主自己不是有附件吗？

赣州韵达

liulang0808 发表于 2020-5-29 12:19
楼主自己不是有附件吗？

我不会那个额。

liulang0808

附件内容工供参考