[已解决]请帮助修改代码

ymq123 · 发表于 2013-6-10 21:26

在工作表1中有二个表，把二表中数据相同最多的行选出来放在工作表2中，代码运行时，只能选一个数据相同最多行的表，另一个表不正常选出，请帮助修改代码。谢谢！
Private Sub 选相同_Click()
Range("a1:m40000") = ""
Dim sh As Worksheet
Dim d As Object, sr As String
Set sh = Sheets("1")
Set d = CreateObject("scripting.dictionary")
k = 0
For Z = 0 To 1
For x = 1 To 7703
sr = ""
For y = 1 To 10
sr = sr & "-" & Replace(sh.Cells(x, y + 14 * Z), " ", "")
Next y
If sr <> "----------" Then
d(sr) = d(sr) + 1
End If
Next x
arr = d.keys
arr1 = d.items
m = Application.Max(arr1)
For x = 0 To UBound(arr1)
If arr1(x) = m Then
k = k + 1
arr2 = Split(arr(x), "-")
For y = 1 To 10
Cells(k, y + 14 * Z) = arr2(y)
Next y
End If
Next x
Next Z
End Sub

最佳答案

月排行榜 / 总排行榜

su45

2013-6-10 23:38

请哪位高手帮助修改代码2.zip (335.8 KB, 下载次数: 11)

su45 · 发表于 2013-6-10 22:45

请哪位高手帮助修改代码.zip (334.5 KB, 下载次数: 4)

ymq123 · 发表于 2013-6-10 22:57

su45 发表于 2013-6-10 22:45

你好：要的不是这样的。在工作表1中有二个表，把二表中数据相同最多的行分别选出来放在工作表2中，代码运行时，只能选第一个表里数据相同最多行的表，另一个表不正常选出，请帮助修改代码。谢谢！

ymq123 · 发表于 2013-6-10 22:59

ymq123 发表于 2013-6-10 22:57
你好：要的不是这样的。在工作表1中有二个表，把二表中数据相同最多的行分别选出来放在工作表2中，代码运 ...

你好：要的不是这样的。在工作表1中有二个表，把二表中数据相同最多的行分别选出来放在工作表2中，代码运行时，只能选第一个表里数据相同最多行的表，另一个表不正常选出，请帮助修改代码。谢谢！

su45 · 发表于 2013-6-10 23:38

请哪位高手帮助修改代码2.zip (335.8 KB, 下载次数: 11)

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