Sub ProcessAll() Dim rC As Range For Each rC In Cells rC.Value = rC.Address ‘这里是你的处理 Next Set rC = NothingEnd Sub
选中某张表格中的所有格子:dim rag as rangefor each rag in selection'do somethingnext
比如Cells.clear