Union这个方法具体是干什么的？

酔意流年

yaozong 发表于 2012-3-19 20:01
Sub aa()
Dim cel As Range, j%
Columns("A:B").Interior.ColorIndex = xlNone

代码 我回去研究下 ，有个致命的问题 我看到你用了for循环，那么在千，万条数据的处理情况下这个for循环是相当的低效的。。。有没有其他办法。

yaozong

酔意流年 发表于 2012-3-19 20:07
代码 我回去研究下 ，有个致命的问题 我看到你用了for循环，那么在千，万条数据的处理情况下这个for循环是 ...

Sub cc()
    Application.ScreenUpdating = False
    r = [a65536].End(3).Row
    Range("A1:b" & r).AutoFilter Field:=1, Criteria1:=[a1]
    Range("A1:b" & r).AutoFilter Field:=2, Criteria1:=[b1]
    Range("A2:b" & r).SpecialCells(xlCellTypeVisible).Interior.ColorIndex = 3
    Range("A1:b" & r).AutoFilter
    Application.ScreenUpdating = True
End Sub

酔意流年

yaozong 发表于 2012-3-19 20:49
Sub cc()
    Application.ScreenUpdating = False
    r = [a65536].End(3).Row

我今天在公司把附件做好了模板 上传好了 你再看下 应该更好帮助你理解了 看看可以帮我用代码怎么实现 谢谢

yaozong

酔意流年 发表于 2012-3-20 10:53
我今天在公司把附件做好了模板 上传好了 你再看下 应该更好帮助你理解了 看看可以帮我用代码怎么实现 谢谢 ...

打不开你的高版本附件。

酔意流年

yaozong 发表于 2012-3-20 11:32
打不开你的高版本附件。

。。。。你是2003的么？我改下重新发上来

酔意流年

yaozong 发表于 2012-3-20 11:32
打不开你的高版本附件。

好了 zip的包是兼容2003的excel

香川群子

必须纠正楼主一个错误认识：

【数据量大时，使用for……next……循环效率低。】


事实上，在VBA代码中，即使数据量大至几百万，使用for……next……循环仍然是最好、最高效的方法。


而VBA中只是以下操作，将会大大影响速度和效率：

1. 反复直接操作单元格进行读取、写入数据操作。
2. 反复直接操作单元格格式。
3. 反复使用工作表函数计算。
4. 反复进行单元格的插入、删除、移动等操作。
5. 反复进行复制、粘贴操作。


如果没有以上错误操作，而是把数据读入VBA内存数组以后进行计算、比对等，
即使大量数据，使用for……next……循环，仍然是极其快速的。

酔意流年

香川群子 发表于 2012-3-20 11:59
必须纠正楼主一个错误认识：

【数据量大时，使用for……next……循环效率低。】

我这里操作的数据验证好像就是需要反复的读取单元格的值 然后还要给单元格重复的值的单元格填上颜色

yaozong

酔意流年 发表于 2012-3-20 12:01
我这里操作的数据验证好像就是需要反复的读取单元格的值 然后还要给单元格重复的值的单元格填上颜色

Private Sub CommandButton1_Click()
Dim d, arr, s$, i
arr = Range("a1", [b65536].End(3))
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(arr)
    s = arr(i, 1) & arr(i, 2)
    If Not d.exists(s) Then
        d(s) = i
    Else
        Cells(i, 2).Interior.ColorIndex = 22
    End If
Next
Set d = Nothing
End Sub

yaozong

如果重复项均应突显时：
Sub bbb()
    Dim d, arr, s$, i
    Set d = CreateObject("Scripting.Dictionary")
    arr = Range("a1", [b65536].End(3))
    For i = 1 To UBound(arr)
        s = arr(i, 1) & arr(i, 2)
        d(s) = d(s) + 1
    Next
    For i = 1 To UBound(arr)
        s = arr(i, 1) & arr(i, 2)
        If d(s) = 1 Then
            d.Remove (s)
        Else
            d(s) = i
            Cells(i, 2).Interior.ColorIndex = 22
        End If
    Next
    Set d = Nothing
End Sub