曾经的回帖整理-字典案例部分

jhegzwjb2016

版主辛苦！感谢您的无私分享和辛苦付出！

亲子家园

收藏了学习学习感谢您的无私分享！

忘情的城市

liulang0808 发表于 2017-12-17 19:30
根据A列内容，保存表格内数据最上面一行，删除下面的重复行

版本 2007
奇怪了，测试没问题，有点卡，按钮执行提示.更奇怪的是我用老师的附件，2007测试也正常使用，我就加了一句

Sheets("保户10M缴纳1").Activate ' 删除保户10M宽带1表重复行

其余都没变。




执行其它按钮正常
.

liulang0808

忘情的城市 发表于 2022-1-9 18:36
版本 2007
奇怪了，测试没问题，有点卡，按钮执行提示.更奇怪的是我用老师的附件，2007测试也正常使用， ...

看不到具体附件，无法确认原因的

忘情的城市

liulang0808 发表于 2022-1-9 19:20
看不到具体附件，无法确认原因的

附件我有发求助帖 ，还等老师帮助。下面这个代码是老师的代码，我就在

Sub 按钮1_Click()
Sheets("保户10M缴纳1").Activate ' 删除保户10M缴纳1表重复行

增加了这个，其余一模一样

然后又看了 老师的 字典实例 02，修改为

Sub E删除保户10M缴纳1重复行()
    Set d = CreateObject("scripting.dictionary")
    arr = Sheets("保户10M缴纳1").[a1].CurrentRegion

其余也一模一样，
还是弹出VB6.DLL 那个弹出框
真是郁闷极了
.

Sub 按钮1_Click()
    Set d = CreateObject("scripting.dictionary")
    Set Rng = Nothing
    arr = [a1].CurrentRegion
    Application.ScreenUpdating = False
    For j = 1 To UBound(arr)
        If d.exists(arr(j, 1)) Then
            If Rng Is Nothing Then
                Set Rng = Cells(j, 1)
            Else
                Set Rng = Union(Rng, Cells(j, 1))
            End If
        Else
            d(arr(j, 1)) = ""
        End If
    Next j
    If Not Rng Is Nothing Then Rng.EntireRow.Delete
    Application.ScreenUpdating = True
End Sub

zhangfz1982

占楼,随后在学习

guang856

牛，收藏了！！

feilanga

https://club.excelhome.net/thread-1615991-1-1.html 老师，麻烦您看下这个凑数问题，不胜感激。

qiu521119

学无止境，谢谢

吓你一跳

好人啊，谢谢