[已解决]判断同一区间相同一组数据的问题

HuYanY

附件 判断各区间相同数组附件.rar (46.78 KB, 下载次数: 14)

2013-6-24 16:45 上传

点击文件名下载附件
谢谢！

最佳答案

月排行榜 / 总排行榜

passlake

2013-6-24 23:42

运行了一下，没问题，你看看。 判断各区间相同数组附件.zip (36.33 KB, 下载次数: 11)

2013-6-24 23:42 上传

点击文件名下载附件

跳转到最佳答案楼层

passlake

Sub cyq()
    Dim d As Object
    Dim c As Range
    Set d = CreateObject("scripting.dictionary")
    With Worksheets("sheet2")
        For Each c In .Range("a1:a" & .Range("a65536").End(xlUp).Row)
            If Not d.exists(CStr(c) & CStr(c.Offset(0, 2)) & CStr(c.Offset(0, 3)) & _
                        CStr(c.Offset(0, 5)) & CStr(c.Offset(0, 6))) Then
                d.Add CStr(c) & CStr(c.Offset(0, 2)) & CStr(c.Offset(0, 3)) & _
                        CStr(c.Offset(0, 5)) & CStr(c.Offset(0, 6)), ""
            Else
                c.Offset(0, 2).Resize(1, 5).Select
                Selection.Interior.ColorIndex = 6
            End If
        Next
    End With
End Sub

HuYanY

passlake 发表于 2013-6-24 22:02
Sub cyq()
    Dim d As Object
    Dim c As Range

谢谢老师关注，下载试了一下，报错：

passlake

怎么会报错？是不是COPY错了？你传03版的上来，家里没07以上的。。。。

HuYanY

passlake 发表于 2013-6-24 23:30
怎么会报错？是不是COPY错了？你传03版的上来，家里没07以上的。。。。

附件 判断各区间相同数组附件.rar (25.75 KB, 下载次数: 6)

2013-6-24 23:33 上传

点击文件名下载附件

这是07另存为03版的。

谢谢老师。

passlake

运行了一下，没问题，你看看。 判断各区间相同数组附件.zip (36.33 KB, 下载次数: 11)

2013-6-24 23:42 上传

点击文件名下载附件

HuYanY

passlake 发表于 2013-6-24 23:42
运行了一下，没问题，你看看。

谢谢老师帮助。试了一下，运行正常。