ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[­ì³Ð] Excel VBA¦UºØ½d³ò¿ï¾Ü

[­ì³Ð] Excel VBA¦UºØ½d³ò¿ï¾Ü

¥»©«³Ì«á¥Ñ linyancheng ©ó 2024-4-30 09:09 ½s¿è

Excel VBA¦UºØ½d³ò¿ï¾Ü

³æ¤@Àx¦s®æ
Cells(1, 1).Select
Range("A1").Select

³sÄòÀx¦s®æ
Cells(1, 1).Resize(3, 3).Select
Range(Cells(1, 1), Cells(3, 3)).Select
Range("A1:C3").Select

¤£³sÄòÀx¦s®æ
Union(Cells(1, 1), Cells(2, 2), Cells(3, 3)).Select
Range("A1,B2,C3").Select

³sÄò¤Î¤£³sÄòÀx¦s®æ
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

³æ¤@¦C
Rows(1).Select
Rows("1").Select
Cells(1, 1).EntireRow.Select
Range("1:1").Select

³sÄòÄæ
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

³sÄò¦C
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

¤£³sÄòÄæ
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

¤£³sÄò¦C
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

³sÄò¤Î¤£³sÄòÄæ
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

³sÄò¤Î¤£³sÄò¦C
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

©Ò¦³Àx¦s®æ
Cells.Select

©Ò¦³Äæ
Columns.Select

©Ò¦³¦C
Rows.Select

¥Ø«e°Ï°ì
(Range).CurrentRegion.Select

¨Ï¥Î½d³ò
(Worksheet).UsedRange.Select
Word§e²{·¥­PªºÀRºA¤§¬ü¡AExcel®i²{·¥­Pªº°ÊºA¤§¬ü¡C

¦^´_ 1# linyancheng
¦¬¤U¾Ç²ß,·P®¦.
§ù¤p¥­

TOP

        ÀR«ä¦Û¦b : ¤@¥y·Å·xªº¸Ü¡A´N¹³©¹§O¤H¨­¤WÅx­»¤ô¡A¦Û¤v·|ªg¨ì¨â¤Tºw¡C
ªð¦^¦Cªí ¤W¤@¥DÃD