数量较多的表格VBA编程求助。

ching

数据：本期消费1,满100万行会有本期消费2……每个文件都只有sheet1；本期充值文件里有本期充值1，满100万行会有本期充值2……要求：把目录中所有本期消费的卡号与本期充值里的所有工作表中的卡号比较，汇总本期消费中的消费金额对应到本期充值中的消费列，并把本期消费中与本期充值中卡号相同的数据结合，具体是本期消费中A列+本期充值中B、C两列+本期消费中剩余列，生成新表——本期充值消费,满100万行生成本期充值消费2……，本期消费中剩余数据的生成新表——去期充值消费，满100万行生成去期充值消费2……

谢谢！

3190496160

一个字一个字的看了半天，还是不知所云，

夜风窗台

居然活捉一只2002年注册的账户

ching

3190496160 发表于 2021-5-6 14:52
一个字一个字的看了半天，还是不知所云，

可能被100万行误导了。就是有本期消费1.xls、本期消费2.xls……每个工作簿只有sheet1表，有100行左右，卡号有重复。本期充值.xls里面有本期充值1、本期充值2……每个表也是100万行左右，卡号唯一。想要把所有本期消费工作簿中的卡号和本期充值工作簿中的所有工作表的卡号比较，卡号相同的，一是消费表中的同一卡号消费金额汇总后对应到本期充值表中卡号的消费列；二是卡号相同的两表生成一个新的工作簿，内容要求有本期消费中A列+本期充值中B、C两列+本期消费中剩余列，此时会有可能超过1048576行，满100万行就可以生成另一个新的工作簿，以此类推。所有本期消费工作簿中的卡号和本期充值工作簿中的所有工作表的卡号无关的，再生成新的工作簿，此时会有可能超过1048576行，满100万行就可以生成另一个新的工作簿，以此类推。

不知道我表达清楚了吗，谢谢。

ching

夜风窗台 发表于 2021-5-6 15:48
居然活捉一只2002年注册的账户

曾经有段远离Excel的工作，谢谢理解。

zpy2

ching 发表于 2021-5-6 15:58
可能被100万行误导了。就是有本期消费1.xls、本期消费2.xls……每个工作簿只有sheet1表，有100行左右，卡 ...

本期消费1,满100万行会有本期消费2……每个文件都只有sheet1

这些数据这么多，如果是从数据库导出的，建议在数据库查询。
如果没有权限，建议导出到txt文件，没有行数限制，然后再导入数据库处理。

ching

zpy2 发表于 2021-5-7 08:17
本期消费1,满100万行会有本期消费2……每个文件都只有sheet1

这些数据这么多，如果是从数据库导出的， ...

谢谢提议，数据库还不会。如此操作主要是用VBA过滤，再用透视表做报表。

ching

还请大神们出手相助，谢谢。

ching

殷切的期待着…………

/pig流云

用字典对象读取卡号，并记录充值金额及消费金额同时计算出剩余金额。附近为封装的字典对象类文件。具体可以网上看使用方法。