用VBA编程如何遍历EXCEL每一个工作表？

杨若枫

VBA中遍历我们可以使用For Each 或者For循环

Sub 遍历工作表()

Dim sht As Worksheet

For Each sht In ThisWorkbook.Worksheets

maxrow = Sheets("目录").Cells(Rows.Count, 1).End(3).Row + 1

Cells(maxrow, 1).Value = sht.Name

Next

End Sub

Excel办公实战

这段小程序就把一个EXCEL文件中每个工作表的A1单元格填上了aSub tt()For i = 1 To ActiveWorkbook.Worksheets.CountActiveWorkbook.Worksheets(i).Cells(1, 1).Value = "a"NextEnd Sub

關鍵字: Excel 职场 科技