求筛选状态下的不重复身份证号个数

Lovertdos · 发表于 2024-1-24 15:44

本帖最后由 Lovertdos 于 2024-1-25 14:24 编辑

怎样计算出筛选状态下G列的不重复身份证号个数，把结果写在H2单元格里

ykcbf1100 · 发表于 2024-1-24 20:25

附件供参考。。。

liulang0808 · 发表于 2024-1-25 08:18

Sub test()
Set d = CreateObject("scripting.dictionary")
r = Cells(Rows.Count, 7).End(3).row
For Each x In Range("G3:G" & r).SpecialCells(xlCellTypeVisible)
If Len(x) > 0 Then d(x.Value) = ""
Next
[h2] = d.Count - 1
End Sub

liulang0808 · 发表于 2024-1-25 08:19

求筛选状态下的不重复身份证号个数.zip (16.42 KB, 下载次数: 2)
供参考

Lovertdos · 发表于 2024-1-25 08:30

ykcbf1100 发表于 2024-1-24 20:25
附件供参考。。。

里面好像没代码

Lovertdos · 发表于 2024-1-25 08:33

liulang0808 发表于 2024-1-25 08:19
供参考

能不能再加两个值

对P列筛选出的值计数，输出在 I2
对P列筛选出的值求和，输出在 J2

liulang0808 · 发表于 2024-1-25 09:06

Sub test()
Dim sm As Double
Set d = CreateObject("scripting.dictionary")
r = Cells(Rows.Count, 7).End(3).row
For Each x In Range("G3:G" & r).SpecialCells(xlCellTypeVisible)
If Len(x) > 0 Then d(x.Value) = d(x.Value) + 1
sm = sm + Val(Cells(x.row, "p"))
Next
[h2] = d.Count - 1
[i2] = WorksheetFunction.Sum(d.items) - 1
[j2] = sm
End Sub

liulang0808 · 发表于 2024-1-25 09:07

求筛选状态下的不重复身份证号个数.zip (17 KB, 下载次数: 3)
供参考。。。。。。

ykcbf1100 · 发表于 2024-1-25 09:48

Lovertdos 发表于 2024-1-25 08:30
里面好像没代码

你下错附件了吧，明明有的。

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

[已解决] 求筛选状态下的不重复身份证号个数

评分