他山之石——VBA中选取Excel单元格的方法(Range selection in Excel VBA)
又学了一招,Union方法,嘿嘿。OptionExplicit'1表示一个单元格(a1)Subs()Range("a1").SelectCells(1,1).SelectRange("A"&1).SelectCells(1,"A").SelectCells(1).Select[a1].SelectEndSub'2表示相邻单元格区域Subd()'选取单元格a1:c5'Range("a1:c5").S