返回列表 上一主題 發帖

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

[原創] 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
Word呈現極致的靜態之美,Excel展現極致的動態之美。

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

TOP

        靜思自在 : 閒人無樂趣,忙人無是非。
返回列表 上一主題