ExcelHome技术论坛

 找回密码
 免费注册
QQ登录 只需一步,快速开始
新浪微博登陆 只需一步, 快速开始
   
高效办公必会的Office99uu优优 永久免费,网表让Excel秒变数据库 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! 国内首部Excel函数公式学习大典 职场充电黑科技, Office微99uu优优 免费下载Excel行业应用视频
300集Office 2010微99uu优优 Tableau-数据可视化工具 突破Excel限制,用活字格提高效率 12门Excel免费公开课任你学
你的Excel 201099uu优优学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 136|回复: 6
打印 上一主题 下一主题

[求助] 查找根据名字合并文本

[复制链接]
TA的精华主题TA的得分主题
跳转到指定楼层
1
发表于 2017-9-12 15:45 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
本帖最后由 dengjq2000 于 2017-9-13 08:15 编辑

各位大神,求助求助!
QQ截图20170912154641.png (10.54 KB, 下载次数: 0)
QQ截图20170912154641.png
求公式.rar 9.97 KB, 下载次数: 12
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 有用有用 无用无用 分享到新浪微博
TA的精华主题TA的得分主题
2
发表于 2017-9-12 16:58 | 只看该作者
公式.zip (16.63 KB, 下载次数: 15)
TA的精华主题TA的得分主题
3
 楼主| 发表于 2017-9-12 18:07 | 只看该作者 |楼主
TA的精华主题TA的得分主题
4
发表于 2017-9-12 18:13 | 只看该作者
本帖最后由 fox597870046 于 2017-9-12 18:15 编辑

哇,审题错误,打扰了
TA的精华主题TA的得分主题
5
发表于 2017-9-12 19:07 | 只看该作者
利用辅助列,然后使用vlookup进行查找,最后在合并即可,详情请见附件。
公式.rar 10.28 KB, 下载次数: 7
TA的精华主题TA的得分主题
6
发表于 2017-9-13 08:10 | 只看该作者
VBA来实现:
  • Sub aa()
  •   Dim arr, i%, j%, drow1%, drow2%
  •     Application.ScreenUpdating = False
  •     Application.DisplayAlerts = False
  •     With Worksheets("sheet2")
  •         drow1 = .Range("a65536").End(3).Row
  •         arr = .Range("a2:b" & drow1)
  •     End With
  •     Set d1 = CreateObject("Scripting.Dictionary")
  •     Set d2 = CreateObject("Scripting.Dictionary")
  •     For i = 1 To drow1 - 1
  •          If Not d1.exists(arr(i, 1)) Then
  •             d1(arr(i, 1)) = arr(i, 2)
  •          Else
  •          d1(arr(i, 1)) = d1(arr(i, 1)) & "," & arr(i, 2)
  •          End If
  •     Next
  •     With Worksheets("sheet3")
  •         .[a2].Resize(d1.Count, 1) = Application.Transpose(d1.keys)
  •         .[b2].Resize(d1.Count, 1) = Application.Transpose(d1.items)
  •     End With
  •        Application.ScreenUpdating = True
  •     Application.DisplayAlerts = True
  • End Sub

  • 复制代码
    TA的精华主题TA的得分主题
    7
    发表于 2017-9-13 08:12 | 只看该作者
    源文件。。。。
    公式.rar 18.85 KB, 下载次数: 5
    您需要登录后才可以回帖 登录 | 免费注册 新浪微博登陆
    本版积分规则
    关闭

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

    关注官方微信,每天坐享新鲜教程
    手机版|关于我们|联系我们|ExcelHome    GMT+8, 2017-10-23 12:16 , Processed in 1.100104 second(s), 36 queries , Gzip On.
    Powered by Discuz! X3.3 © 2001-2017 Wooffice Inc.
        沪公网安备 31011702000001号 沪ICP备11019229号 本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师
    快速回复 返回顶部 返回列表
    99uu优优