【從非連續的選取區取每個Cell值(Selection.Areas)】
Dim sArea As Range
Dim sCell As Range
For Each sArea In Selection.Areas
For Each sCell In sArea.Cells
MsgBox sCell.Value
Next
Next
Set sArea = Nothing: Set sCell = Nothing
相關課程：
章老師的電腦小講堂 https://www.facebook.com/ScenicSchool/
※※ 本區做為經常使用之程式碼複製區，提問請至小講堂唷 ※※