作者：乔山办公网日期：
返回目录：excel表格制作
亲，代zd码内如下容：
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 1 Then
Range("AB" & Target.Row).Value = Range("D" & Target.Row) & Range("F" & Target.Row)
End If
If Target.Column = 3 Then
If Range("A" & Target.Row).Value = "" And Range("B" & Target.Row).Value = "" Then
Range("A" & Target.Row).Value = Range("A" & Target.Row - 1).Value
Range("B" & Target.Row).Value = Range("B" & Target.Row - 1).Value
End If
End If
End Sub
这里面有个关键百问题就是你的那个系统导出的.xls文件名会变么？如果不变，可以试下我的另一个思路吧。
用链接表的方式也可以，度你只要复制1次，粘帖的时候选"选择性粘帖",双击就可以同版步编辑。
这样你粘帖过去的就是一个同步的链接，你改了这个，那个也会更新。最重要权的是你引用的那个.xls的文件名和相对路径不能变！！
看如下图示。
公式可以完成为什么用VBA？
B2公式：=VLOOKUP($A2,SHEET1!A:E,MATCH(B1,SHEET1!A1:E1,),)
右拉填充即可。