给多张工作表赋值

最新推荐文章于 2023-05-25 16:26:53 发布

学习使我快乐……

最新推荐文章于 2023-05-25 16:26:53 发布

阅读量418

点赞数

分类专栏： vba

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

版权

本文介绍了如何在Excel中针对多个工作表进行批量操作，具体需求是在每个工作表的第30行第2列设置值为100。提供了两种解决方案，一种适用于已知工作表数量的情况，另一种适用于未知工作表数量的处理方法。

摘要由CSDN通过智能技术生成

需求

给所有工作表，【第30行，第2列赋值=100】

解决方法1：知道有多少张工作表

Option Explicit
Sub 多张工作表赋值()
    '声明F1是一个【Worksheet：工作表对象】
    Dim f1 As Worksheet '【as】代表这个变量属于哪一类
    Dim f2
    For f2 = 1 To 4 '从第一张工作簿循环到第四张工作表
         'worksheets属性是一个集合类对象，代表workbook【工作薄】下所有工作表
         '为代表【对象】的变量赋值时，必须使用【set】关键字
         Set f1 = Worksheets(f2) '所有工作表
         '未指明工作表时，cells(X,Y