龙空技术网

VBA常用代码_2、自动生成格式表

完美X先生 209

前言:

现时看官们对“利润表简表格式”可能比较关切,姐妹们都需要剖析一些“利润表简表格式”的相关内容。那么小编也在网上收集了一些关于“利润表简表格式””的相关资讯,希望朋友们能喜欢,咱们一起来学习一下吧!

利用笛卡尔积的概念,编写的一段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

标签: #利润表简表格式