在工作生活中，我们常由一个工作表复制生成多个工作表，并改变工作表上面标签名称、颜色，以及工作表上面相应的内容。如果复制的工作表较多，工作量也是相当大，费时费力，使用VBA程序可以将重复复杂的工作进行简化。

工具/原料

  • 电脑
  • Excel 2010

方法/步骤

  1. 1

    打开工作表，点击【开发工具】，【Visual Basic 】。

  2. 2

    打开VBA工程窗口后，在左侧的“ThisWorkbook”上面单击右键，选择“插入”，“模块”。

  3. 3

    在“模块1”的代码窗口里面输入以下VBA代码：

    Sub AutoCopySheets()

    Dim i, j As Integer

    i = 1

    j = 1

    For i = 1 To 30   '循环30次，相当于复制30个工作表

    j = j + 1

        Sheets("8.1").Copy After:=Sheets(Sheets.Count)              '复制工作表《8.1》

        Sheets(Sheets.Count).Name = "8" & "." & j                   '重命名工作表

        Sheets(Sheets.Count).Range("G4") = "2017年8月" & j & "日"   '单元格G4自动填写相应的日期

        

    If j Mod 7 = 5 Or j Mod 7 = 6 Then    '判断表格的日期是否是星期六或星期天，如果是，则改变工作表标签颜色

        With ActiveWorkbook.Sheets(Sheets.Count).Tab

          .Color = 255                                 '工作表标签改成红色

          .TintAndShade = 0

        End With

        

    End If

    Next

       

    End Sub

  4. 4

    按下F5件，或者点击VBA工程窗口上面的“运行”图标运行VBA程序，之后就会自动复制工作表，改变工作表名称，改变工作表标签颜色等。

  5. 5

    VBA程序执行完成之后，将该模块移除，以免再次运行时已经存在该工作表名称而报错。（在移除之前，将VBA程序模块导出，或者将VBA程序复制到记事本、Word文档等，以便以后使用。）

    END

注意事项

  • 个人经验，仅供参考。
经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。