Excel宏功能简单应用介绍

Ｅｘceｌ宏功能简单应用介绍

所谓宏,就是一组指令集，通过执行类似批处理的一组命令，来完成某种功能。ＭicrosｏfｔOｆｆice的组件都可以支持宏（Macro)的操作，而Ofｆice的宏是指使用VB Ｓcript指令集（VB编程语言的子集，可以使用VB的常用语句)编写的针对Ofｆｉcｅ组件的小程序。利用宏，我们可以完成很多程序原本并不支持的特殊应用,比如完成某种特殊的数据计算,或者文档的特殊格式排版等等。下面,就让我们举个简单的例子,看看宏在Excｅl中如何应用。

有这样一个Ｅxceｌ表格，工作表Sｈｅｅt1中的第２行的B列开始至D列的连续单元格中是一组共３个数据，第A列的第3行开始至第６行的连续单元格中是一组共４个日期，要编写一段宏来完成这样的工作:将Ｓheet１第2行的数据由左至右依次纵向复制到Sheｅt２的B列（从Ｂ2开始）中,然后将这组复制完的3个数据所在行的A列都填入Ｓhｅeｔ1的A3单元格里面的日期,完成后重复之前的操作,将Ｓhｅet1第2行的数据再次复制到Sheｅt２的B列,这次是从上次复制的B列数据下面的空白单元格，也就是B5开始,然后再在这次复制的３个数据的左侧A列填入Sｈｅｅｔ1的A4单元格的日期,这样反复循环，直到Sｈe ｅｔ1的Ａ列的所有日期都出现在了Sheet2的A列里面，也就是Ｓheｅt１的第2行数据在 Sheeｔ2的Ｂ列里面被复制了４次为止。

编写宏只要有一点点简单的VＢ编程知识就可以了,并不一定需要很高深的编程技巧，很多时候我们需要的只是一些重复的操作,我们可以通过宏的录制功能来录制一次需要的操作过程，然后再对已经录制的宏进行简单的修改,就能得到所需要的宏了。

对于上面这个事例,实际上只是简单的复制操作，所以甚至连录制的工作都可以省掉了。因为所需要的操作是一个循环的过程，所以我们可以使用一个循环语句来编写程序,这样只要写出一个完成的复制过程，一次循环就可以达到我们的目的了。循环判断的依据就是是否Ｓheｅｔ1的A列所有日期都复制过了,因为数据都是连续排列的,艘以我们可以把Shｅet1的A列某个单元格是否有数据作为进入循环的条件,依次复制日期,直到A7这个没有数据的空单元格,循环结束,我们的工作也就完成了。至于循环里面的内容，我们同样再嵌套一个循环，只不过这次是判断第2行的数据是否全都复制完成了,在这个循环里面自然就是单元格数据和日期的复制了。

Ｓub Ｍacro1(）

Dim st1y

Dｉm st2ｙ

Dim ｓt1x

sｔ１y ＝３

st２y = 2

ＤｏＷhile Sｈeets(“Ｓheet1”）．Ｃells(st１ｙ, "A") <> ""

sｔ１x ＝ 2

Do While Ｓｈeets(“Sｈeet1”).Ceｌls(２， st１x）<> ""

Sheｅts(“Ｓheet2”).Cells(ｓt2y, "B") = Sheｅtｓ(“Ｓhｅet １”)．Celｌs(2, sｔ1ｘ）

Sｈeeｔs（“Sheｅｔ2”)．Ceｌls(st2y, ＂Ａ") = Ｓheetｓ

（“Sheet1”).Cells(st１y， "A")

st１x = st1x + １

ｓt2ｙ = st2ｙ + 1

Loｏｐ

st1y = st1y ＋１

Loop

End Ｓuｂ

上面就是我编写的这个宏的所有内容,让我再来详细说说每个命令的作用:

第一行的“Ｓｕb Macｒo1()”和最后一行的“End Sｕb”是整个宏的开始和结尾标志，Macrｏ1就是这个宏的名字。

“Ｄim”是定义一个变量,“st1y”是我定义的Shｅet1的Y轴坐标变量,同理，“st1x”就是Sheeｔ１的X轴坐标变量，“ｓt２y”自然是Ｓhｅeｔ２的Y 轴坐标变量了。

“st1y = 3”这是一个赋值语句，下面的“Sheｅts("Sｈｅｅt2").Cells （st2y, "ｂ＂）= Sｈｅets("Sheet1＂).Cells（2, st1x)”这句也是,它们的作用都是将等号后面的数值赋予给等号前面的变量，就是说,等号前面必须是一个变量而不能是常量。这里分别给st1y和st2y赋予初始值3和2，代表他们分别是从第3行(Sheｅt１的日期是从A3开始的)和第２行开始。

“DｏWhile”就是我们整个程序中最重要的循环语句了,“Ｓheeｔｓ（"Sh ｅeｔ1").Cells(sｔ1y, "A＂）”是代表的Ｓheｅt１这个工作表的某个单元格，Ｃells后的括号内就是单元格的坐标，格式是Cells(Y轴,Ｘ轴）,那个A3这个单元格就应该表示为Ｃｅｌｌs（3, "A＂)，这里注意,字符和字符串常量都必须用引号括起来，另外,X周除了用字母标示以外,也可以使用对应的数字来表示。第一个循环就是判断是否在Sheｅt1的A列的某个单元格碰到了空白格，

如果没有，就进入循环执行里面的程序。与这个“DoＷhile”相对应的就是倒数第二行的“Ｌoop”。

进入循环以后对st２x进行赋值,然后进入第二个循环，判断Sｈeet1的第2行是否遇到了空白单元格，没有的话就继续执行下面的程序。

之后就是按照规则对单元格内容进行复制,之后给变量增值，以便循环能够顺利的执行,直到完成所有的操作。