標題: [原創] Excel VBA各種範圍選擇 [打印本頁]

---

作者: linyancheng    時間: 2024-4-30 08:48     標題: Excel VBA各種範圍選擇

本帖最後由 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

---

作者: dou10801    時間: 2024-4-30 14:56

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)