用<em>VBA</em>编程如何遍历<em>EXCEL</em>每一个

方法一度：问
for each st in sheets(array("表答2","表5","表7"))

方法二版：权
for each i in array(2,5,7)
stn="表" & i
set sht=sheets(stn)

这段小程序就把来一个EXCEL文件中每个工作自表的A1单元格填上zhidao了a

Sub tt()
For i = 1 To ActiveWorkbook.Worksheets.Count
ActiveWorkbook.Worksheets(i).Cells(1, 1).Value = "a"
Next
End Sub
ThisWorkbook.Sheets.Application.ActiveSheet.Index
返回当抄前工作表袭在当前工作簿的百序号，我在度VBA中用自问定义函数可行答！
Function aaa() As Integer
aaa = ThisWorkbook.Sheets.Application.ActiveSheet.Index
End Function

Sub Traversal()
Dim rg As Range
For Each rg In Range("A1:Q10") '遍历百度A1:Q10
rg.Value = 100 '将值设为知100
Next
End Sub
祝你成道功！回

不好意思只看标题答了
Sub Traversal()
For Each c In ActiveSheet.Comments '遍历批注
c.Parent.Interior.ColorIndex = 3 '设为红色
Next
End Sub