摘要：《VBA之EXCEL应用》（版权10178983）是非常经典的，是我推出的第七套教程，定位于初级，目前是第一版修订。这套教程从简单的录制宏开始讲解，一直到窗体的搭建，内容丰富，实例众多。大家可以非常容易的掌握相关的知识，这套教程共三册，十七章，都是我们在利用E

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

【分享成果，随喜正能量】255 人不争，一身轻松，事不比，一路畅通，心不求，一生平静。一杯清茶足以。过度的清醒，会让人觉得薄凉冷漠，过度的沉醉，又会让人感到浮浅迷离，所以，完美的人生，当是留一半清醒，留一半醉意。。

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

大家好，我们在上节讲解了用Resize属性来调整单元格区域的大小，这讲我们讲解单元格的整行或整列的扩展方法。单元格区域的扩展是一块非常重要的内容，我们要认真掌握。

这个属性返回一个Range对象, 该对象代表包含指定区域的整行 (或多行)。 此为只读属性。

语法：expression.EntireRow

其中 expression 一个表示 Range 对象的变量

这个属性返回一个Range对象, 该对象代表包含指定区域的整列 (或多列)。 此为只读属性。

语法：expression.EntireColumn

其中 expression 一个表示 Range 对象的变量

1）下面的代码将选择整个工作表

Cells.Select

2）下面的代码将选择整个第二个工作表

Worksheets(2).Activate

Worksheets(2).Cells.Select

3）下面的代码将选择第二列

Columns(2).Select

4）下面的代码将选择第五行

Rows(5).Select

5）下面代码将选择五到七行

Rows("5:7").Select

6）下面代码将选择B到E列

Columns("B:E").Select

1）我们先选择一个单元格，然后利用下面代码就可以选择这个单元格所在的整行：

ActiveCell.EntireRow.Select

2) 我们先选择一个单元格，然后利用下面代码就可以选择这个单元格所在的整列：

ActiveCell.EntireColumn.Select

3） 实例应用：选择任意一个单元格，然后将值2输入到包含这个活动单元格的列的第一个单元格中。

ActiveCell.EntireColumn.Cells(1).Value = 2

4）实例应用：选择任意一个单元格，然后将值2输入到包含活动单元格的行下面的第一个单元格中。

ActiveCell.EntireRow.Offset(1, 0).Cells(1).Value = 2

5）实例应用：

点击任意一个单元格，在整个行输入“NZ”,在整个列输入“VBA”,在活动单元格的行下面的行中第一个单元格中输入“欢迎”。

我们看下面的代码，代码是写在了Worksheet_SelectionChange事件中：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Cells.ClearContents

ActiveCell.EntireRow.Value = "NZ"

ActiveCell.EntireColumn.Value = "VBA"

ActiveCell.EntireRow.Offset(1, 0).Cells(1).Value = "欢迎"

End Sub

代码截图：

代码的讲解：Cells.ClearContents 是先清空整个工作表。其余的就不再多讲了。

代码的实现效果：

今日内容回向：

1） 单元格的EntireRow和EntireColumn属性意义是什么，有什么作用？

2） 如何实现整行下一行单元格区域的定位？

3） 单元格的EntireRow和EntireColumn属性的返回值是什么？

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

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

来源：VBA语言专业教育