ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

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

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

[复制链接]

ag娱乐平台手机版,自郑洛新国家自主创新示范区今年4月5日获批后,高新区的发展有了坚实的支撑。郑州建设“具有国际竞争力的创新创业中心”的理想将更加丰满,而高新区借助全球化大趋势,承载着国家级战略的顺风快舟,也正精彩起航,对政策一向敏感的房地产市场将会迎来新的发展时期。

  99式主战坦克是具有较高信息化程度的第三代主战坦克,其综合性能位于世界第三代主战坦克的前列;05式新型两栖步战车以优越的机动性能、较强 的火力、良好的综合防护能力,使中国海军陆助战进入世界先进行列;03式新型空降兵战车标志着中国空降兵实现了由单一到的跨越,具备了远程机动、重装空投、伞降机降相结合的作战能力,成为能够在关键时节、关键部位发挥关键作用的重要战略力量;新型自行迫榴炮战车,标志着中国炮兵的火力构成 有了新的变化,打击手段更加多样,环境适应能力进一步增强;新型履带式自行高炮,是防空导弹与高炮相结合的地面防空系统,射击速度快、命中精度高、抗干扰能力强,可有效抗击低空目标。受惠司法轻判 韩国三星家族3代卷入丑闻成功避刑西媒指出,这一幕其实就发生在当值主裁判戈麦斯的眼皮子底下,可是阿尔巴却逃过了处罚,而科瓦契奇则成为了吃亏的一方。

TA的精华主题

TA的得分主题

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

案例-统计.rar

57.59 KB, 下载次数: 10

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 感谢帮助

查看全部评分

TA的精华主题

TA的得分主题

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

TA的精华主题

TA的得分主题

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

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 | 只看该作者

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

TA的精华主题

TA的得分主题

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

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

TA的精华主题

TA的得分主题

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

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

本版积分规则

关注官方微信,每天学会一个新技能

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

GMT+8, 2019-3-22 22:08 , Processed in 1.215923 second(s), 16 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 2001-2017 Wooffice Inc.

   

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

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

快速回复 ag娱乐平台手机版 返回列表
3月全国21名省领导履新 9省党委副书记空缺待补 兹维列夫超越同龄时费德勒穆雷 四巨头后第5人 记者观察 三年成人:拼多多上市后怎么办 日媒:中国市场吸引力大 丰田在华产能将翻番 抛妻弃女背叛家庭 澳副总理因桃色丑闻宣布辞职 红网:虐童事件频发 建议对监控数据丢失行为追责 自揭短?美高官主动爆料:在这件事上俄背了黑锅 [新浪彩票]15日竞彩赔率解读:维迪斯主场赢球 台媒:马英九从政后涉案超百起 曾因一条领带被告 这位政法委书记跳楼1年后被抓:与情人开房也报销 穆帅亲口确认曼联又一大将倒下 无缘对阵切尔西 政协委员于鲁明:科技创新和体制创新推动医学发展
高中学历群体收入直降 美国能否“逃离”民粹主义 国资委:中央企业要积极参与全力支持雄安新区建设 赞成票不够!羽球5局11分制搁浅 安赛龙林丹皆反对 李嘉诚家族欲200亿出售重庆项目 十年地价涨十倍 41+13+3断3帽!月最佳又逆天 都因考神那句话? 神吐槽:真爱啊!火箭:是兄弟一起输 勇士:好的! 卧底网络赌博:让赌徒自杀的北京赛车游戏到底是啥? 湖北统计局副局长叶青谈1978:扣好人生第一粒扣子 马克龙想替打人保镖灭火 却称“聘用他我很自豪” 非OPEC产油国仍未承诺限产 油价延续颓势 沈琼:第二局失误高达12分 虽取胜也要好好总结 卡帅重掌恒大在磨合与对决中开窍 后发制人更靠谱
特朗普要炒特别检察官 “通俄门”会导致他被弹劾? 与中国055竞争?美首艘伯克Ⅲ型驱逐舰或2024年服役 赴台大陆游客锐减 高雄地标大楼沦为“民宿战场” 身材火爆的大学生靠这个月入过万? 网友“抵制” 补库刺激需求 塑料有望反弹 人大代表呼吁进行脑死亡立法:不存在太多技术难题 美方称将推进加征关税 中方:毫不犹豫大力度反击 AETOS艾拓思:政治警报解除 欧元何去何从 商人中大乐透3800万火速领 却称一点也不激动 寒潮!吉林遭遇队史最长连败 两外援接连倒下 沪深两市逾30家公司今日临停 湖南省委原宣传部长张文雄涉嫌受贿等案被公诉 终极BOSS!勇士夺冠1赔1.50 火箭通关路还远 ag娱乐平台手机版