《VBA之Excel应用》（版权10178983）是非常经典的，是我推出的第七套教程，定位于初级，目前是第一版修订。这套教程从简单的录制宏开始讲解，一直到窗体的搭建，内容丰富，实例众多。大家可以非常容易的掌握相关的知识，这套教程共三册，十七章，都是我们在利用EXCEL工作过程中需要掌握的知识点，希望大家能掌握利用。今日讲解的内容是:VBA之Excel应用第四章第二节：单元格对象的行、列属性

【分享成果，随喜正能量】105任何寻求安慰的行为，都只会带来短暂的安全感，不能获得成长。成长是特别艰难的自省，必须抛弃所有顺应自己认知的言行。走不出自己的执念，到哪都是囚徒。。

第四章 单元格（Range）对象

大家好，我们这章开始学习单元格对象。单元格（Range）对象是Excel VBA中最重要的对象之一。本章概述了Range对象的属性和方法，包括如何声明一个单元格对象，如何选择单元格对象，以及对行、列的操作，还讲解了如何对单元格进行复制、粘贴、清除、计数，以及对当前区域CurrentRegion的讲解，还涉及到单元格的联合与交叉等。通过这章的学习，大家会更清楚地看到VBA的结构，以及在实际工作中VBA的综合利用。

第二节 单元格对象的行、列属性

大家好，我们继续讲解单元格对象的相关知识，这讲我们讲解单元格对象的行列属性。我们要深入地理解和掌握这些知识，在这章的开始我曾经讲过，对于EXCEL VBA而言几乎所有的代码都和单元格有关，所以，我们要认真地掌握这些知识点。

1 Range.Rows 属性

语法：expression.Rows 返回一个Range对象，它表示指定区域中的行。

参数expression一个表示Range对象的变量

• 若要返回单个行，可以使用Item属性或等效的在括号中使用索引号。 例如：

Selection.Rows(1)

Selection.Rows.Item(1)

返回所选内容的第一行。

• 当应用于一个区域的区域对象时，此属性仅从该区域的第一个区域中返回行。 例如，如果Range对象someRange有两个区域（A1：B2 和 C3：D4），则someRange.Rows.Count返回2，而不是4。 若要在一个可能包含多个选定区域的区域中使用此属性，请测试 Areas.Count 以确定该区域是否包含多个选择区域。
• 返回的区域可能位于指定区域之外。 例如，Range("A1:B2").Rows(5) 返回单元格 A5:B5。

2 Range.Columns 属性

语法：expression.Columns 返回一个 Range 对象，它表示指定区域中的列。

参数expression 一个表示 Range 对象的变量。

• 若要返回单个列，可以使用Item属性或等效的在括号中包含索引。例如，

Selection.Columns(1)

Selection.Columns.Item(1)

返回所选内容的第一列。

• 当应用于一个区域对象的区域对象时，此属性仅从该区域的第一个区域中返回列。 例如，如果Range对象有两个区域（A1：B2 和 C3：D4），则Selection.Columns.Count ，则返回2，而不是4。 若要对包含多个所选子区域的区域使用此属性，请测试 Areas.Count 以确定该区域是否包含多个子区域。
• 返回的区域可能位于指定区域之外。 例如，Range("A1:B2").Columns(5).Select 返回单元格 E1:E2。
• 如果使用字母作为索引，则该字母等效于数字。 例如，Range("B1:C10").Columns("B").Select 返回单元格 C1:C10，而不是 B1:B10。 在本例中，“B”相当于 2。

3 单元格对象行、列属性的应用实例

在下面的代码中，我们可以进一步理解单元格对象的行、列属性，代码：

Sub mynzD() '单元格的行属性

Dim myRange As Range

Set myRange = Range("A1:C4")

myRange.Rows(3).Select

End Sub

Sub mynzE() '单元格的列属性

Dim myRange As Range

Set myRange = Range("A1:C4")

myRange.Columns(2).Select

End Sub

代码截图：

代码讲解：

上面的两段代码比较类似，首先声明一个单元格对象的区域，然后将某个单元格范围赋给这个单元格对象。最后利用myRange.Rows(3).Select对行进行选择，用 myRange.Columns(2).Select 对列进行选择。

下面看代码的运行效果：

通过以上的实例，我们看到对单元格的行列属性的具体应用。

今日内容回向：

1） 单元格行列属性的意义是什么？

2） 要具体理解行列属性中的几个注意点。

本讲内容参考程序文件：工作簿04.xlsm

我20多年的VBA成果全在下面的资料中：