[已解决]求助代码解决

bhurdx · 发表于 2013-5-26 19:15

Book1.rar (5.81 KB, 下载次数: 15)

1091126096 · 发表于 2013-5-26 20:54

看看

1091126096 · 发表于 2013-5-26 20:57

如果某数在连续六列里个数的个数只有两个(例i到n列"111"有1个和3个两个),就把它放在a列这句话啥意思？

那么的帅 · 发表于 2013-5-26 21:32

301640-VBA-字典-条件计数并提取.rar (12.34 KB, 下载次数: 4)

bhurdx · 发表于 2013-5-26 22:08

那么的帅发表于 2013-5-26 21:32

有点小问题

301640-VBA-字典-条件计数并提取.rar (12.34 KB, 下载次数: 4)

那么的帅 · 发表于 2013-5-26 22:35

bhurdx 发表于 2013-5-26 22:08
有点小问题

按照你说的，A列的000 也应该属于

请明确

bhurdx · 发表于 2013-5-26 23:00

那么的帅发表于 2013-5-26 22:35
按照你说的，A列的000 也应该属于

请明确

我的意思是假设有二组数合条件,结果它只会显示一组数,例附件结果是111,505,但它显示两个111

那么的帅 · 发表于 2013-5-26 23:04

bhurdx 发表于 2013-5-26 23:00
我的意思是假设有二组数合条件,结果它只会显示一组数,例附件结果是111,505,但它显示两个111

1 解释为什么505 符合？
2 如果505 符合,为什么 I列的 000 不符合？

那么的帅 · 发表于 2013-5-26 23:07

bhurdx 发表于 2013-5-26 23:00
我的意思是假设有二组数合条件,结果它只会显示一组数,例附件结果是111,505,但它显示两个111

我知道了

Sub TIQU()
On Error Resume Next
Dim Arr1
Dim Row1, D1, I1, J1, Arr11(), Arr12(), Arr13()
Set D1 = CreateObject("scripting.dictionary")
Set d2 = CreateObject("scripting.dictionary")
Row1 = Range("I" & Rows.Count).End(xlUp).Row
Arr1 = Range("I4:S" & Row1)
For j = 1 To UBound(Arr1, 2) - 5
For p = 1 To 6
For i = 1 To UBound(Arr1)
If p = 1 Then
If Not D1.exists(Arr1(i, j)) Then
m = m + 1
ReDim Preserve Arr11(1 To 7, 1 To m)
D1(Arr1(i, j)) = m
Arr11(1, m) = Arr1(i, j)
End If
End If
Arr11(p + 1, D1(Arr1(i, j + p - 1))) = Arr11(p + 1, D1(Arr1(i, j + p - 1))) + 1
Next i
Next p
For i = 1 To m
y = False
For j2 = 2 To 7
If Arr11(j2, i) >= 1 Then
If Not d2.exists(Arr11(j2, i)) Then
m2 = m2 + 1
d2(Arr11(j2, i)) = m2
ReDim Preserve Arr12(1 To 2, 1 To m2)
Arr12(1, m2) = Arr11(1, i)
End If
Arr12(2, d2(Arr11(j2, i))) = Arr12(2, d2(Arr11(j2, i))) + 1
Else
y = True
End If
Next j2
If m2 = 2 And y = False Then
M3 = M3 + 1
ReDim Preserve Arr13(1 To 1, 1 To M3)
Arr13(1, M3) = Arr11(1, i)
End If
Erase Arr12
m2 = 0
d2.RemoveAll
Next i
m = 0
Erase Arr11
D1.RemoveAll
Next j
With Sheets(2).Range("A2").Resize(M3, 1)
.Value = Application.Transpose(Arr13)
End With
End Sub

复制代码

bhurdx · 发表于 2013-5-26 23:30

那么的帅发表于 2013-5-26 23:04
1 解释为什么505 符合？
2 如果505 符合,为什么 I列的 000 不符合？

我先说I列的"000",条件1是连续六列每列都要有"000",这个就不合条件,
                        条件2是个数数只是两个结果(相同的算一个),例"111"是
                                       两个相同的三列,"505"是一个两列相同,另一个四列相同,

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