Question

有两个Excel文件，Excel A和Excel B 。我想要把Excel B中某个内容自动记录到表A里，如何实现？

Excel A用于保存信息（相当于查寻记录用的信息库）放在固定目录下。Excel B是用来填写信息的,Excel B是活动的，当我把Excel B内容填完后，我想点个按钮就把Excel B中的序列号和型号两个单元格的内容自动填写到Excel A里的A列和B列的最后一个非空单元格里。可以实现吗？非常感谢。
我的表达可能不准确，我想先提取Excel A中的最后一个序列号+1写到Excel B文件里，再在Excel B里填上新的型号，填完后把新的序号和新的型号写到Excel A里面保存。

Answer 1

想问你一下，你想让B和A保持同步呢，还是每次将B的内容保存到A后就自动清空B的内容。如果是前者，设计几个公式就可以了。如果是后者，需要用VBA或VS来设计了。请告之，看我如何帮你。

追问

我需要每次将B的内容保存到A 。VBA我不太懂

追答

明白，保存完以后B的内容要清空吗？

追问

B其实是个模板，是个生产要求规格文件。我在B这个空白的模板里面填上生产要求和新的序号和型号，再把新的序号和型号记录在A里面，然后把B另存为一个新的生产要求规格文件。下一个文件也是从B这个空白的模板里面填 ，填完后再把新的序号和型号记录到A里面，再另存。重复这么做。有劳了。

追答

你会用access吗，一个表，一个查询加一个窗体就够了，很简单，不用vba。如果坚持要用excel，请把A和B的模板发给我，我做完给你。Alan.nixr@gmail.com

追问

发到你邮箱了。先谢谢你

追答

刚收到，好像你的Excel2003版的，我的是2010版。明天借台2003版的帮你做。主要思路是：
1. 做个菜单，含读入和写入；
2. 读入主要是把最后号码的后一个号码放进去；
3. 写入主要写入C9和日期。
如果不急的话等我，如果急的话我用2010做，2003有些命令可能不能读。

追问

是的，就是这个意思。写入C9和日期同时还要把新的序列号入。
有劳了。万分感谢！不急的，你用业余时间弄就行，你慢慢弄。

追答

不好意思，没借到2003版的电脑，以下是VBA代码，拷贝它们，再打开RFQ的表，按alt+f11进入VBA编辑，双击sheet1，把代码黏贴进去。粘完后在工作表的开发工具了制作两个按钮，分别双击它们，在VBA跳出来的自动代码的中间(Sub和End Sub中间)一个输入Load，一个输入Save。代码都有解释，看看就会了。不懂或如需要做快捷键，给我email。做菜单得有2003版才能做，等我找到了再做吧。
刚刚发现，因字数限制，只能发送部分代码。我会飞email给你。
Const MyPath = "C:\Users\Happy\Desktop\" '设置工作簿路径
Const WorkBookName = "VIKA RFQ Checklist 2012.xls" '工作簿名称
Private Sub Load() '从总表读入序列号
If Not WorkbookIsOpen(WorkBookName) Then '判断总表是否打开
On Error Resume Next
Workbooks.Open (MyPath & WorkBookName) '如果总表还没打开，则打开工作表
If Err 0 Then
MsgBox ("文件" & MyPath & WorkBookName & "路径或文件名错误，请检查！")
End If
End If
Call Clear '调用Clear命令
Range("D6") = Now() 'D6中填入当前日期及时间
Range("E7") = MyNumber() '调用自定义的MyNumber函数
End Sub
Private Sub Save() '信息存入总表，并保存总表
Dim MyDate As Date
Dim Q_No As String
Dim PCB_No As String
Dim MyRange As Range
MyDate = Range("D6")
Q_No = Range("D7") & Range("E7")
PCB_No = Range("C9")
If Not WorkbookIsOpen(WorkBookName) Then '判断总表是否打开
On Error Resume Next
Workbooks.Open (MyPath & WorkBookName) '如果总表还没打开，则打开工作表
If Err 0 Then
MsgBox ("文件" & MyPath & WorkBookName & "路径或文件名错误，请检查！")
End If
End If
Set MyRange = Workbooks(WorkBookName).Sheets(1).Range("B1").End(xlDown).Offset(1, -1)
MyRange = MyDate
MyRange.Offset(0, 1) = Q_No
MyRange.Offset(0, 2) = PCB_No
Workbooks(WorkBookName).Save
End Sub

Answer 2

由于我使用的WPS 个人版，无法使用控件，只有给你一个思路：
1、2个表格A , B分别具有相同的列：序号、型号；
2、A 表格保持不动，但里面应该有初始数据1 - 序号 ， 0 -型号；
3、B 表格使用公式=MAX([c:\a.xls]Sheet1!$A:$A) 获取A 表格的序号最大值，注意文件名要带路径（黄色处），B表格的序号部分用公式自动+1 填充序号；
4，创建一个VBS 控件按钮。。。至此帮助不到你了，因为我的版本不能使用。

其实我建议你使用数据库FOXPRO 更方便，并且更简单。。。

追问

你的思路最接近。谢谢。还有个问题，怎么把B表中最新序列号写回到A 表中第一个非空单元格里（这个单元格是活动的，也是+1的）？ Wating.....

追答

既然B 表中的最新序号 是根据A 表中的 序号+1 得到的， 因此A 表中的序号完全可以根据自身最大数字来自动填充。

Answer 3

可以实现，用复制B的内容-------到A----找到相应位置后-------编辑-----选择性粘贴----粘贴为链接勾选---确定，就好了 ，都不用点任何按钮的，自动实现了。

追问

想用按个按钮就可以实现的。可以不？

追答

不用按，马上就实现了，而且，以后只要在B发生变化，A就自动变了

追问

我的表达可能不准确，我想先提取Excel A中的最后一个序列号+1写到Excel B文件里，再在Excel B里填上新的型号，填完后把新的序号和新的型号写到Excel A里面保存。

追答

这个也可以的，互相粘贴为链接就可以了，只要在B里粘贴为链接的位置上，粘贴为链接后再双击后补输+1，就直接变为新号。再用互相粘贴为链接就可以实现了

Answer 4

用函数VLOOKUP可以实现