【從非連續的選取區取每個Cell值(Selection.Areas)】 Dim sArea  As Range Dim sCell As Range For Each sArea In Selection.Areas     For Each sCell In s...