请老师把“姓名”出现的次数标出来！

zhjg5961 · 发表于 2019-9-21 16:16

请老师编写程序，把《巡查问题数周统计表》中H列“姓名”出现的次数找出来，然后把姓名出现的次数在D列“姓名出现的次数”中标出。

谢谢老师！

zhjg5961 · 发表于 2019-9-21 16:24

《巡查问题数周统计表》之中D列（黄色列）开始没有数字，就是请老师快速给标出来。

xuemei0216 · 发表于 2019-9-21 16:33

Sub a()
Dim d As Object
Set d = CreateObject("Scripting.Dictionary")
'遍历工作表
Dim arr, i&
arr = [H1].CurrentRegion
For i = 2 To UBound(arr)
d(arr(i, 1)) = d(arr(i, 1)) + 1    '次数
Next
Dim brr, r&
r = Cells(Rows.Count, 3).End(xlUp).Row
brr = [c4].Resize(r - 3, 2)
For i = 1 To UBound(brr)
If d.Exists(brr(i, 1)) Then
      brr(i, 2) = d(brr(i, 1))    '次数
Else
      brr(i, 2) = 0
End If
Next
[c4].Resize(UBound(brr), 2) = brr
Set d = Nothing
End Sub

yylucke · 发表于 2019-9-21 16:34

函数法
D4单元格输入=COUNTIF($H:$H,$C4)，下拉

朱荣兴 · 发表于 2019-9-21 16:36

提示: 作者被禁止或删除内容自动屏蔽

zhjg5961 · 发表于 2019-9-21 16:37

xuemei0216 发表于 2019-9-21 16:33
Sub a()
Dim d As Object
Set d = CreateObject("Scripting.Dictionary")

请老师把程序加入附件里面，我不会做附件。谢谢！

mikezhan · 发表于 2019-9-21 16:39

提示: 作者被禁止或删除内容自动屏蔽

zhjg5961 · 发表于 2019-9-21 16:42

mikezhan 发表于 2019-9-21 16:39

请老师把程序加入附件里面，我不会做附件。谢谢！

zhjg5961 · 发表于 2019-9-21 16:48

yylucke 发表于 2019-9-21 16:34
函数法
D4单元格输入=COUNTIF($H:$H,$C4)，下拉

谢谢老师！公式可以用。

lsc900707 · 发表于 2019-9-21 16:53

zhjg5961 发表于 2019-9-21 16:37
请老师把程序加入附件里面，我不会做附件。谢谢！

典型的伸手党做派！

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

[求助] 请老师把“姓名”出现的次数标出来！

最新热点 /1

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2019-9-21 16:36 \| 显示全部楼层 [广告] ★用Excel做企业管理系统，Excel服务器学习和下载★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

mikezhan mikezhan 当前离线性别保密 UID 736941 阅读权限 0 注册时间 2009-3-7 在线时间小时最后登录 1970-1-1 积分 975 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2019-9-21 16:39 \| 显示全部楼层 [广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★使用手册★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报