[已解决]如何用代码判断指定条件相同组数据？

Hedfshm · 发表于 2013-7-11 17:28

附件

判断相同附件.rar (9.44 KB, 下载次数: 12)

Hedfshm · 发表于 2013-7-11 20:32

恳请老师帮忙，谢谢！

w2001pf · 发表于 2013-7-12 00:15

这是什么啊？好象曾经提过类似的问题的。

Hedfshm · 发表于 2013-7-12 05:34

w2001pf 发表于 2013-7-12 00:15
这是什么啊？好象曾经提过类似的问题的。

有些类似，但不同。
谢谢老师关注。

w2001pf · 发表于 2013-7-12 12:03

连续6组相同还要判断每组的第一位与第三位数相同？连续6组相同了每组的第一位与第三位数会不相同？

Hedfshm · 发表于 2013-7-12 12:31

w2001pf 发表于 2013-7-12 12:03
连续6组相同还要判断每组的第一位与第三位数相同？连续6组相同了每组的第一位与第三位数会不相同？

图示：

连续六组相同，且第一位27，与第三位27，也同。

=============]

连续六组相同，但第一位30，与第三位28，不相同。

谢谢老师关注。

Hedfshm · 发表于 2013-7-12 20:20

哪位老师帮帮我啊。

上清宫主 · 发表于 2013-7-12 21:34

Sub test()
Dim ar(), ar2()
ar = [a1:g125].Value
ReDim ar2(1 To UBound(ar), 1 To 1)
For i% = 1 To UBound(ar) Step 3
If k% <> ar(i + 1, 7) Then
   If n% >= 6 Then
      r = r% + 1
      ar2(r, 1) = k
   End If
   n = 0
   k% = ar(i + 1, 7)
   str1$ = ar(i, 1) & "|" & ar(i, 2) & "|" & ar(i, 4) & "|" & ar(i, 5)
End If
If str1$ = ar(i, 1) & "|" & ar(i, 2) & "|" & ar(i, 4) & "|" & ar(i, 5) And str1$ = ar(i + 1, 1) & "|" & ar(i + 1, 2) & "|" & ar(i + 1, 4) & "|" & ar(i + 1, 5) And ar(i, 1) = ar(i, 4) And ar(i + 1, 1) = ar(i + 1, 4) Then
   n = n + 1
Else
   If n% >= 6 Then
      r = r% + 1
      ar2(r, 1) = k
   End If
   str1$ = ar(i, 1) & "|" & ar(i, 2) & "|" & ar(i, 4) & "|" & ar(i, 5)
   n = 1
End If
Next
If n% >= 6 Then
      r = r% + 1
      ar2(r, 1) = k
End If
If r Then [q1].Resize(r, 1) = ar2
End Sub

Hedfshm · 发表于 2013-7-12 22:19

上清宫主发表于 2013-7-12 21:34
Sub test()
Dim ar(), ar2()
ar = [a1:g125].Value

非常感谢老师帮助。用代码试了一下楼主的附件，运行正常的。
但换了数据后，出现了问题，如附件

判断相同附件.zip (43.05 KB, 下载次数: 2)

上清宫主 · 发表于 2013-7-12 22:23

ar = [a1:g125].Value
换成ar = Range("a1:g" & [a65536].End(3).Row).Value

		自动登录	找回密码
密码			注册

[已解决]如何用代码判断指定条件相同组数据？

相关帖子

评分