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
来源:学生作业帮助网 编辑:作业帮 时间:2024/11/08 05:36:12
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
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
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
你把结果插到条件中去了?
要用到代码了
假设机器名称放在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