作业帮 > 综合 > 作业

VBA统计不重复数以如下例子机型 点位 位置 VT-RNS-5299 1 RP405 VT-RNS-5299 1 D60

来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/07/08 20:33:33
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
你把结果插到条件中去了?
要用到代码了
假设机器名称放在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
再问： 在原来的那个表上进行修改，表发给你了，谢谢。
VBA统计不重复数以如下例子机型 点位 位置 VT-RNS-5299 1 RP405 VT-RNS-5299 1 D60 s=1/2vt 在一次体育课上,某同学以初速度v=12m/s竖直上抛一排球,该排球能够在抛出点2米以上位置最多停留多久?h=vt－1/2 《中间位置速度Vs/2=[(Vo^2 +Vt^2)/2]1/2 6.位移S= V平t=Vot + at^2/2=Vt/2 s=vt s=1/2vt平方 s=1/2vt平方+vt 这三个公式有什么差 1/2vt+vt=X（位移）的公式嘛? （1）做匀变速直线运动的物体在某段位移内中点位置的瞬时速度V（右下角为s/2）=根号里面是(v0^2+vt^2)/2.求 初1物理公式：S=1/2VT是什么意思? 为什么S=1/2at方+vt, s=vt+1/2at^2什么意思? 已知公式s=vt+（1/2at²）. 1/2vt+(9.69-0.15-t)v=100 ①