假定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