(1.46 KB, 下载次数: 12)
14:57 上传
下载次数: 12
如何使两张表格中的数据关联?
如何使两张表格中的数据关联?谢谢帮助!
猜你喜欢看
在线时间106 小时经验11133 威望19 性别男最后登录注册时间阅读权限50UID9946积分13633帖子精华5分享0
积分排行36帖子精华5微积分0
问题太模糊。具体是什么样的关联？查找？引用？相加……？或者是一个表格的数据变动后，另一个表格的数据随之变动？最好举出一个实际一点的例子，否则大家真不知道你说的是什么。
生命有穷期，过一日，少一日；
学问无止境，求一点，得一点。
在线时间0 小时经验88 威望0 性别女最后登录注册时间阅读权限20UID308681积分138帖子精华0分享0
EH初级, 积分 138, 距离下一级还需 212 积分
积分排行3000+帖子精华0微积分0
&不好意思,是我说的不清楚。是一个表格的数据变动后，另一个表格的数据随之变动。
在线时间62 小时经验893 威望0 性别男最后登录注册时间阅读权限50UID228610积分1293帖子精华0分享0
EH高级, 积分 1293, 距离下一级还需 707 积分
积分排行806帖子精华0微积分0
很麻烦的办法，你参考一下吧如果是想直接引用对方单元格数据的话,如A1单元格显示未打开的其他工作簿中A1单元格的内容:A1=='C:\Documents and Settings\Administrator\My Documents\[111.xls]Sheet1'!$A$1不过要记得的是,每次打开工作簿,最好进行链接更新,以保持最新的数据直接引用未打开工作簿
在线时间0 小时经验88 威望0 性别女最后登录注册时间阅读权限20UID308681积分138帖子精华0分享0
EH初级, 积分 138, 距离下一级还需 212 积分
积分排行3000+帖子精华0微积分0
非常感谢，只要能做出来就行了，麻烦点就麻烦点．
在线时间11 小时经验31 威望0 性别男最后登录注册时间阅读权限20UID85797积分31帖子精华0分享0
EH初级, 积分 31, 距离下一级还需 319 积分
积分排行3000+帖子精华0微积分0
不知道我说的对不对你要引用的单元格这样处理A1＝另外一张表的某个单元格，这样以后在你打开另外那个表时，会问你是否更新，你点确定就成了，以后你只要变动原来的表格，数据都会跟着变了
积分≥4700即可申请
金牌优秀会员
金牌优秀会员奖章No.1
优秀会员奖章No.1
- 注意：自起，未完成邮箱认证的会员将无法发帖！如何完成邮箱认证？请点击下方“查看”。
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&(4.94 KB, 下载次数: 22)
09:21 上传
下载次数: 22
我想在两个表中建立关联并一次性替换数据，即用book11的b列按book12的A列精确匹配替换。
怎么写代码？
在线时间23995 小时经验38585 威望25 性别男最后登录注册时间阅读权限150UID501055积分41385帖子精华2分享0
管理以下版块
136463财富
积分排行4昵称请模拟效果帖子精华2微积分0
Sub Macro1()
& & Dim arr, d As Object, i&
& & Set d = CreateObject(&scripting.dictionary&)
& & Application.ScreenUpdating = False
& & With GetObject(ThisWorkbook.Path & &\Book11.xls&)
& && &&&arr = .Sheets(1).Range(&A1&).CurrentRegion
& && &&&.Close
& & End With
& & For i = 1 To UBound(arr)
& && &&&d(arr(i, 1)) = arr(i, 2)
& & arr = Range(&A1&).CurrentRegion
& & For i = 1 To UBound(arr)
& && &&&arr(i, 1) = d(arr(i, 1))
& & Range(&b1&).Resize(i - 1) = arr
& & Application.ScreenUpdating = True
在线时间4887 小时经验13097 威望7 性别男最后登录注册时间阅读权限95UID443526积分13347帖子精华0分享0
积分排行40帖子精华0微积分0
手工做几个结果示意一下，要求不大明白。
在线时间23995 小时经验38585 威望25 性别男最后登录注册时间阅读权限150UID501055积分41385帖子精华2分享0
管理以下版块
136463财富
积分排行4昵称请模拟效果帖子精华2微积分0
(10.33 KB, 下载次数: 23)
09:44 上传
下载次数: 23
在线时间42 小时经验21 威望0 性别男最后登录注册时间阅读权限20UID489287积分21帖子精华0分享0
EH初级, 积分 21, 距离下一级还需 329 积分
积分排行3000+帖子精华0微积分0
谢谢楼上，难道不用vlookup函数吗？
在线时间23995 小时经验38585 威望25 性别男最后登录注册时间阅读权限150UID501055积分41385帖子精华2分享0
管理以下版块
136463财富
积分排行4昵称请模拟效果帖子精华2微积分0
原帖由 calin13 于
09:44 发表
谢谢楼上，难道不用vlookup函数吗？
单击附件中的按钮看看效果
在线时间42 小时经验21 威望0 性别男最后登录注册时间阅读权限20UID489287积分21帖子精华0分享0
EH初级, 积分 21, 距离下一级还需 329 积分
积分排行3000+帖子精华0微积分0
我是这样写的：
Private Sub Workbook_Open()
With Target
Select Case .Column
.Offset(0, 1).Formula = &=vlookup(a& & .Row & &,[book11.xls]sheet1!$A$1:$d$172,2,0)&
End Select
如果把它写成一个模块，该怎么写？
在线时间42 小时经验21 威望0 性别男最后登录注册时间阅读权限20UID489287积分21帖子精华0分享0
EH初级, 积分 21, 距离下一级还需 329 积分
积分排行3000+帖子精华0微积分0
谢谢 zhaogang1960 ！
我刚学VBA 看不太懂，能解释一下吗？
在线时间23995 小时经验38585 威望25 性别男最后登录注册时间阅读权限150UID501055积分41385帖子精华2分享0
管理以下版块
136463财富
积分排行4昵称请模拟效果帖子精华2微积分0
原帖由 calin13 于
09:55 发表
谢谢 zhaogang1960 ！
我刚学VBA 看不太懂，能解释一下吗？
Sub Macro1()
& & Dim arr, d As Object, i&
& & Set d = CreateObject(&scripting.dictionary&) '创建字典对象
& & Application.ScreenUpdating = False
& & With GetObject(ThisWorkbook.Path & &\Book11.xls&) '引用Book11
& && &&&arr = .Sheets(1).Range(&A1&).CurrentRegion '数据区域写入数组
& && &&&.Close
& & End With
& & For i = 1 To UBound(arr) '逐行数据
& && &&&d(arr(i, 1)) = arr(i, 2) 'A列添加到字典键值，B列添加到字典条目
& & arr = Range(&A1&).CurrentRegion '数据区域写入数组
& & For i = 1 To UBound(arr) '逐行数据
& && &&&arr(i, 1) = d(arr(i, 1)) '该单元格字典条目覆盖该单元格所在数组元素，如果字典不存在则为空白
& & Range(&b1&).Resize(i - 1) = arr '写数据
& & Application.ScreenUpdating = True
[ 本帖最后由 zhaogang1960 于
10:04 编辑 ]
在线时间42 小时经验21 威望0 性别男最后登录注册时间阅读权限20UID489287积分21帖子精华0分享0
EH初级, 积分 21, 距离下一级还需 329 积分
积分排行3000+帖子精华0微积分0
再次谢谢 zhaogang1960 ！
如果用 vlookup 函数该怎么写？
麻烦你了。
积分≥4700即可申请
最佳管理者
最佳管理者奖章No.4
最佳管理者
最佳管理者奖章No.3
最佳管理者
最佳管理者奖章No.2
最佳管理者
最佳管理者奖章No.1
金牌优秀管理者
金牌优秀管理者勋章No.1
优秀管理者
优秀管理者勋章No.1
金牌优秀会员
金牌优秀会员奖章No.2
金牌优秀会员
金牌优秀会员奖章No.1
优秀会员奖章No.2
优秀会员奖章No.1
优秀会员奖章No.3
优秀会员奖章No.4
- 注意：自起，未完成邮箱认证的会员将无法发帖！如何完成邮箱认证？请点击下方“查看”。
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&关于将Excel两个Sheet页中是数据依据某列关联Join在一张表的方法
[问题点数：40分]
关于将Excel两个Sheet页中是数据依据某列关联Join在一张表的方法
[问题点数：40分]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
相关帖子推荐：
2011年6月 Windows专区大版内专家分月排行榜第三2011年1月 Windows专区大版内专家分月排行榜第三2010年11月 Windows专区大版内专家分月排行榜第三2010年2月 Windows专区大版内专家分月排行榜第三2010年1月 Windows专区大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。(1.86 KB, 下载次数: 13)
15:23 上传
下载次数: 13
[求助]两个相关联的表格之间数据求和
两张表，一张是出口数据，一张是结汇数据，分别有数千条数据。两张表的数据之间通过“核销单号”形成关联。现在要对各“品名”的“结汇金额”进行汇总。如何实现？多谢！
15:20 上传
下载次数: 2
1.86 KB, 下载次数: 2
[求助]两个相关联的表格之间数据求和
猜你喜欢看
在线时间4 小时经验207 威望0 性别男最后登录注册时间阅读权限20UID47092积分207帖子精华0分享0
EH初级, 积分 207, 距离下一级还需 143 积分
积分排行3000+帖子精华0微积分0
高手帮看看啊
在线时间4 小时经验207 威望0 性别男最后登录注册时间阅读权限20UID47092积分207帖子精华0分享0
EH初级, 积分 207, 距离下一级还需 143 积分
积分排行3000+帖子精华0微积分0
斑竹有空帮看看啊.多谢了!
在线时间4 小时经验612 威望0 性别男最后登录注册时间阅读权限30UID384126积分614帖子精华0分享0
EH中级, 积分 614, 距离下一级还需 486 积分
积分排行1724帖子精华0微积分0
以下是引用wg5985在 15:23:58的发言：两张表，一张是出口数据，一张是结汇数据，分别有数千条数据。两张表的数据之间通过“核销单号”形成关联。现在要对各“品名”的“结汇金额”进行汇总。如何实现？多谢！B2=SUMPRODUCT((出口!$A$2:$A$12=结汇!A2)*出口!$D$2:$D$12)
在线时间113 小时经验143 威望0 性别女最后登录注册时间阅读权限20UID184696积分143帖子精华0分享0
EH初级, 积分 143, 距离下一级还需 207 积分
积分排行3000+帖子精华0微积分0
用数据透视表
用index返回相关结汇金额，然后用数据透视表
(7.91 KB, 下载次数: 18)
13:51 上传
下载次数: 18
用数据透视表
[此贴子已经被作者于 13:51:18编辑过]
10:58 上传
下载次数: 9
3.77 KB, 下载次数: 9
[求助]两个相关联的表格之间数据求和
临渊羡渔 不如退而结网
在线时间4 小时经验207 威望0 性别男最后登录注册时间阅读权限20UID47092积分207帖子精华0分享0
EH初级, 积分 207, 距离下一级还需 143 积分
积分排行3000+帖子精华0微积分0
谢谢di3jishuju，我用过SUMPRODUCT来处理，但数据太多，太麻烦。试试透视表
在线时间4 小时经验207 威望0 性别男最后登录注册时间阅读权限20UID47092积分207帖子精华0分享0
EH初级, 积分 207, 距离下一级还需 143 积分
积分排行3000+帖子精华0微积分0
谢谢cyanyy！透视表不错
- 注意：自起，未完成邮箱认证的会员将无法发帖！如何完成邮箱认证？请点击下方“查看”。
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&