Excel中怎样用VBA代码统计每个工作表的打印页数（excel如何使用vba选取全部工作表）

Sub test()

Dim ws As Worksheet, v As Double

v = 0

For Each ws In ThisWorkbook.Sheets

If

ws.Name

<> "汇总表" Then v = v + ws.Cells(ActiveCell.Row, ActiveCell.Column)

Next ws

ActiveCell.Value = v

End Sub

思路：利用FOR EACH遍历本工作薄中的所有工作表，将本工作薄中不是“汇总表”的所有工作表中，行列号与当前选择单元格相同的单元格的变量相加，返回给当前选择单元格。