📅  最后修改于: 2022-03-11 14:51:56.053000             🧑  作者: Mango
Dim rng As Range: Set rng = Application.Selection
Dim rngArea As Range
For Each rngArea In rng.Areas
Debug.Print rngArea.Address
Next rngArea