这段小程序就把一个EXCEL文件中每个工作表的A1单元格填上了aSub tt()For i = 1 To ActiveWorkbook.Worksheets.CountActiveWorkbook.Worksheets(i).Cells(1, 1).Value = "a"NextEnd Sub
活动窗口(ActiveWindow)只有一个呀,用不着遍历
for each window in xl.windows