ExcelHome技术论坛

 找回密码
 ag娱乐平台手机版免费注册

QQ登录

只需一步,快速开始

   
EH云课堂-专业的职场技能充电站 限时送,魔方网表将Excel变在线系统 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 高效办公必会的Office实战技巧 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 ExcelHome出品 - VBA代码宝免费下载 13门Excel免费公开课任你学
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 271|回复: 17
打印 上一主题 下一主题

[求助] 请问如何用代码达到如下效果?

[复制链接]

ag娱乐平台手机版,另外,称得上经济政策总司令的国家经济会议(NEC)委员长,将由高盛总裁兼首席运营官(COO)加里·科恩担任。加里·科恩是在10年里担任高盛总裁兼COO的重量级人物,特朗普直接动员其加入政府。此外,下一任美国财政部部长史蒂芬·姆钦也曾在高盛就职。特朗普重用金融行业出身者的情况十分突出。

篮网不停打出转换,他成为最大受益人,在短短2分钟时间里,他一下子轰下12分,直接把比分扳平,快船都蒙了。在3分01秒,他还助攻洛佩兹投进三分,让篮网终于反超。最终比赛还是被拖进加时,基尔帕特里克成为主攻点,在第一个加时6分,外线投篮手感大跌;而在第二个加时,他没有再浪费机会,当最后半分钟篮网只领先2分的时候,他抢下篮板就冲到篮下,不但打进上篮,还造了小乔丹犯规,一锤定音终结了比赛。观点:引援锅无关京粤只关足协 内援调解费该废除蒋永清只有在接受组织调查后才幡然悔悟:作为公职人员和领导干部,正常待遇和收入完全可以过上一个稳定的生活;“自己只能住一房”,收受的大量字画、花瓶、烟酒、金银贵重物品堆放在画室、会所、酒行,这些身外之物再多,也只不过是罪恶的化身、犯罪的证据。

TA的精华主题

TA的得分主题

跳转到指定楼层
1
发表于 2019-1-12 14:53 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
数据见附件。
想要实现的功能:统计出每个归属包含的编号个数,注:编号里面有重复的。比如:   辽宁个数   285   。

案例-统计.rar

57.59 KB, 下载次数: 9

TA的精华主题

TA的得分主题

2
发表于 2019-1-12 15:00 | 只看该作者
本帖最后由 719404338 于 2019-1-12 15:09 编辑
  1. Sub t()
  2. Dim i%, d, dd
  3. Set d = CreateObject("Scripting.Dictionary")
  4. Set dd = CreateObject("Scripting.Dictionary")
  5. For i = 2 To [b65536].End(3).Row
  6. If Range("b" & i) <> "" Then
  7. d(Range("a" & i).Value & "," & Range("b" & i).Value) = ""
  8. End If
  9. Next
  10. Stop
  11. i = 1
  12. For Each sj In d
  13. dd(Split(sj, ",")(1)) = dd(Split(sj, ",")(1)) + 1
  14. Next
  15. For Each sj In dd
  16. Range("c" & i) = sj
  17. Range("d" & i) = dd(sj)
  18. i = i + 1
  19. Next
  20. End Sub
复制代码

评分

参与人数 1鲜花 +2 收起 理由
yangjinfu + 2 感谢帮助

查看全部评分

ag娱乐平台手机版TA的精华主题

TA的得分主题

3
发表于 2019-1-12 15:04 | 只看该作者
没太明白意思。
单纯计数的话,可以直接用函数:COUNTIF,
或者数据透视表,一拖一拉结果就出来了。

TA的精华主题

TA的得分主题

4
 楼主| 发表于 2019-1-12 15:13 | 只看该作者
本帖最后由 yangjinfu 于 2019-1-12 15:24 编辑
鲜花鲜花鲜花鲜花鲜花鲜花鲜花

TA的精华主题

TA的得分主题

5
 楼主| 发表于 2019-1-12 15:14 | 只看该作者
