VBA之Excel应用第四章第八节:单元格区域的Offset属性

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

【分享成果，随喜正能量】285 人到中年，最大的无奈，就是家境撑不起梦想，能力配不上野心。感情抵不过命运，回报对不起辛苦。时间都在催我挣钱，年龄却在催我老去，在这个不知所措的年纪，我们做什么都是身不由己。时间让我们长大了年龄，却没有让我成为一个合格的大人。

第四章 单元格（Range）对象

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

第八节 单元格区域的Offset属性

大家好，我们继续单元格的学习，这讲我们讲解的内容是单元格的Offset属性，对于这个属性和之前讲解的Resize属性有一定的类似之处，但有着本质的不同，大家可以两者对比学习。

1 Range.Offset属性

这个属性返回一个 Range对象，它表示指定区域以外的一个区域。

语法: expression.Offset (RowOffset, ColumnOffset)

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

参数

① RowOffset 可选 Variant数据 区域偏移的行数—正值、负值或零(0)—正值表示向下偏移，负值表示向上偏移。 默认值为 0。

② ColumnOffset 可选 Variant数据 区域偏移的列数—正值、负值或零(0)—正值表示向右偏移，负值表示向左偏移。 默认值为 0。

2 Range.Offset属性的示例

1）示例1：此示例激活 Sheet1 上活动单元格右移三列且下移三行的单元格。

Worksheets("Sheet1").Activate

ActiveCell.Offset(rowOffset:=3, columnOffset:=3).Activate

2）示例2：假定 Sheet1 包含具有标题行的表。此示例选择该表，但不选择标题行。在运行此示例之前，活动单元格必须位于表内。

Set tbl = ActiveCell.CurrentRegion

tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).Select

3）选择单元格 D1的代码

Range("A1").Offset(, 3).Select

4）选择单元格 A5的代码

Range("A1").Offset(4).Select

• 如果 RowOffset 或 ColumnOffset 为 0（零），则可将其忽略。

3 Range.Offset语句的应用实例

从上面的讲解中，我们看到Excel VBA中的Offset属性可以将特定数量的行和列从特定的范围移开。

我们看一个实际的应用实例：在工作薄的“Sheet8”工作表中，先选择一个单元格范围"A1:C2",并用一个变量来表示这个变量；然后将这个范围移动，移动的方向是这个范围向下移动3行，向右2列。

下面先看代码：

Sub mynzO() 'Range.Offset语句的应用实例

Dim myRange As Range

Sheets("SHEET8").Select

Set myRange = Range("A1:C2")

myRange.Select

myRange.Offset(3, 2).Select

End Sub

代码截图：

代码的讲解：

1）Sheets("SHEET8").Select

以上代码选择"SHEET8"工作表

2） Set myRange = Range("A1:C2")

以上代码将单元格区域赋给变量myRange，讲对象变量赋给变量的时候要用SET。

3) myRange.Select

以上代码将选择单元格区域。

4）myRange.Offset(3, 2).Select

以上代码将单元格的区域进行移动，移动的方向是这个范围向下移动3行，向右2列。

下面看代码的运行结果：

1）为了更好地显示代码的运行，我们在图中所示的位置点上断点，表示代码执行到这里将停止执行：

2）点击运行：

3）这个时候代码会运行到断点行，这行代码也会显示黄色。这个时候我们看工作表的界面：

4）我们在VBE窗口去掉代码的断点，点击VBE窗口的运行按钮：

5）回到工作表界面，这个时候，单元格区域放生了移动。

• Offset属性始终以范围的左上角单元格为起点。

今日内容回向：

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

2） 单元格的Offset属性对单元格移动时以哪个位置为定位？

3） 如何调试代码，增加断点？

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

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