Sub 遍历选中区域的单元格() Dim rng As Range, i As Integer, j As Integer, c As Integer, r As Integer, m As Integer Set rng = Selection c = rng.Columns.Count r = rng.Rows.Count m = c * r For j = 1 To m rng.Cells(j) = j NextEnd Sub
本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请
点击举报。
