求助各位大神:如何用函数调用另一个工作表中符合条件的数据?? 70
我需要将表2中所有成绩为A1的人员信息调用到表1中去,形成图示的结果:我需要的是通过函数来关联两个工作表,当我在表2中填写人员成绩时,成绩为A1的人员信息会自动更新到表1...
我需要将表2中所有成绩为A1的人员信息调用到表1中去,
形成图示的结果:
我需要的是通过函数来关联两个工作表,当我在表2中填写人员成绩时,成绩为A1的人员信息会自动更新到表1中去。有没有办法实现啊??谢谢各位大神,帮帮忙!
还是解决不了问题.... 展开
形成图示的结果:
我需要的是通过函数来关联两个工作表,当我在表2中填写人员成绩时,成绩为A1的人员信息会自动更新到表1中去。有没有办法实现啊??谢谢各位大神,帮帮忙!
还是解决不了问题.... 展开
1个回答
展开全部
我从网上给你找的,VBA方法实现自动复制,具体你再按这个思路研究下
Sub test()
Dim i As Integer, myrange As Range
'指定条件查找的区域,这里的a2:d12替换成你的表格所在的区域
For Each myrange In ActiveSheet.Range("a2:C12")
i = myrange.Row '指定条件值所在的行号
If myrange.Value = "A1" Then '指定条件
Rows(i).Copy '复制符合条件单元格所在的整行
'这里可以指定粘贴的目标表格
n=n+1
Worksheets("Sheet1").Rows(n).value= Sheets("Sheet2").Rows(i).value
Else
End If
Next
End Sub
另外一种方法是原则性粘贴,没有验证过
先复制表1需要的数据,在表2适当位置选择性粘贴,粘贴链接就可以啦。当表1的数据录入或更新完后,表2自然也更新了。
Sub test()
Dim i As Integer, myrange As Range
'指定条件查找的区域,这里的a2:d12替换成你的表格所在的区域
For Each myrange In ActiveSheet.Range("a2:C12")
i = myrange.Row '指定条件值所在的行号
If myrange.Value = "A1" Then '指定条件
Rows(i).Copy '复制符合条件单元格所在的整行
'这里可以指定粘贴的目标表格
n=n+1
Worksheets("Sheet1").Rows(n).value= Sheets("Sheet2").Rows(i).value
Else
End If
Next
End Sub
另外一种方法是原则性粘贴,没有验证过
先复制表1需要的数据,在表2适当位置选择性粘贴,粘贴链接就可以啦。当表1的数据录入或更新完后,表2自然也更新了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询