VBA统计不重复数以如下例子机型点位位置VT-RNS-52991RP405VT-RNS-52991D601VT-RNS-52992R447VT-RNS-52992U109VT-RNS-53021U109VT-RNS-53021Q402VT-RNS-53021RP407VT-RNS-53021L110结果机型不重复数VT-RNS-52994

Question

VBA统计不重复数
以如下例子
机型 点位 位置
VT-RNS-5299 1 RP405
VT-RNS-5299 1 D601
VT-RNS-5299 2 R447
VT-RNS-5299 2 U109
VT-RNS-5302 1 U109
VT-RNS-5302 1 Q402
VT-RNS-5302 1 RP407
VT-RNS-5302 1 L110
结果
机型 不重复数
VT-RNS-5299 4
VT-RNS-5302 8
VT-RNS-5303 8
VT-RNS-5302 2 U704
VT-RNS-5302 2 U704
VT-RNS-5302 2 R444
VT-RNS-5302 2 U606
VT-RNS-5302 2 U102
VT-RNS-5302 2 U102
VT-RNS-5303 1 ZD403
VT-RNS-5303 1 R448
VT-RNS-5303 1 R196
VT-RNS-5303 1 U110
VT-RNS-5303 1 RP401
VT-RNS-5303 1 RP408
VT-RNS-5303 2 ZD103
VT-RNS-5303 2 U606

Answer 1

你把结果插到条件中去了?
要用到代码了
假设机器名称放在A列,A1是表头,
结果放在SHEET2,
Sub 提取不重复()
Dim d,r%,rng As Range
Set d = CreateObject("Scripting.Dictionary")
For Each rng In Range("a2:a" & [a65536].End(3).Row)
If rng.Value "" Then d(rng.Value) = d(rng.Value) + 1
Next rng
Sheet2.Activate
[a2].Resize(d.Count,1) = Application.Transpose(d.keys)
[b2].Resize(d.Count,1) = Application.Transpose(d.items)
[a1].Resize(1,2) = Array("机型","重复次数")
Set d = Nothing
End Sub