ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 3137|回复: 18

[求助] 包含字符查找

[复制链接]

TA的精华主题

TA的得分主题

发表于 2018-8-17 15:05 | 显示全部楼层 |阅读模式
求助:根据A列单元格内容,自动到SHEET1表A列查所有包含本工作表A列单元格字符数内容所对应SHEET1工作表H列内容复制到本工作表C2列的位置.
谢谢!

数据表
存货名称
单据日期
规格
单位
数量
单价
金额
合并
四季豆
2018/4/24
10.00
6.00
60.00
四季豆,2018/4/24,斤,6
包心菜
2018/4/24
5.30
1.60
8.48
包心菜,2018/4/24,斤,1.6
蕃茄
2018/4/10
7.00
4.80
33.60
蕃茄,2018/4/10,斤,4.8
花菜
2018/4/24
6.40
4.00
25.60
花菜,2018/4/24,斤,4
秀针菇
2018/4/24
4.80
7.50
36.00
秀针菇,2018/4/24,斤,7.5
菠菜
2018/4/24
5.60
4.00
22.40
菠菜,2018/4/24,斤,4
小黄瓜
2018/8/10
5.00
6.00
30.00
小黄瓜,2018/8/10,斤,6
黄鱼
2018/2/22
48.00
16.00
768.00
黄鱼,2018/2/22,斤,16
西瓜
2018/8/16
129.00
2.50
258.00
西瓜,2018/8/16,斤,2.5
海南西瓜
2018/8/16
129.00
2.00
258.00
海南西瓜,2018/8/16,斤,2
本地西瓜
2018/8/16
129.00
2.10
258.00
本地西瓜,2018/8/16,斤,2.1
哈密瓜
2018/8/17
27.00
4.50
121.50
哈密瓜,2018/8/17,斤,4.5
脆冠梨
2016/9/10
72.00
4.80
345.60
脆冠梨,2016/9/10,斤,4.8
进口蕉
2018/3/7
3.00
5.50
15.00
进口蕉,2018/3/7,斤,5.5
本地香蕉
2018/3/7
3.00
3.50
15.00
本地香蕉,2018/3/7,斤,3.5
海南香蕉
2018/3/7
3.00
2.30
15.00
海南香蕉,2018/3/7,斤,2.3
桔子
2018/8/16
13.00
8.50
110.50
桔子,2018/8/16,斤,8.5
本地桔子
2018/8/16
13.00
7.00
110.50
本地桔子,2018/8/16,斤,7
外地桔子
2018/8/16
13.00
8.00
110.50
外地桔子,2018/8/16,斤,8


需要的效果表
存货名称123
4
5
西瓜西瓜,2018/8/16,斤,2.5海南西瓜,2018/8/16,斤,2本地西瓜,2018/8/16,斤,2.1哈密瓜,2018/8/17,斤,4.5小黄瓜,2018/8/10,斤,6
海南西瓜西瓜,2018/8/16,斤,2.6海南西瓜,2018/8/16,斤,3本地西瓜,2018/8/16,斤,2.2哈密瓜,2018/8/17,斤,4.6小黄瓜,2018/8/10,斤,7
本地西瓜西瓜,2018/8/16,斤,2.7海南西瓜,2018/8/16,斤,4本地西瓜,2018/8/16,斤,2.3哈密瓜,2018/8/17,斤,4.7小黄瓜,2018/8/10,斤,8



详见附件
查找求助.rar (9.43 KB, 下载次数: 12)

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-8-17 15:15 | 显示全部楼层
在线等高手

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-8-17 15:23 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-8-17 15:30 | 显示全部楼层
哪位大侠出来帮帮,谢谢,急用啊,在线等

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-8-17 15:49 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-8-17 16:00 | 显示全部楼层
哪位高手帮帮忙,单个查找好解决,像这样就不会做了,谢谢。

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-8-17 16:06 | 显示全部楼层
在线等,看来高手不在线。

TA的精华主题

TA的得分主题

发表于 2018-8-17 16:20 | 显示全部楼层
把个要求说的这样晦涩难懂,真心佩服!

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-8-17 16:20 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2018-8-17 16:28 | 显示全部楼层
  1. Sub gj23w98()
  2.     Set d = CreateObject("Scripting.Dictionary")
  3.     arr = Sheet1.[a1].CurrentRegion
  4.     For i = 2 To UBound(arr)
  5.         d(arr(i, 1)) = arr(i, 8)
  6.     Next
  7.     brr = [a1].CurrentRegion
  8.     For i = 2 To UBound(brr)
  9.         If d.exists(brr(i, 1)) Then brr(i, 3) = d(brr(i, 1))
  10.     Next
  11.     [a1].CurrentRegion = brr
  12. End Sub
复制代码
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2025-1-12 08:02 , Processed in 0.027570 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

快速回复 返回顶部 返回列表