教程 | Excel的Range用法知多少（上）

01

写在前面

对于Excel，Range表示一个单元格、一行、一列、一个包含单个或若干连续单元格区域的选定单元格范围，或者一个三维区域。

笔者将用三篇文章由浅入深的就Range对象的常用方法做一个系统性的总结。

这是第一篇，第一时间获取最新文章，请关注本公众号。

02

区域赋值

'直接赋值ActiveSheet.Range("A1").Value = 100

'间接赋值ActiveSheet.Range("A1").Value = Worksheets("Sheet1").Range("B5").Value

'用公式填充单元格ActiveSheet.Range("A1:A10").Formula = "=Rand()"ActiveSheet.Range("A10").Formula = "=Sum(A1:A9)"

03

区域引用

设置Range对象变量来引用单元格区域，然后对该变量所代表的单元格区域进行操作。

Dim myRange As RangeSet myRange = ActiveSheet.Range("A1:D5")myRange.Formula = "=RAND()"myRange.Font.Bold = True

04

区域清除

用ClearContents方法清除区域内容

ActiveSheet.Range("A1:A10").ClearContents

用ClearFormats方法清除区域格式

ActiveSheet.Range("A1:A10").ClearFormats

用ClearComments方法清除区域批注

ActiveSheet.Range("A1:A10").ClearComments

用Clear方法清除区域全部信息

ActiveSheet.Range("A1:A10").Clear

05

使用Cells

可用 Range(cell1, cell2) 返回一个 Range 对象，其中cell1和cell2为指定起始和终止位置的Range对象。

ActiveSheet.Range(Cells(1,1)，Cells(10,10)).Borders.LineStyle = xlThick

06

直接选取

ActiveSheet.Range("A1:A10").Select

07

间接选取

ActiveSheet.Range("A1:A10").Offset(3, 1).Select

※可用Offset(row, column)(其中row和column为行偏移量和列偏移量)返回相对于另一区域在指定偏移量处的区域。如上例选定位于当前选定区域左上角单元格的向下3行且向右1列处单元格区域。

'显示距当前单元格第2列、第3行的单元格中的值ActiveCell.Offset(2, 3).Value

08

调整大小

ActiveSheet.Range("A1:A10").SelectmyRow=Selection.Rows.CountmyColumns=Selection.Columns.CountSelection.Resize(myRow+ 1, myColumns+ 1).Select

※本示例使所选区域增加一行一列

09

区域联合

Dim rng1 As Range, rng2 As Range, myRange As RangeWorksheets("sheet1").ActivateSet rng1 = Range("A1:B10")Set rng2 = Range("C1:D10")Set myRange= Union(rng1, rng2)myRange.Selec

※Union(range1, range2, ...) 返回多块区域，即该区域由两个或多个连续的单元格区域所组成

10

区域激活

ActiveSheet.Range("A1:D10").SelectRange("B5").Activate

※本示例选取单元格区域A1:D10并将B5选中。