VBA如何合并报表资料 网志图文版： http://www.b88104069.com/archives/4220 会计是企业的语言，一家公司所有商业交易，无论进销存、费用、固资等，所有交易凭证 都是交到财务部会计人员，据以编制传票。因此会计等於是企业忠实的纪录人员，以古代 话来作譬喻，便是如同史官般的存在。纪载史册，用意是以古为监，而纪录传票，用意不 仅仅是保留起来供税局或会计师查帐，对於企业经营管理而言，会计人员每天辛辛苦苦编 制传票，无形中便是建立企业有史以来的交易资料库，如今很流行大数据分析的说法，而 财务部所做每一笔传票，是对於所属企业最为有用的基础资料，是作为进一步财务分析的 原始资料，因此如何将这些资料有效率整合，本身是个值得研究的课题。 实务上，会计系统每个月一定都会有一份传票明细帐、或者是日记帐，在此分享如何利用 VBA，将两个月份的传票明细整合起来： 一、「1701」及「1702」传票明细帐，希望以一步到位的指令方式，将其整合到「合并」 工作表。 二、Excel操作是先选取「1701」的资料范围，「Ctrl+C」复制，游标移到「合并」工作 表（预设为A1储存格），「Ctrl+V」贴上。这个预期每个月都要做这麽一次，所以想说将 它「录制巨集」，组合成一个快速指令，具体可参考《会计人的Excel小教室》：1.4「录 制及管理巨集」。 三、在「巨集」视窗中，选定刚才所录制的巨集，按下「编辑」，表示进入VBA编辑检视 这个巨集程式。 四、可以看到刚才第二个步骤所做的操作，在VBA里面便是如图所示的程式。 五、在VBA编辑界面中，在上方指令区依序选择「插入」、「模组」。 六、参考刚才的巨集程式，编写将「1701」及「1702」传票明细帐整合到「合并」工作表 的程式代码。最开始「Public Sub Conbine()」，表示将这个自制指令取名为「Conbine 」。 七、执行「Conbine」巨集，神奇的事情发生了，一瞬间所有我们想要执行的操作，全部 一次做好呈现在眼前。 这篇文章是个开始，内容是着重在如何自己录制巨集作参考，关於程式代码未多作说明。 实务上，有可能有非常多张的工作表、也有可能工作表是储存在电脑资料夹各个Excel档 案中，另外，这篇文章最後执行的结果，可以看到中间有个重覆的标题列，诸如此类的情 形，VBA程式将会更加复杂，预计在往後会再有几篇文章，专门分享如何合并报表资料， 并且会详细说明每一行的程式代码。 延伸阅读： VBA如何自动建立资料夹（上） http://www.b88104069.com/archives/4190 VBA如何自动建立资料夹（下） http://www.b88104069.com/archives/4193 VBA如何整理程式代码 http://www.b88104069.com/archives/4157 -- 周末，我们继续Excel：=>21.心得=>5.其他=>3.office 会计人的Excel小教室： https://www.facebook.com/acctexcel --

※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 60.245.65.135 ※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Accounting/M.1497950567.A.5E3.html