求助，大神过来帮忙看看，有没有好方法

wgx0427 · 发表于 2017-6-2 10:16

求助，大神过来帮忙看看，有没有好方法

33333.rar (6.49 KB, 下载次数: 14)

windyjw007 · 发表于 2017-6-2 12:47

用VBA做的，结果生成在G1，试试o不o把！{:1712:}

Sub test()
Dim d As Object
Dim ar, br(1 To 10000, 1 To 100)
Dim i As Long, j As Long, k As Long
Set d = CreateObject("scripting.dictionary")
ar = Cells(1, 1).CurrentRegion
br(1, 1) = ar(1, 1): br(1, 2) = "输出": j = 1
For i = 2 To UBound(ar)
If d.exists(ar(i, 1)) Then
d(ar(i, 1)) = Array(d(ar(i, 1))(0), d(ar(i, 1))(1) + 1)
If d(ar(i, 1))(1) > k Then k = d(ar(i, 1))(1)
br(d(ar(i, 1))(0), d(ar(i, 1))(1)) = ar(i, 2)
Else
j = j + 1
d.Add ar(i, 1), Array(j, 2)
br(j, 1) = ar(i, 1)
br(j, 2) = ar(i, 2)
End If
Next i
With Cells(1, 7)
.Resize(Rows.Count, k).ClearContents
.Resize(j, k) = br
End With
End Sub

复制代码

刀羊 · 发表于 2017-6-5 11:25

辅助列+数据透视表：

刀羊 · 发表于 2017-6-5 11:29

C2=IF($A2=$A3,B3&"","")

右拉下拉公式，看看公式结果。

nyh04 · 发表于 2017-6-9 09:43

INDEX+SAMLL+IF+ROW+Colum 组合，非常好用也强大，希望有帮助。

nyh04 · 发表于 2017-6-9 10:07

windyjw007 发表于 2017-6-2 12:47
用VBA做的，结果生成在G1，试试o不o把！

你好！可否把程序修改下，以适应上网行的查询(最好没有行数限制)。

nyh04 · 发表于 2017-6-9 10:08

windyjw007 发表于 2017-6-2 12:47
用VBA做的，结果生成在G1，试试o不o把！

你好！可否把程序修改下，以适合上万行的查询(最好没有行数限制)。在线等，谢谢

windyjw007 · 发表于 2017-6-9 10:13

nyh04 发表于 2017-6-9 10:07
你好！可否把程序修改下，以适应上网行的查询(最好没有行数限制)。

那你把br(1 To 10000, 1 To 100)改成br(1 To 100000, 1 To 100)吧
再大，Excel估计也不支持了吧！{:2312:}

327718098 · 发表于 2017-6-9 10:27

nyh04 发表于 2017-6-9 10:08
你好！可否把程序修改下，以适合上万行的查询(最好没有行数限制)。在线等，谢谢

Sub text()
Dim arr As Variant, hh As Long
arr = Range("a2").CurrentRegion
For hh = 2 To UBound(arr)
If Cells(Cells(Rows.Count, 1).End(3).Row, 1).Value = arr(hh, 1) Then
Cells(Cells(Rows.Count, 1).End(3).Row, 1).End(xlToRight).Offset(0, 1).Value = arr(hh, 2)
Else
Cells(Cells(Rows.Count, 1).End(3).Row + 1, 1).Value = arr(hh, 1)
Cells(Cells(Rows.Count, 1).End(3).Row, 1).Offset(0, 1).Value = arr(hh, 2)
End If
Next
End Sub

nyh04 · 发表于 2017-6-9 14:27

好像还是不行，谢谢

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