VBA之Excel应用第四章第七节:单元格区域的整行或整列扩展
《VBA之Excel应用》（版权10178983）是非常经典的，是我推出的第七套教程，定位于初级，目前是第一版修订。这套教程从简单的录制宏开始讲解，一直到窗体的搭建，内容丰富，实例众多。大家可以非常容易的掌握相关的知识，这套教程共三册，十七章，都是我们在利用EXCEL工作过程中需要掌握的知识点，希望大家能掌握利用。今日讲解的内容是:VBA之Excel应用第四章第七节:单元格区域的整行或整列扩展（Entire Rows and Columns）
【分享成果，随喜正能量】255 人不争，一身轻松，事不比，一路畅通，心不求，一生平静。一杯清茶足以。过度的清醒，会让人觉得薄凉冷漠，过度的沉醉，又会让人感到浮浅迷离，所以，完美的人生，当是留一半清醒，留一半醉意。。
第四章 单元格（Range）对象
大家好，我们这章开始学习单元格对象。单元格（Range）对象是Excel VBA中最重要的对象之一。本章概述了Range对象的属性和方法，包括如何声明一个单元格对象，如何选择单元格对象，以及对行、列的操作，还讲解了如何对单元格进行复制、粘贴、清除、计数，以及对当前区域CurrentRegion的讲解，还涉及到单元格的联合与交叉等。通过这章的学习，大家会更清楚地看到VBA的结构，以及在实际工作中VBA的综合利用。
第七节 单元格区域的整行或整列扩展（Entire Rows and Columns）
大家好，我们在上节讲解了用Resize属性来调整单元格区域的大小，这讲我们讲解单元格的整行或整列的扩展方法。单元格区域的扩展是一块非常重要的内容，我们要认真掌握。
1 Range.EntireRow 属性
这个属性返回一个Range对象, 该对象代表包含指定区域的整行 (或多行)。 此为只读属性。
语法：expression.EntireRow
其中 expression 一个表示 Range 对象的变量
2 Range.EntireColumn 属性
这个属性返回一个Range对象, 该对象代表包含指定区域的整列 (或多列)。 此为只读属性。
语法：expression.EntireColumn
其中 expression 一个表示 Range 对象的变量
3 行和列的一般选择方法
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
4 EntireRow和EntireColumn的应用实例
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成果全在下面的资料中：
