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经典代码实践指南
查看: 429|回复: 17
打印 上一主题 下一主题

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

[复制链接]

ag娱乐平台手机版,  减少色散率的非零色散位移光纤克服了通常非零色散位移光散斜率较大的缺点,能够与DCF更好地匹配;大有效面积非零色散位移光纤能提供较大的有效面积以减少光纤非线性的影响;这些新型光纤为超长距离传输铺平了道路。

  当然,另一种对应中国水雷战强大威力的方法就是提高美国性水雷战的能力。在某种程度上讲,这个问题已经解决了,例如在亚太地区进行的演习表明,美国空军轰炸机有能力布置水雷。可以实事求是的讲,中国海军及其规模庞大的海上贸易都是脆弱的。当然,美国要维护亚太地区的和平与稳定,就有必要应用“大棒政策”,但可能更加重要的是,美国还要学会“轻声慢语”,无论是当前还是往届美国政府,都从未尽力尝试过这种努力。邦达亚洲:美联储年内加息预期升温 黄金下挫退守1330  自动化测试工具是自动化测试的重要组成部分,但光有工具是没有办法建立起组织的自动化测试体系的。很多工具厂商往往会宣称“我的工具就是一个完整的自动化测试体系”,但其实,这种体系仅仅是指一个工具体系,而不是马上能够为企业带来效益的体系,任何工具都必须在过程的指导下才能发挥其作用。

TA的精华主题

TA的得分主题

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

ag娱乐平台手机版案例-统计.rar

57.59 KB, 下载次数: 10

TA的精华主题

TA的得分主题

2
发表于 2019-1-12 15:00 | ag娱乐平台手机版只看该作者
本帖最后由 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 | 只看该作者

ag娱乐平台手机版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
这个工作是整体工作的一部分,其他的代码我都已经写好了,就差这一部分了,如果单独去重的话每天会很麻烦 ...

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

本版积分规则

关闭

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

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

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

GMT+8, 2019-6-18 10:51 , Processed in 0.119578 second(s), 19 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 2001-2017 Wooffice Inc.

   

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

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

快速回复 ag娱乐平台手机版 返回列表
这个曾经最亲美的国家 最近却上了美国的黑名单 浙大开发软件防孩子沉迷手机 用35个维度判断年龄 台汉光演习预演降落伞未打开 伞兵坠落送医抢救 传亚马逊设立健康领域团队:语音助手Alexa改变医疗 国务院常务会议传递财政金融政策协同发力新动向 孕妇乘火车安检被拒:大衣内传来狗叫声 名宿:切尔西天王太不稳定了 没法跟梅西C罗比 新华社:叙利亚这场内战打到一半 美国真想撤? 巴黎主席向新帅保证:内马尔一定会留下的! 詹韦合体训练竟引一人嫉妒 他说这俩人怕输 奥斯卡完美远射入网 上港扩大比分3-1人和|gif 进球gif-郜林边路传中高拉特头槌 恒大暂2-0亚泰
平昌冬残奥综述:中国金牌零的突破 感动无处不在 白宫:朝鲜先弃核再谈解除制裁 AETOS艾拓思:美元指数冲高回落 非美货币弱势反弹 打一单感受? 何冰娇卖萌:难道是教练的信任吗 解放军高级军官调整披露:一批军级将领荣升战区级 00后成艺考主力军 有考生学艺半年花费40万(图) 首批CDR授予8家独角兽 监管层在考虑同股不同权制度 中国双人滑海选集训在三亚展开 李香凝参加 熊晓鸽:不是每个人都要成马云 重要是为创业乐此不疲 哈利霍季奇下周状告日本足协 要求赔偿1日元道歉 英媒:希腊森林火遇难人数或再升高 全国哀悼三天 泰国LPGA赛科达领先4杆冲冠 冯珊珊T9阎菁T50
陈雷:今年极端天气可能多发 影响也会偏重 [新浪彩票]足彩18049期盈亏指数:布城需设防有冷 台媒评解放军绕飞:刻意实施心理战 恐吓意味浓厚 反美领袖赢得伊拉克大选 曾领导民兵抵抗美军 曝英超队要买中超大将武磊!用他开拓中国市场 火箭名宿不看好甜瓜加盟 两隐患拉低球队上限 张军:监狱不是动物园 要做到收得下管得住跑不了 美媒提醒特朗普:今日中国可不是当年的日本 围甲第6轮上海建桥对保级难弟 许胜不许败 外媒:苹果服务或将取代iPhone成为增长支柱 携程花900块订酒店竟是大工地 客房仍接受预订(视频) 安倍特朗普举行电话会谈 就驻日美军事故展开磋商 载30吨牙膏粉货车湖北高速路起火 600万货物烧光 ag娱乐平台手机版