章老師的電腦小講堂: 〔VBA〕從非連續的選取區取值(Selection.Areas)--v009

※※ 本區做為經常使用之程式碼複製區，提問請至小講堂唷 ※※

【使用迴圈一列列讀取選取範圍裡的資料】

Dim sArea As Range
Dim sRow As Range
For Each sArea In Selection.Areas '選取範圍裡的每個區域

For Each sRow In sArea.Rows '區域裡的每一列

[A欄的內容] = sRow.Range("A1")

Set sArea=Nothing:Set sRow=Nothing

參考文件：

Pages