VBA 选定sheet方法总结

假定Excel共有2个sheet,分别是SIS、Sheet1,而实际后台名称是Sheet2、Sheet1,如下图:

1、Worksheets(2).select 

Sheets(2).select ,指由左至右第2个Sheets,即Sheet1,包含隐藏sheet!

2、Worksheets("Sheet1").select

Sheets("Sheet1").select ,直接选中指定名称的sheet,双引号内为sheet名称,选中Sheet1

3、Sheet2.select

指定名称属性,选中的是SIS

 

------------

多个sheet循环操作

For Each sh In Workbooks(rpt_name).Sheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4"))   --双引号内为sheet名称

sh.UsedRange.Value = sh.UsedRange.Value    --去公式

next sh
For Each sh2 In Worksheets(Array(6, 7, 8, 9, 10, 11, 12, 13, 14))   --按序列选中
                
   sh2.Delete
        
Next sh2
--按名称条件,选中多个sheet
i = 0

  For Each ws In Worksheets
    If InStr(ws.Name, "费用清单") <> 0 Then

     i = i + 1
     ReDim Preserve arr(1 To i)
     arr(i) = ws.Name

    End If

  Next

  If i > 0 Then

    Worksheets(arr).Select

  End If
--按顺序选中sheet
 If ActiveSheet.Index <> Worksheets.Count Then

  ActiveSheet.Next.Activate

 end if

 

  • 3
    点赞
  • 35
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 3
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 3
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

ninn-sang

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值