[已解决]找相同号码数组

ping052062 · 发表于 2013-7-5 10:34

找相同号码数组，麻烦老师们了。详情见附件。

找相同的号码数组.zip (6.69 KB, 下载次数: 18)

ping052062 · 发表于 2013-7-5 17:54

没有人理会?

ping052062 · 发表于 2013-7-6 21:35

帮助解答下

ping052062 · 发表于 2013-7-8 00:41

帮助解答下

大灰狼1976 · 发表于 2013-7-8 12:50

对比结果栏最右一列青色字体的内容要不要，你没有说明

大灰狼1976 · 发表于 2013-7-8 13:08

在你答复之前，先按青色字体不需要做了一下，附件请测试

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim arr, arr1, i&, j As Byte, k&, l&
arr = [d6].CurrentRegion
l = 6
For j = 15 To 48 Step 11
arr1 = Cells(6, j).CurrentRegion
For k = 1 To UBound(arr1)
For i = 1 To UBound(arr)
If Join(Application.Index(arr1, k, 0)) = Join(Application.Index(arr, i, 0)) Then
Cells(l, 59).Resize(, 6) = Application.Index(arr1, k, 0)
Cells(l, 57) = (j - 4) / 11
l = l + 1
End If
Next i
Next k
Next j
Application.ScreenUpdating = True
End Sub

复制代码

ping052062 · 发表于 2013-7-8 16:58

大灰狼1976 发表于 2013-7-8 13:08
在你答复之前，先按青色字体不需要做了一下，附件请测试

非常感谢老师的解答！青色字体需要的，谢谢！

大灰狼1976 · 发表于 2013-7-8 17:43

如果青色字体要的话，把代码里面一句带注释符的去掉注释符就行了，如果我的理解没错的话，可以正常使用。

ping052062 · 发表于 2013-7-8 22:58

大灰狼1976 发表于 2013-7-8 17:43
如果青色字体要的话，把代码里面一句带注释符的去掉注释符就行了，如果我的理解没错的话，可以正常使用。

感谢老师了。

ping052062 · 发表于 2013-7-9 14:15

大灰狼1976 发表于 2013-7-8 17:43
如果青色字体要的话，把代码里面一句带注释符的去掉注释符就行了，如果我的理解没错的话，可以正常使用。

老师你好，总数据中第七列也要对比各栏的第七列。最终七列全部相同的在对比结果栏出现。谢谢！

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