这段小程序就把一个EXCEL文件中每个工作表的A1单元格填上了aSubtt()Fori=1ToActiveWorkbook.Worksheets.CountActiveWorkbook.Worksheets(i).Cells(1,1).Value="a"NextEndSub