vba操作工作表

一、案例概述：

 1、VBA实现创建同一格式下的15张工作表

  （1）使用for循环新增15张表，且将表名进行命名。

  （2）表中的日期进行更改。

 代码部分:

Sub gongzuobiao()

    Dim a As Integer

    For a = 1 To 15

        'Sheets.Add after:=Sheets(Sheets.Count)

        Sheet1.Copy after:=Sheets(Sheets.Count)

        Sheets(Sheets.Count).Name = a & "日"

        Sheets(a + 1).Range("J2") = "4月 " & a & "日"

        Next

End Sub

图片显示:

 2、VBA实现多表内容汇总

  目的:使用for循环将15张表的重要内容进行汇总且赋值到汇总表中。

代码部分:

 Sub huizong()

    For a = 1 To 15

        Sheet1.Range("C" & a + 6) = Sheets(a + 1).Range("J2")

        Sheet1.Range("f" & a + 6) = Sheets(a + 1).Range("J4")

        Sheet1.Range("i" & a + 6) = Sheets(a + 1).Range("J32")

    Next

End Sub

图片显示:

 二、总结: