前言:
现时看官们对“利润表简表格式”可能比较关切,姐妹们都需要剖析一些“利润表简表格式”的相关内容。那么小编也在网上收集了一些关于“利润表简表格式””的相关资讯,希望朋友们能喜欢,咱们一起来学习一下吧!利用笛卡尔积的概念,编写的一段VBA代码。
首先补充一下什么是笛卡尔乘积
例如,A={a,b}, B={0,1,2},则
A×B={(a, 0), (a, 1), (a, 2), (b, 0), (b, 1), (b, 2)}
图解:
----------------------------------------------------分割线--------------------------------------------------------
在工作中,我们经常会遇到做这种表的情况:
每个项目,都需要建立一个这样的利润简表,如果项目超过5个,那么复制粘贴的工作效率就会比较低了,我们来看看笛卡尔积表代码怎么做到的。
图示:共7个项目,9个费用科目,但是我相信我们在财务的工作中,不会这么少的科目和项目。
代码如下:
Sub 笛卡尔积表() Dim i, a, b, c, d i = 1 Set c = Range("A" & Rows.Count).End(xlUp) Set d = Range("B" & Rows.Count).End(xlUp) For Each a In Range("a1:a" & c.Row).Cells For Each b In Range("b1:b" & d.Row).Cells Cells(i, 3) = a Cells(i, 4) = b i = i + 1 Next b Next aEnd Sub
版权声明:
本站文章均来自互联网搜集,如有侵犯您的权益,请联系我们删除,谢谢。
标签: #利润表简表格式