[原創] Excel VBA各種範圍選擇

linyancheng

Excel VBA各種範圍選擇

單一儲存格
Cells(1, 1).Select
Range("A1").Select

連續儲存格
Cells(1, 1).Resize(3, 3).Select
Range(Cells(1, 1), Cells(3, 3)).Select
Range("A1:C3").Select

不連續儲存格
Union(Cells(1, 1), Cells(2, 2), Cells(3, 3)).Select
Range("A1,B2,C3").Select

連續及不連續儲存格
Union(Cells(1, 1), Cells(2, 2), Cells(3, 3).Resize(3, 3)).Select
Union(Cells(1, 1), Cells(2, 2), Range(Cells(3, 3), Cells(5, 5))).Select
Range("A1,B2,C3:E5").Select

單一欄
Columns(1).Select
Columns("A").Select
Cells(1, 1).EntireColumn.Select
Range("A:A").Select

單一列
Rows(1).Select
Rows("1").Select
Cells(1, 1).EntireRow.Select
Range("1:1").Select

連續欄
Columns(1).Resize(, 3).Select
Columns("A:C").Select
Cells(1, 1).Resize(, 3).EntireColumn.Select
Range(Columns(1), Columns(3)).Select
Range(Cells(1, 1).EntireColumn, Cells(1, 3).EntireColumn).Select
Range(Cells(1, 1), Cells(1, 3)).EntireColumn.Select
Range("A:C").Select

連續列
Rows(1).Resize(3).Select
Rows("1:3").Select
Cells(1,1).Resize(3).EntireRow.Select
Range(Rows(1), Rows(3)).Select
Range(Cells(1, 1).EntireRow, Cells(3, 1).EntireRow).Select
Range(Cells(1, 1), Cells(3, 1)).EntireRow.Select
Range("1:3").Select

不連續欄
Union(Columns(1), Columns(3), Columns(5)).Select
Union(Cells(1, 1).EntireColumn, Cells(1, 3).EntireColumn, Cells(1, 5).EntireColumn).Select
Union(Cells(1, 1), Cells(1, 3), Cells(1, 5)).EntireColumn.Select
Range("A:A,C:C,E:E").Select

不連續列
Union(Rows(1), Rows(3), Rows(5)).Select
Union(Cells(1, 1).EntireRow, Cells(3, 1).EntireRow, Cells(5, 1).EntireRow).Select
Union(Cells(1, 1), Cells(3, 1), Cells(5, 1)).EntireRow.Select
Range("1:1,3:3,5:5").Select

連續及不連續欄
Union(Columns(1), Columns(3), Columns(5).Resize(, 3)).Select
Union(Columns(1), Columns(3), Range(Columns(5), Columns(7))).Select
Union(Cells(1, 1).EntireColumn, Cells(1, 3).EntireColumn, Cells(1, 5).Resize(, 3).EntireColumn).Select
Union(Cells(1, 1), Cells(1, 3), Cells(1, 5).Resize(, 3)).EntireColumn.Select
Union(Cells(1, 1).EntireColumn, Cells(1, 3).EntireColumn, Range(Cells(1, 5).EntireColumn, Cells(1, 7).EntireColumn)).Select
Union(Cells(1, 1), Cells(1, 3), Range(Cells(1, 5), Cells(1, 7))).EntireColumn.Select
Range("A:A,C:C,E:G").Select

連續及不連續列
Union(Rows(1),Rows(3),Rows(5).Resize(3)).Select
Union(Rows(1), Rows(3), Range(Rows(5), Rows(7))).Select
Union(Cells(1,1).EntireRow,Cells(3,1).EntireRow,Cells(5,1).Resize(3).EntireRow).Select
Union(Cells(1,1),Cells(3,1),Cells(5,1).Resize(3)).EntireRow.Select
Union(Cells(1, 1).EntireRow, Cells(3, 1).EntireRow, Range(Cells(5, 1).EntireRow, Cells(7, 1).EntireRow)).Select
Union(Cells(1, 1), Cells(3, 1), Range(Cells(5, 1), Cells(7, 1))).EntireRow.Select
Range("1:1,3:3,5:7").Select

所有儲存格
Cells.Select

所有欄
Columns.Select

所有列
Rows.Select

目前區域
(Range).CurrentRegion.Select

使用範圍
(Worksheet).UsedRange.Select

dou10801

回復 1# linyancheng
收下學習,感恩.