[已解决]智能判断代码的请求?

老鸭子

智能判断代码的请求
mym5wC98.rar (40.47 KB, 下载次数: 4)

2010-5-31 13:02 上传

点击文件名下载附件
智能判断代码的请求 附件重发了

[此贴子已经被作者于2010-5-31 13:05:19编辑过]

最佳答案

月排行榜 / 总排行榜

amulee

2010-5-31 13:02

Sub 查找()
    Dim ArrYS, ArrJG1, i&, j%, strTZ$, k&
    ArrYS = Range("D2:Q" & Range("C65536").End(xlUp).Row)
    ReDim ArrJG1(1 To UBound(ArrYS), 1 To UBound(ArrYS, 2))
    For i = 1 To UBound(ArrYS)
        If Len(ArrYS(i, 1)) = 0 Then
            For k = i To UBound(ArrYS) - 1
                If Len(ArrYS(k + 1, 14)) = 0 Then
                    strTZ = ArrYS(k, 14)
                    Exit For
                End If
            Next
        Else
            For j = 1 To 14
                If ArrYS(i, j) = strTZ Then
                    ArrJG1(i, j) = strTZ
                End If
            Next
        End If
    Next
    Range("S2").Resize(UBound(ArrJG1), 14) = ArrJG1
End Sub

跳转到最佳答案楼层

amulee

Sub 查找()
    Dim ArrYS, ArrJG1, i&, j%, strTZ$, k&
    ArrYS = Range("D2:Q" & Range("C65536").End(xlUp).Row)
    ReDim ArrJG1(1 To UBound(ArrYS), 1 To UBound(ArrYS, 2))
    For i = 1 To UBound(ArrYS)
        If Len(ArrYS(i, 1)) = 0 Then
            For k = i To UBound(ArrYS) - 1
                If Len(ArrYS(k + 1, 14)) = 0 Then
                    strTZ = ArrYS(k, 14)
                    Exit For
                End If
            Next
        Else
            For j = 1 To 14
                If ArrYS(i, j) = strTZ Then
                    ArrJG1(i, j) = strTZ
                End If
            Next
        End If
    Next
    Range("S2").Resize(UBound(ArrJG1), 14) = ArrJG1
End Sub

老鸭子

非常感谢！第一判断做的特别的绝，还有第二判断没有做？

第一判断有个小问题，最后一组的最后数据是空白，所以这组数据第一判断是空白，第二判断也同样是空白

[此贴子已经被作者于2010-5-31 13:26:33编辑过]

amulee

第二个月判断没看懂

老鸭子

每组数据与该组最后数据（黄色单元格）同时对等就显示（横竖坐标对等），AH:AU是第二判断显示结果（上面例子是：每组一平9行与每一组数据最后数据的坐标对等，3平10行，3平11行都与该组最后数据坐标对等，凭眼球看的，要求用VBA自动找出对等）

amulee

QUOTE:

以下是引用老鸭子在2010-5-31 13:35:00的发言：
每组数据与该组最后数据（黄色单元格）同时对等就显示（横竖坐标对等），AH:AU是第二判断显示结果（上面例子是：每组一平9行与每一组数据最后数据的坐标对等，3平10行，3平11行都与该组最后数据坐标对等，凭眼球看的，要求用VBA自动找出对等）

这个和第一个判断啥区别？还是没看明白。。。

第一个判断改进如下：

Sub 判断()
    Dim ArrYS, ArrJG1, i&, j%, strTZ$, k&
    ArrYS = Range("D2:Q" & Range("C65536").End(xlUp).Row)
    ReDim ArrJG1(1 To UBound(ArrYS), 1 To UBound(ArrYS, 2))
    For i = 1 To UBound(ArrYS)
        If Len(ArrYS(i, 1)) = 0 Then
            For k = i To UBound(ArrYS) - 1
                If Len(ArrYS(k + 1, 14)) = 0 Then
                    If k = UBound(ArrYS) - 1 Then
                        strTZ = ""
                        Exit For
                    End If
                    strTZ = ArrYS(k, 14)
                    Exit For
                End If
            Next
        Else
            For j = 1 To 14
                If ArrYS(i, j) = strTZ Then
                    ArrJG1(i, j) = strTZ
                End If
            Next
        End If
    Next
    Range("S2").Resize(UBound(ArrJG1), 14) = ArrJG1
End Sub

老鸭子

在每组数据同样的位置同时都与最后的数据对等，谢谢！呵呵

[此贴子已经被作者于2010-5-31 14:32:10编辑过]

amulee

还是没看懂。比如说2009139期为啥就写第一个金，这一期其他金为啥不写呢？

老鸭子

在每组数据同样的位置同时都与最后的数据对等

2009139期的一平金，是该组数据的一平9行与该组数据的最后数据对等

2009153期的一平火，是该组数据的一平9行与该组数据的最后数据对等

2010007期的一平火，是该组数据的一平9行与该组数据的最后数据对等

2010032期的一平金，是该组数据的一平9行与该组数据的最后数据对等

 

 

2009140期的一平金，是该组数据的三平10行与该组数据的最后数据对等

2009154期的一平火，是该组数据的三平10行与该组数据的最后数据对等

2010008期的一平火，是该组数据的三平10行与该组数据的最后数据对等

2010033期的一平金，是该组数据的三平10行与该组数据的最后数据对等

 

 

2009141期的一平金，是该组数据的三平11行与该组数据的最后数据对等

2009155期的一平火，是该组数据的三平11行与该组数据的最后数据对等

2010009期的一平火，是该组数据的三平11行与该组数据的最后数据对等

2010034期的一平金，是该组数据的三平11行与该组数据的最后数据对等

[此贴子已经被作者于2010-5-31 15:46:53编辑过]

lxx822

...........