我公司两位出纳登记各自的出纳日记帐，但老板要看合并的出纳日记帐，常年手工合并带来很大的工作量（详见附件），请问能不能编个VFP小程序，让出纳们将日记帐录入在程序表格中，然后自动合并成一张新表呢？请高手们帮忙仔细想想，非常感谢！如果能编出这个实用程序，本人愿意付费，可以私下联系：tonytg@，13306020885.

对VFP而言，楼主的问题不是问题
合并后的数据，还是在EXCEL中显示吗？
只有两个EXCEL工作簿？
两个EXCEL合并后，摘要排序的规则是什么？

[此贴子已经被作者于2021-2-28 10:28编辑过]

如果用VFP合并，就希望在VFP中显示合并结果，当然需要时也可以导出成为EXCEL表格

摘要不需要排序，按日期排序就可以了

个人觉得：在日记账表增加一个“开户名称”或“开户编码”字段作为合并表比较好处理
可以按“开户名称”查询、分类、统计、排序等，应对开户的变动更加灵活，看起来更简洁直观

先在VFP中生成下面的格式

@tonytg 你提供的测试数据只有2个银行，按你的C表的处理，随着行的增加要不断增加表的字段，这对数据处理是非常不便的。应当考虑5楼吹版的建议，这样可以使表的字段是固定的，统计处理会变得简易。


你这个数据合并，也可以用EXCEL的宏来处理，也很简单的

[此贴子已经被作者于2021-3-1 12:13编辑过]

Sub 出纳日记帐hz()
   
   '汇总A表，用整体复制粘贴法
   
   Sheet3.Select
   Cells(4, 4).Value = "年初结余"
   For i = 1 To 2     '--如果有5个出纳帐，则将此处的循环结束值修改为5
     Sheet3.Cells(4, 7).Value = Sheet3.Cells(4, 7).Value + Sheets("出纳" & i).Cells(4, 7).Value
   Next i     ' 将每个出纳的“年初结余”合在一起，写入到汇总表的结余栏中
   '---
   Sheet1.Select
   x1 = 5
   Do While Not (IsEmpty(Sheet1.Cells(x1, 1).Value))
     x1 = x1 + 1
   Loop
   Range(Cells(5, 1), Cells(x1, 7)).Select
   Selection.Copy
   Sheet3.Select
   Range("A5").Select
   ActiveSheet.Paste
   Sheet3.Cells(4, 2).Value = ""
   Sheet3.Cells(4, 3).Value = ""
   '---完成将出纳1的日记帐复制粘贴到汇总表上
   Sheet2.Select
   x2 = 5
   Do While Not (IsEmpty(Sheet2.Cells(x2, 1).Value))
     x2 = x2 + 1
   Loop
   Range(Cells(5, 1), Cells(x2, 7)).Select
   Selection.Copy
   Sheet3.Select
   Range("A" & x1).Select
   ActiveSheet.Paste
   '---完成将出纳2的日记帐复制粘贴到汇总表上
   x3 = 5
   Do While Not (IsEmpty(Sheet3.Cells(x3, 1).Value))
     N_sr = Sheet3.Cells(x3, 5).Value
     N_zc = Sheet3.Cells(x3, 6).Value
     Sheet3.Cells(x3, 7).Value = Sheet3.Cells(x3 - 1, 7).Value + N_sr - N_zc
     x3 = x3 + 1
   Loop    '--对每日结余额进行重算
   
End Sub

这是用EXCEL的宏来解决的

高手！