自动添加工作表,并且赋值

最新推荐文章于 2024-08-26 09:44:23 发布

学习使我快乐……

最新推荐文章于 2024-08-26 09:44:23 发布

阅读量336

点赞数

分类专栏： vba

本文链接：https://blog.csdn.net/qq_34755115/article/details/117625393

版权

本文介绍如何满足在Excel中自动化创建单张或多张工作表，并对工作表进行赋值的需求。详细阐述了实现这一目标的方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

需求

创建单张工作表，并且在工作表中赋值
创建多张工作表，并且在工作表中赋值

方法

Worksheets.Add：在所属工作簿中新建一张工作表

Option Explicit
Sub 添加一张新的工作表()
    Dim XB As Worksheet '工作表
        '1步：添加了一张新的工作表，2步：并且赋值给XB代表新增的工作表，XB指向新的工作表
    Set XB = Worksheets.Add
        '给新增的工作表，第30行第2列赋值
    XB.Cells(30, 2