本帖最後由 linyancheng 於 2024-4-30 09:09 編輯
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 |
發表於 2024-4-30 08:48
| 
發表於 2024-4-30 14:56
| 