|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
1、用Sheets
Sub 遍历工作表()
For Each shs In Sheets
k = k + 1
Cells(k, 1) = shs.Name
Next
End Sub
或 Sheets.count
Sub 遍历工作表()
For i = 1 to sheets.count
Cells(i, 1) = sheets(i).Name
Next
End Sub
注意:for each 比 for更加准确,for要求sheets(i)比较高
2、用WorkSheets
Sub 遍历工作表()
For Each shs In Worksheets
k = k + 1
Cells(k, 2) = shs.Name
Next
End Sub
或、Worksheets.cont
Sub 遍历工作表1()
For i = 1 To Worksheets.Count
Cells(i, 1) = Worksheets(i).Name
Next
End Sub
注意:for each 比 for更加准确,for要求Worksheets(i)比较高
3、判断工作表是否在工作簿
Sub 工作表存在与否()
For Each sht In Sheets
If sht.Name = "我的工作表" Then
MsgBox "存在"
Exit Sub
End If
Next
MsgBox "不存在"
End Sub
或、、、、
Sub 工作表存在与否1()
For i = 1 To Sheets.Count
If Sheets(i).Name = "我的工作表" Then
MsgBox "存在"
Exit Sub
End If
Next
MsgBox "不存在"
End Sub
|
|