UC知道excel 宏 表间数据替换 悬赏10分
来源：百度知道 编辑：UC知道 时间：2024/06/14 01:10:53
表一
考号 姓名 总分
10000 王 1
10001 张 1
10002 李 1
10003 赵 1
10004 周 1
10005 吴 1
10006 王 1
10007 张 1
10008 李 1
10009 赵 1
10010 周 1
10011 吴 1
10012 王 1
10013 张 1
10014 李 1
10015 赵 1
10016 周 1
10017 吴 1
10018 吴 1
表二
考号 姓名 总分
10000 王 3
10001 张 4
10012 王 5
10013 张 6
10014 李 7
10015 赵 8
10016 周 9
10017 吴 10
10018 吴 11
以上两表都为500人以上表单，想把表二（部分表一人员）的数据替换表一数据．请问在EXCEL中如何操作？请各位达人帮忙．
二楼的朋友你的函数出错．无法复制
考号 姓名 总分
10000 王 1
10001 张 1
10002 李 1
10003 赵 1
10004 周 1
10005 吴 1
10006 王 1
10007 张 1
10008 李 1
10009 赵 1
10010 周 1
10011 吴 1
10012 王 1
10013 张 1
10014 李 1
10015 赵 1
10016 周 1
10017 吴 1
10018 吴 1
表二
考号 姓名 总分
10000 王 3
10001 张 4
10012 王 5
10013 张 6
10014 李 7
10015 赵 8
10016 周 9
10017 吴 10
10018 吴 11
以上两表都为500人以上表单，想把表二（部分表一人员）的数据替换表一数据．请问在EXCEL中如何操作？请各位达人帮忙．
二楼的朋友你的函数出错．无法复制
用vlookup
表一D2输入
=if(iserror(vlookup(a2,sheet2!$a:$c,3,0)),b2,vlookup(a2,sheet2!$a:$c,3,0))
刚才少个括号
添加一个宏，在需要的时候执行新加的宏即可，宏代码如下：
Sub Macro1()
'
' Macro1 Macro
' 宏由 user 编制，时间: 2008-6-10
'
Dim I As Integer
Dim J As Integer
Dim Tmp1 As String
I = 2
J = 2
Do
DoEvents
Tmp1 = Sheet2.Cells(I, 1)
Do
DoEvents
If Sheet1.Cells(J, 1) = Tmp1 Then
Sheet1.Cells(J, 2) = Sheet2.Cells(I, 2)
Sheet1.Cells(J, 3) = Sheet2.Cells(I, 3)
exit do
End If
J = J + 1
Loop While Sheet1.Cells(J, 1) <> ""
J = 2
I = I + 1
Loop While Sheet2.Cells(I, 1) <> ""
'
End Sub