查看: 1512|回复: 11
这个数据提取怎样做？帮忙做一个宏。
阅读权限30
在线时间 小时
& && && & 我这里有2个表，一个是源表，一个是效果表。
我怎样才能把源表抬头翻译成相对应的中文。
并提取指定中文的列和按指定的列排序到效果表。
相对应的中文翻译
A001A002A003A004A005A006A007A008A009A010A011A012A013A014A015A016A017A018A019A020A021A022A023A024A025A026A027A028A029A030A031A032A033A034A035A036
送货单号送货日期客户ID客户客来货单号收货日期收货单号退货Y/N生产单号型号规格类别电镀颜色电类其他送数量送重量单价金额备注收货备注收货备注1制单人一级审核二级审核客户签收收货数量收货重量累计送货数量累计送货重量制定数损耗%计划损耗数实际数损耗%实际损耗数结案图片&&
提取的列分别为：送货单号送货日期客户型号类别电镀颜色送数量送重量单价金额备注收货备注收货日期收货单号
排列顺序也上面一样。
17:07 上传
点击文件名下载附件
30.95 KB, 下载次数: 12
17:07 上传
点击文件名下载附件
18.65 KB, 下载次数: 13
17:07 上传
点击文件名下载附件
32.73 KB, 下载次数: 16
阅读权限50
在线时间 小时
基本没整明白到底啥意思
阅读权限30
在线时间 小时
清风云子 发表于
基本没整明白到底啥意思
哎，太可惜了。就是把源表的抬头翻译成中文。然后提取我指定的列。
阅读权限20
在线时间 小时
=HLOOKUP(A1,(IF({0;1},抬头翻译!$A$1:$AJ$1,抬头翻译!$A$2:$AJ$2)),2,0)
17:44 上传
点击文件名下载附件
76.35 KB, 下载次数: 19
阅读权限30
在线时间 小时
lnzz_xzy 发表于
=HLOOKUP(A1,(IF({0;1},抬头翻译!$A$1:$AJ$1,抬头翻译!$A$2:$AJ$2)),2,0)
谢谢。能做成宏吗？
阅读权限20
在线时间 小时
YEJINHAI 发表于
谢谢。能做成宏吗？
函数都可以，就没有必要用宏。宏是一定可以的，但现在没写好
阅读权限30
在线时间 小时
lnzz_xzy 发表于
函数都可以，就没有必要用宏。宏是一定可以的，但现在没写好
呵呵，谢谢。因为后面跟着一系列的动作。
阅读权限90
在线时间 小时
Sub macro()
& & Dim arr, brr, j%, cc%, c As Object
& & arr = Sheets(1).[a1].CurrentRegion
& & brr = Sheets(2).[a1].CurrentRegion.Offset(1, 0)
& & For j = 1 To UBound(arr, 2)
& && &&&Set c = Sheets(3).Rows(1).Find(arr(1, j), , , 1)
& && &&&cc = c.Column
& && &&&crr = Application.Index(brr, 0, cc)
& && &&&Cells(2, j).Resize(UBound(brr)) = crr
& & Next j
End Sub
复制代码
12:26 上传
点击文件名下载附件
65.1 KB, 下载次数: 24
阅读权限30
在线时间 小时
gdfcx 发表于
谢谢，完全正确，
阅读权限30
在线时间 小时
gdfcx 发表于
能详细的解析一下代码的意思吗？
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师“哥们儿！嗨，哥们儿！小道消息，据说辽宁很快就要开战了，法国造的手***要不要？很便宜的，只要8块钱，买一把了哥们儿！”
刚从训练场出来就遇见个家伙，他叫Dickoman，一个走私贩子。据说他这样的走私贩子刚开始是找大老板借钱的，如果量不够大他们也赚不到钱。辽宁，这消息靠谱么？我犹豫着，手不安分的在口袋里拨弄着仅存的5枚金币。
“五把，gold支付多少钱？”我极力稳住自己略微颤抖的声音。
“我算算，一共是0.8G。”他从口袋里掏出一个西卡欧的计算器，我不禁冷笑，这点钱还要用计算器～我小心翼翼从口袋里摸出一个金币给他，但是
却毫不犹豫，结果找零随他去取货。每个城市的广场上都有一个取货装置，可以互相往来信件和货物，但是像Dickoman这种走私贩是不会用那个装置的，太
慢，要排队，量还少。于是他带着我在北京的街道里绕来绕去，穿过一个个胡同，眼看就走到头没路了，没想到一扇门打开，穿过楼又是另一个巷子。终于来到一个
废弃厂房，里面放置了整整20台类似广场上的取货装置，我被震撼到了。
“五支Q1手***，嗯，法国法国，那台，给你哥们，看看还要什么？有希腊的机票和波兰的面包，都很便宜的。”他搓着手眉飞色舞的指点着他那两排机器，还有个机器人在忙碌着搬运货物。
“不了，再见。”我接过那个包裹，手***用油布包的很仔细，***很重，每把有五个弹夹，没有多余的子弹。我举起***看了看准星，没有问题，重新包好装进我随身的背包和他道别。
鱼哥对我这种走私行为相当鄙视，他认为我逃税了，但我觉得没有什么不妥，国家让我吃不饱肚子，还让我们上战场，难道我就不能走私几把***为国捐躯么？
6月的天气已经很热了，北京更是人口密集，我饥肠辘辘地走在街上，不知上哪去，我没有钱买房子，住在东直门汽车站的地下室里，那里有很多买不起房子的人，政府意识到无房的公民也需要保障，于是为我们修建了临时仓库和取货装置。至少，我的***放在私人仓库里不用担心被偷。
把***放进仓库，小心锁好，我决定上街转转去。回来时候完全没有发现开战的迹象，我决定去北京那些有名的茶座看看（不喝茶也能坐是吧～）。
SC500是土星共同体的私人集会地点，但是随着人数和知名度的提高，吸引了越来越多的外党和无党派人士去饮茶聊天。我就去那里打探一下辽宁的事，一旦开
战，我的***也没白买。
茶楼位于市中心广场的西侧，人声鼎沸，看来真的有些传闻，我刚打算进去，被一个长着四方脸的墨镜汉子拦下。
“找谁？”墨镜汉冷冷的说道，嘴角似乎隐约藏着一丝篾笑。真是新鲜，茶楼又不是总统府，我能找谁。
“找茶”我退后一步回答。墨镜汉的Q5***管不小心从身后露出一截。
“你叫什么？这里是SC的私人集会地”
“Crematory_Ns，我也SC的党员。”我想了想说，可能因为才入党，完全没有人知道我。墨镜汉立即拿出一个花名册，大红色的，封面上印着土星共同体大大的党徽。
“唔，果然有你的名字，好吧，进去吧，记得别乱说话。我是TonleThallos。”原来墨镜男是有名字的，我侧身淹没在喧闹声中。
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。