加载中…
个人资料
  • 博客等级:
  • 博客积分:
  • 博客访问:
  • 关注人气:
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
正文 字体大小:

excelVBA同时选择多个工作表的方法

(2020-10-16 14:02:40)
标签:

excel

vba

分类: Excel相关
如果要用VBA同时选择多个工作表,可以利用数组或设置“Select”方法的参数为“False”来扩展所选择的内容,如下面的一些代码:

1.用工作表名称:

假如工作表名称为“Sheet1”、“Sheet2”、“Sheet3”,同时选择这3个工作表:

Sub SelectMultiSheets()
Sheets(Array("Sheet3", "Sheet2", "Sheet1")).Select
End Sub

2.用工作表索引号:

索引号是分配给工作表的连续数字,同一类型的工作表在工作簿中按照从左到右的顺序,依次为1、2、3……。下面的代码同时选择第1个和第3个工作表:

Sub SelectMultiSheets1()
Worksheets(Array(3, 1)).Select
End Sub

3.选择所有工作表:

如果工作簿中不包含图表工作表、对话框工作表,下面的代码可以同时选择所有的工作表:

Sub SelectAllSheets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
ws.Select False
Next ws
End Sub

其中“Select”方法的参数为“False”,以扩展所选择的内容。

0

阅读 收藏 喜欢 打印举报/Report
  

新浪BLOG意见反馈留言板 欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 产品答疑

新浪公司 版权所有