libaoshui 发表于 2019-1-12 15:04
没太明白意思。
单纯计数的话,可以直接用函数:COUNTIF,
或者数据透视表,一拖一拉结果就出来了。

不是直接计算,是要去除A列里面重复的部分.

TA的精华主题

TA的得分主题

6
发表于 2019-1-12 15:20 | 只看该作者

TA的精华主题

TA的得分主题

7
发表于 2019-1-12 15:29 | 只看该作者

TA的精华主题

TA的得分主题

8
 楼主| 发表于 2019-1-12 15:32 | 只看该作者

这个工作是整体工作的一部分,其他的代码我都已经写好了,就差这一部分了,如果单独去重的话每天会很麻烦,所以要把代码嵌进去

ag娱乐平台手机版TA的精华主题

TA的得分主题

9
 楼主| 发表于 2019-1-12 15:33 | 只看该作者

那位老师已经修改过了,修改过之后的是好用的

TA的精华主题

TA的得分主题

10
发表于 2019-1-12 15:36 | 只看该作者
yangjinfu 发表于 2019-1-12 15:32
这个工作是整体工作的一部分,其他的代码我都已经写好了,就差这一部分了,如果单独去重的话每天会很麻烦 ...

其实你可以录制一个去重复的宏,把相关代码修改复制到原来的宏,也基本上就差不多了。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

最新热点上一条 /1 下一条

关注官方微信,高效办公专列,每天发车

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2019-1-23 19:24 , Processed in 0.107207 second(s), 19 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 2001-2017 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 ag娱乐平台手机版 返回列表
直击|阿里CEO张勇评淘宝:是年轻一代梦想的镜子 中国证监会第三任主席周正庆病逝 享年83岁 阿森纳官方宣布签下姆希塔良 科技部:希望新能源汽车年产量要隔年翻番 班达里连任尼泊尔总统(图) 阿森纳主场现大片空座 曼联名宿调侃:又下雪了? 央行5谈虚拟货币 严监管成关键词 恒指连续四日收高 油价大幅上涨、BDI创年内新高 一图看什么叫一人一队 雷霆出来的都是这个命? 格德斯:鲁能队友对我很友好 适应上没什么问题 英国凯特王妃13岁时就被预言嫁给“威廉王子” 亚当斯52分新疆139-119肯帝亚 顾全36分深圳胜
邹市明获得世界拳击理事会最高成就荣誉奖 5.4万吨吉林玉米昨日全部流拍 男子边驾车边喝酒还“遛马” 涉嫌醉驾被刑拘(图) 北京未来三天天气晴暖 五一假期前期气温逼近30℃ 恒大出局李毅伤口上撒盐 球迷提醒并非四大皆空 世界排名:达斯汀拉开领先差距 刘晏玮张蕙麟上升 张茅:7月1日全面实施外商投资企业“多证合一” 外媒:万达集团为体育业务子公司IPO安排保荐机构 上海德比的两个数字:上港8号无所不能 申花只进1个? 台商界大佬爱走步:郭台铭不坐电梯办公爬五层楼 阿莱格里:若离尤文就会离意大利 想执教国家队 SpaceX成功发射猎鹰9号 马斯克称还有更大部署
火箭三巨工资将达4.7亿?莫雷遇难题 1人必离队 贝莱德看好美股投资前景 因情感纠葛 19岁少女被44岁男子用刀捅伤不治身亡 漫画|动动鼠标就能操纵超导量子处理器?快来试试! 日本GDP增速超预期 创近30年来最长连增纪录 B站递交赴美IPO申请 融资规模最高达5.25亿美元 今起全国自北向南气温回升 明日多地将重现暖春 中国东海舰队这支部队有多牛 竟走出三名航母舰长 瑞达期货:高炉开工率提高 带动双焦上涨 苏宁迪拜冬训重点考察年轻人 特谢拉因病缺战老东家 日本一自卫队直升飞机坠落民宅 造成1人死亡 打球不如做试卷?青少年体育锻炼规定如何落地 这位省委副书记进了信访室 都说了些什么? ag娱乐平台手机版