excel 怎样向另一文件中添加数据

来源：百度知道 编辑：UC知道 时间：2024/06/04 22:38:38
我现在编得一个excel A是用的数据引用，用VLOOKUP函数查找excel B文件中所符合的数据，现在问题是，当我在excel B找不着数据时，我需要在excel A中手动输入，那么我怎样在手动输入后，让这些数据直接添加到excel B中并保存呢

将A和B文件(文件名为A、B）放入同一文件夹中,在A中的VBA编辑器中编制代码:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Workbooks.Open Filename:="B.xls"
For i = 1 To Workbooks("B.xls").Sheets(1).Range("A1").End(xlDown).Row
If Cells(Target.Row, "A") = Workbooks("B.xls").Sheets(1).Cells(i, "A") Then
k = 1
Exit For
End If
Next i
If k = 0 Then
Workbooks("B.xls").Sheets(1).Cells(i, "A") = Cells(Target.Row, "A")
Workbooks("B.xls").Sheets(1).Cells(i, "B") = Cells(Target.Row, "B")
End If
Workbooks("B.xls").Close SaveChanges:=True
End If
End Sub
'注:当在A表中的第二列录入数据后,自动运行B表

内部直接引用就可实现

请提供邮件地址我传个样表给你，或你提供举例说明你需要的效果及原始资料，我给你设定串联

有个比较笨蛋时简单的方法，在处理完A后，往回在B后用一下以A为数据源的Vlookup就可以了。