求助匹配数据语句，多谢 - 『Excel VBA程序开发』 - Excel精英培训网 -
Powered by Discuz! Archiver
求助匹配数据语句，多谢
本帖最后由 chensir 于
11:10 编辑
按照《对照表》里的数据，在《基础表》里按B列已有数据，把A列、C列、D列数据一一匹配出来，效果如图片所示。用VBA语句，不用函数，多谢。
本帖最后由
10:58 编辑
For x = 2 To .End(3).Row
& & With Sheet2
& && &Cells(x, 1) = ..Find(Cells(x, 2))(1, 2)
& && &Cells(x, 3) = ..Find(Cells(x, 2))(1, 3)
& && &Cells(x, 4) = ..Find(Cells(x, 2))(1, 4)
& & End With
或者Private Sub Worksheet_Change(ByVal Target As Range) '事件放基础表里
On Error Resume Next
If Target.Row & 1 And Target.Column = 2 Then
&&With Sheets(&对照表&)
& & Target.Offset(, -1) = ..Find(Target.Value)(1, 2)
& & Target(1, 2) = ..Find(Target.Value)(1, 3)
& & Target(1, 3) = ..Find(Target.Value)(1, 4)
&&End With
Sub Macro1()
Dim arr, brr, d, i&, n&
Set d = CreateObject(&scripting.dictionary&)
arr = Sheet1.Range(&a1&).CurrentRegion
brr = Sheet2.Range(&a1&).CurrentRegion
For i = 2 To UBound(brr)
d(brr(i, 1)) = i
For i = 2 To UBound(arr)
& & If d.exists(arr(i, 2)) Then
& && &&&n = d(arr(i, 2))
& && &&&arr(i, 1) = brr(n, 2)
& && &&&arr(i, 3) = brr(n, 3)
& && &&&arr(i, 4) = brr(n, 4)
& & End If
Sheet1.Range(&a1&).CurrentRegion = arr
For I = 2 To Range(&b10000&).End(xlUp).Row
Cells(I, 1) = Application.WorksheetFunction.VLookup(Cells(I, 2), Sheets(&对照表&).Range(&A:d&), 2, 0)
Cells(I, 3) = Application.WorksheetFunction.VLookup(Cells(I, 2), Sheets(&对照表&).Range(&A:C&), 3, 0)
Cells(I, 4) = Application.WorksheetFunction.VLookup(Cells(I, 2), Sheets(&对照表&).Range(&A:d&), 4, 0)
Sub test()
& & Dim A, B, i, j
& & A = Sheets(1).Range(&a1&).CurrentRegion
& & B = Sheets(2).Range(&a1&).CurrentRegion
& & For i = 1 To UBound(A)
& && &&&For j = 1 To UBound(B)
& && && && &If A(i, 2) = B(j, 1) Then
& && && && && & A(i, 1) = B(i, 2)
& && && && && & A(i, 3) = B(i, 3)
& && && && && & A(i, 4) = B(i, 4)
& && && && &End If
& && &&&Next j
& & Next i
& & Sheets(1).Range(&a1&).Resize(i - 1, 4) = A
如果 店名、数据行 很多时，还是用字典。
感谢各位，从速度上将dsmch和爱疯的相对要快。
查看完整版本:一匹配问题求大神解答。多谢_nba2kol吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：353,839贴子：
一匹配问题求大神解答。多谢收藏
有一段时间没玩了、最近回归玩了一阵。最近玩街头匹配
为什么我是29级的，一匹配对方总能是满级的呢？等级差这么多 为什么总能匹配到一起呢？
1楼 10:59&|
我小号25级，队友更低，经常匹配到满级队伍
收起回复2楼 11:01&|来自
登录百度帐号
内&&容:使用签名档&&
为兴趣而生，贴吧更懂你。&或查看: 2187|回复: 10|
在线时间5 小时经验7 威望0 性别保密最后登录注册时间阅读权限10UID1722744积分7帖子精华0分享0
EH新人, 积分 7, 距离下一级还需 13 积分
积分排行3000+帖子精华0微积分0
需要通过VBA解析邮件正文，想通过正则表达式，把一些特定格式的文字信息取出来，存入excel，请求指导正则表达式的Pattern怎么写，
邮件中的内容，如：
[新增业务] XX市XX业务 [XX部门]
[取消业务] XX市XX业务 [XX部门]
分别取出第一个中括号中的业务类型，前后中括号间的业务内容，结尾中括号中的所属部门，
主要是不知道如何匹配中括号[]，以及汉字~
在线时间896 小时经验2040 威望0 性别男最后登录注册时间阅读权限70UID156206积分2190帖子精华1分享0
EH铁杆, 积分 2190, 距离下一级还需 1010 积分
积分排行467帖子精华1微积分0
没有附件，麻烦你。
如果数据有规律，用数据--导入，或者数据---分列，第一次以 ]&&为标识，再分列一次，则以 [&&为标识
在线时间318 小时经验166 威望0 性别保密最后登录注册时间阅读权限20UID1710094积分166帖子精华0分享6
EH初级, 积分 166, 距离下一级还需 184 积分
积分排行3000+帖子精华0微积分0
在线时间318 小时经验166 威望0 性别保密最后登录注册时间阅读权限20UID1710094积分166帖子精华0分享6
EH初级, 积分 166, 距离下一级还需 184 积分
积分排行3000+帖子精华0微积分0
Pattern=&\[.*\]&
在线时间2439 小时经验7543 威望14 性别男最后登录注册时间阅读权限95UID30407积分7643帖子精华0分享0
积分排行109帖子精华0微积分0
Sub yy()
& & rng = Range([a1], [a1].End(4))
& & For i = 1 To UBound(rng)
& && &&&a = Replace(Replace(rng(i, 1), &[&, &,&), &]&, &,&)
& && &&&Cells(i, 2).Resize(, 3) = Array(Split(a, &,&)(1), Split(a, &,&)(2), Split(a, &,&)(3))
& & Next
End Sub复制代码这个较简单
在线时间318 小时经验166 威望0 性别保密最后登录注册时间阅读权限20UID1710094积分166帖子精华0分享6
EH初级, 积分 166, 距离下一级还需 184 积分
积分排行3000+帖子精华0微积分0
匹配单个中文[\u4e00-\u9fa5]
在线时间5 小时经验7 威望0 性别保密最后登录注册时间阅读权限10UID1722744积分7帖子精华0分享0
EH新人, 积分 7, 距离下一级还需 13 积分
积分排行3000+帖子精华0微积分0
感谢楼上的回答和关注，多谢！
我想要的不是导入和导出，而是每天都会有一些类似格式邮件，需要读出正文并解析各个字段，
选有用的数据存入excel进行管理；
读邮件正文，存excel的问题都已解决，
现在是解析字段遇到困难，自己网上找资料摸索的正则表达式是
myRegExp.Pattern = &[\[]{1}([.]+)[\]]{1}([.]+)[\[]{1}([.]+)[\]]{1}&
但是匹配结果总是报空
很郁闷啊~请指教~
在线时间5 小时经验7 威望0 性别保密最后登录注册时间阅读权限10UID1722744积分7帖子精华0分享0
EH新人, 积分 7, 距离下一级还需 13 积分
积分排行3000+帖子精华0微积分0
不好意思，刚没看到4,5,6楼的回答，多谢
5楼的回答 给了我新的思路，避开了正则表达式，多谢
但由于我不是只匹配一条文字，多封邮件，多种格式，
我在使用1,6楼的回答再摸索一下正则表达式，非常感谢各位关注！
在线时间3198 小时经验5339 威望2 性别保密最后登录注册时间阅读权限95UID758496积分5339帖子精华0分享4
积分排行172昵称q帖子精华0微积分0
帮你顶一下吧.
在线时间5510 小时经验5127 威望2 性别保密最后登录注册时间阅读权限95UID1180810积分5277帖子精华0分享0
积分排行177帖子精华0微积分0
数据少，不好找规律。
积分≥4700即可申请
金牌优秀会员
金牌优秀会员奖章No.1
优秀会员奖章No.1
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&《现代汉语语法研究》测试试题_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
喜欢此文档的还喜欢
《现代汉语语法研究》测试试题
阅读已结束，如果下载本文需要使用
想免费下载本文？
把文档贴到Blog、BBS或个人站等：
普通尺寸(450*500pix)
较大尺寸(630*500pix)
你可能喜欢MBA作业题~~求解答~~多谢啦！_百度知道
MBA作业题~~求解答~~多谢啦！
a complement&#47.a: neither complement nor substitude&#47. Graph the demand curve for good X;10)MResearch shows that the prices of related goods are given by Py = $6. Indicate whether goods Y and Z are substitutes or complements for good X?Good Z is. Is X an infera substitude: neither complement nor substitude&#47,000 - (1&#47?b. Determine the demand function and inverse demand function for good X.D2)PX - PY + 9PZ + (1/a substitudec,000,230The demand for good X is given byQXd = 6?d. How many units of good X will be purchased when Px = $5,500 and Pz = $100;a complement&#47:
neither complement nor substitude&#47:
__-__ PXInverse demand function, while the average income of individuals consuming this product is M = $70;a complement&#47?Good X is.Good Y is
提问者采纳
10×70000. 结果自己得出吧。最后一个问题不太确定,M 的值分别代入题目的公式，最后一个不太确定，根据题目中给的公式,b, 根据已知条件将Px： a，则X的需求量下降。当Z价格上升时，X的需求量上升,Pz;2××100+1&#47,c比较有点把握.c，可以得到商品X的需求量Q=，因此商品Y是X的替代产品。我先把前三个发给你看看.b，对商品X的需求量增加，当收入增加时（M增加），如果y的价格上升,Py，因此Z是X的complement，关于a，因此商品X是normal goods，不好意思这道题有四问,
还是根据题目中的公式
提问者评价
采纳率100%
其他类似问题
按默认排序
其他2条回答
MBA报考时间，如果是咨询MBA报考条件您好、考博等问题欢迎向158教育在线知道提问， 这边是158教育在线网
高科技人才啊
mba的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