利用Excel函数填充财务报表项目对应的附注序号

VBAMatrix 2024-11-06 11:05:19
引言

在出具财务报表审计报告的阶段,对审定财务报表的各个项目进行对应的附注编号,是一项机械而枯燥的工作。

财务报表模版示例如下图所示,要在B列填充财务报表项目的附注编号,同时要跳过年末余额和年初余额均没有数据的行。比如,第6行货币资金对应七(一),第12行应收账款对应七(二),以此类推。

财务报表模版(示例)

操作步骤

这里演示如何利用Excel函数填充财务报表项目对应的附注序号。为了避免函数多层嵌套不易理解,增加E、F、G、H、I五个辅助列。

1.E列

判断C列或D列是否有数据。E6单元格输入公式:

=OR(IFERROR(AND(ISNUMBER(C6),VALUE(C6)),FALSE),IFERROR(AND(ISNUMBER(D6),VALUE(D6)),FALSE))

2.F列

判断是否包含合计数、其中等关键字。比如对29行流动资产合计、40行其中:固定资产原价不进行编号。F6单元格输入公式:

=OR(IFERROR(FIND("流动资产合计",A6),FALSE),IFERROR(FIND("其中",A6),FALSE),IFERROR(FIND("累计折旧",A6),FALSE),IFERROR(FIND("固定资产减值准备",A6),FALSE),IFERROR(FIND("库存商品",A6),FALSE))

3.G列

判断是否进行编号。如果C列或D列有数据(即E列为True),且F列不包含关键字(F列为False),则进行编号。G6单元格输入公式:

=AND(E6,NOT(F6))

4.H列

进行编号。若IF函数判断G列为True,则使用CountIf统计G列选中区域True的个数,得到小写数字1,2,3......若IF函数判断G列为False,则得到空值。最后,再使用NumberString函数转换为中文大写数字一、二、三、......一十、一十一、一十二......特别注意,公式中绝对引用和相对引用的部分。

H6单元格输入公式:

=IFERROR(NUMBERSTRING(IF(G6,COUNTIF($G$6:G6,TRUE),""),1),"")

5.I列

处理一十、一十一、一十二......为十、十一、十二......I6单元格输入公式:

=IF(LEN(H6)=3,IF(LEFT(H6)="一",RIGHT(H6,2),H6),IF(LEN(H6)=2,IF(LEFT(H6)="一",RIGHT(H6,1),H6),H6))

完成以上工作,然后选择E6:I6区域,并下拉填充。

6.B列

终于到了最后一步了,填充B列的附注编号。B6单元格输入公式:

=IF(I6<>"","七("&I6&")","")

B6单元格下拉填充,完成!

完成效果

0 阅读:53

VBAMatrix

简介:分享MS Excel/Word的实用技巧以及VBA代码等。