EXCEL-VBA-- Range 对象_vba range(cells,cells)撖寡情

Range对象

Range对象是工作表中一个或多个单元格的表示形式，是Excel VBA最重要的对象。本章概述了Range对象的属性和方法。属性是对象拥有的（它们描述对象），而方法做的（它们对对象执行操作）

Range示例

在工作表上放置命令按钮并添加以下代码行：

Range("B3").Value = 2

单击工作表上的命令按钮时的结果：

 

代码：

Range("A1:A4").Value = 5

结果：

 

代码：

Range("A1:A2,B3:C4").Value = 10

结果：

 

注意：要引用Excel VBA代码中的命名范围，请使用如下代码行：

Range("Prices").Value = 15

 

Cells单元格

可以使用单元格而不是范围。当您希望循环遍历范围时，使用单元格特别有用。

代码：

Cells(3, 2).Value = 2

结果：

 

 

说明：Excel VBA将值2输入到第3行与第2列相交的单元格中。

代码：

Range(Cells(1, 1), Cells(4, 1)).Value = 5

结果：

 

定义声明Range范围对象

 

可以使用关键字Dim和Set声明Range对象。

代码：

Dim example As Range

Set example = Range("A1:C4")

example.Value = 8

结果：

 

Select选择方法

Range范围对象的一个重要方法是选择方法。Select方法只是选中一个范围。

代码：

Dim example As Range

Set example = Range("A1:C4")

example.Select

结果：

 

注意：若要在其他工作表上选择单元格，必须先激活此工作表。例如，下面的代码行选择左侧第三个工作表上的单元格B7。

Worksheets(3).Activate

Worksheets(3).Range("B7").Select

 

Rows行

Rows属性允许访问范围的特定行。

代码：

Dim example As Range

Set example = Range("A1:C4")

example.Rows(3).Select

结果：

 

注：边框仅供说明。

Columns列

Columns属性允许访问范围的特定列。

代码：

Dim example As Range

Set example = Range("A1:C4")

example.Columns(2).Select

结果：

 

注：边框仅供说明。

Copy/Paste复制/粘贴

复制和粘贴方法用于复制范围并将其粘贴到工作表的其他位置。

代码：

Range("A1:A2").Select

Selection.Copy

Range("C3").Select

ActiveSheet.Paste

结果：

 

尽管这在Excel VBA中是允许的，但是最好使用下面的代码行，代码行的功能完全相同。

Range("C3:C4").Value = Range("A1:A2").Value

Clear清除

要清除Excel范围的内容，可以使用ClearContents方法。

Range("A1").ClearContents

或者：Range("A1").Value = ""

注意：使用Clear方法清除范围的内容和格式。使用ClearFormats方法只清除格式。

Count计数

使用“计数”属性，可以计算范围内的单元格数、行数和列数。

代码：

Dim example As Range

Set example = Range("A1:C4")

MsgBox example.Count

 

代码：

Dim example As Range

Set example = Range("A1:C4")

MsgBox example.Rows.Count

注意：以类似的方式，您可以计算一个范围的列数。