Vba 将值从一张图纸移动到另一张图纸

我正在寻找一个Excel 2003宏来解决这个问题

我有一张保存财务信息的表格：

A1持有客户名称和AI1、AK1、AM1等，持有月份4月、5月、6月所有字符串值等；下面的行保存相应月份的到期金额。 最后一行是总数

我需要的是创建一个摘要页面，检查名为current month的命名字段，该字段将当前月份作为字符串值保存，以及当前月份之前（包括当前月份）每个月的余额

---

如果到期总金额大于0，则将月份名称和到期总金额放入摘要页面上的一个新表中，这样我就得到了一个表，其中只包含我们欠我们的钱的月份。

您还没有说明为什么需要将其设为宏。但无论如何。。。为确保我理解该请求：

有效地，为每个客户创建一个汇总表

如果从1月到当前月的应付款总额>0，则复制该表

删除到期金额为零的每个月的列

好的，因为这是Excel 2003，我一直非常谨慎

我决定使用pivot表，如果您想扩展细节以帮助确定负责的客户，那么您可以轻松地这样做

---

imgur.com上的屏幕盖：fO7zM.png eCWS2.png 7FBUV.png每篇文章我不能发布多个链接

感谢您的关注-我实际上需要项目表保持完整，因为它包含客户的所有数据。我创建了另一张表，名为汇总表，它只列出了一年中从4月到本月的月份以及每个月的逾期总金额——它根本没有客户数据，只有截至当前日期每个月的到期总金额。到期金额在项目页面的最后一行，月份标题在第1行statring中，四月一直到MarchI，我们已经用一个答案更新了它。由于2007年vba对数据透视表的处理中出现了一个错误，使它在2003年运行起来可能比2007年更容易。。。就在我刚过丝带的时候：这看起来棒极了，谢谢-要到周四才能测试，但我真的很期待它…非常感谢你的时间和努力-一定会让你知道它是否有效…酷，我到时候再查。当我在Office2007中了解到一个bug时，工作起来很有趣。。。最好现在就学会，而不是在压力真的很大的时候！如果您希望我上传Excel文件或通过电子邮件发送给您，请告诉我。