ExcelVBA的常用对象及应用

ExcelVBA中的Range和Cells用法说明编辑整理：尊敬的读者朋友们：这里是精品文档编辑中心，本文档内容是由我和我的同事精心编辑整理后发布的，发布之前我们对文中内容进行仔细校对，但是难免会有疏漏的地方，但是任然希望（ExcelVBA中的Range和Cells 用法说明）的内容能够给您的工作和学习带来便利。

同时也真诚的希望收到您的建议和反馈，这将是我们进步的源泉，前进的动力。

本文可编辑可修改，如果觉得对您有帮助请收藏以便随时查阅，最后祝您生活愉快业绩进步，以下为ExcelVBA中的Range和Cells用法说明的全部内容。

Range对象基本操作应用示例（1)Range对象可能是VBA代码中最常用的对象,Range对象可以是某一单元格、某一单元格区域、某一行、某一列、或者是多个连续或非连续的区域组成的区域.下面介绍Range对象的一些属性和方法.- — — — - - — - - — — - — — — - — — — — - — — - — — —- — - - — - — — - — —［示例05—01］赋值给某单元格[示例05—01—01］Sub test1（）Worksheets（”Sheet1"）。

Range（”A5")。

Value = 22MsgBox ”工作表Sheet1内单元格A5中的值为” _& Worksheets("Sheet1”）.Range(”A5”）.ValueEnd Sub[示例05—01—02]Sub test2（）Worksheets("Sheet1”）。

Range("A1"）。

Value = _Worksheets（"Sheet1”）。

Range(”A5”).ValueMsgBox ”现在A1单元格中的值也为" ＆ _Worksheets（"Sheet1”）.Range("A5"）。

注： 虽然 也 可 用 Ｒ ｎ （Ａ１ 样 式 引 用 单元 格 ， 更 多 ａ ｇ “ ”） ｅ 但 时 候 用 Ｃ ｌ 属 性 更 为方 便 。 因为 使 用该 属 性 时 ， 用 变 量 ｅｌ ｓ 可 指 定 行 和 列 ， 在循 环语 句 中极 为 便 利 ， 是很 好 的编 程 式 这 也 习 惯 。 在 后 面 的 示 例 程 序 中 ，多 次 在 计 数 循 环 中 引 用 了 Ｃ ｌ 属性 。 ｅｓ ｌ Ｒａ ｇ 。 ｎ ｅ （ ） ｆｅ 属 性 ２ Ｏ ｓｔ 可 用 Ｏ ｓｔｒｗ ｏｕ ｎ （ 中 ｒ 和 ｃｌｍ ｆ ｅ（ ，ｃｌｍ ） 其 ｏ ｏ ｗ ｏ ｎ为 行 偏 ｕ ＩＡ ｐ ｃｔ ｎ对 象 ． ｐ ｌ ａｏ ｉ ｉ 移 量 和列 偏 移 量 ）返 回相 对 于 给 定 区域 在 指 定 偏 移 量 处 的 在 Ｍ ｃ ｓｆＯ￣ｅ中 Ａ ｐｃｔ ｎ对象 代 表 相 应 的 Ｏｆ ｅ ｉ ｏｔ ｆｃ ｏ ｒ ｐ ｌａ ｏ ｉ ｉ ｆｃ ｉ 程序 、 这里 Ａ ｐｃｔ ｎ 象 自然 代 表 整个 Ｅ ｃｌ 用 程 序 。 区域 。 ｐ ｌａ ｏ 对 ｉ ｉ ｘｅ 应 如： 定 Ｂ 选 ２单 元 格 。 Ａ ｐｉ ｔｎ对 象 的 主要 属性 如下 ： ｐｌ ａ ｏ ｃｉ （ ） ｃ ｖＷｏｋｏｋ Ａ ｔ ｅｈｅ 和 Ａ ｔ ｅ ｅ 属 性 １Ａ ｔｅ ｒｂｏ 、ｃｉ Ｓｅｔ ｉ ｖ ｃｉ Ｃ ｌ ｖ ｌ Ｃ ｌ （， ） Ｏ ｓｔ１ ）Ｓｌ ｔ 或 ｅｓ １ １． ｅ （，１．ｅｅ ｌ ｆ ｃ 这 些 属 性 返 回当 前关 联 的 活动 对 象 ，活 动 对 象 代 表 了 Ｒ ｇ （Ａ１ ）Ｏ ｓｔ１ ）Ｓ ｌ ｔ ｎ ａ ｅ “ ” ． ｅ （，１． ｅ ｆ ｅ ｃ （） ｕｒｎＲ ｇ ｎ 性 ３ Ｃ ｒ ｔｅｉ 属 ｅ ｏ 用 户从 键 盘 交 互 操作 的对 象 。Ａ ｔ ｅ ｅ 存 在 于 Ａ ｔ ｅｈｅ ｃｖＣ ｌ ｉ ｌ ｃｖＳ ｅｔ ｉ 该 属性 返 回值 为一 个 连 续 的数 据 区 域 。 所 谓连 续 区域 中 。 Ａ ｔｅｈｅ 存 在 于 Ａ ｔ ｅ ｒｂｏ 而 ｃｖＳｅｔ ｉ ｃｉ Ｗｏｋｏｋ中 。 ｖ 是 指 被 一个 空 行 和 一 个 空列 包 围 的非 空 区 域 。 Ｉ ） ｈｓ ｒｂｏ 属 性 Ｔｉ ２ Ｗｏｋｏｋ 如 ：区域 “ Ｉ Ｃ ” 为一 个 连 续 区域 ，且 活 动单 元 格 Ａ： ３ Ｔ ｉ ｒｂｏ 属 性 返 回一个 Ｗｏｋｏｋ对 象，代 表 当 前 ｈｓ ｋ ｏｋ Ｗｏ ｒｂｏ （ｃ ｖｃｌ 在圳 内 ， 月＂ｃ ｖｃｌＣ ｒ ｎＲ ｇ ｎＳｌ ｔ Ａ ｔ ｅｅ ） ｉ １ 使 ｊ ｔ ｅｅ［ ｕｒ ｔｅｉ ． ｅ ＇ Ａｉ ｅ ｏ ｅ ｃ’ 正 在运 行 Ｖ Ａ 代码 的工 作 簿 。 Ｂ 语 句可选 定“ ＩＣ ” Ａ ：３ 区域 。 ２Ｗｏｋｏｋ对 象 ． ｒｂｏ （ ） ｎ 属 性 ４Ｅ ｄ Ｗｏｋｏｋ对 象 代 表 Ｅ ｃｌ 作 簿 。 Ｗｏｋｏｋ对 象 是 ｒｂｏ ｘｅ 工 ｒｂｏ 返 回一 个 Ｒ ｎｅ 象 ，该 对 象 代 表 包 含 源 区域 的 区域 ａｇ 对 Ｗｏ ｂｏ ｓ ｒ ｏ ｋ 集合 的成员 ，此集合包含 Ｅ ｃｌ ｋ ｘｅ 中当前所有打开

excel vba 50.range对象的consolidate方法【合并计算】在Excel VBA中，Range对象是最常用的对象之一，它允许我们对单元格范围进行操作和处理。

其中，Consolidate方法是一个非常有用的功能，它能够将多个单元格范围的数据合并计算，为我们提供了更加灵活和高效的数据处理方式。

Consolidate方法的语法如下：Range.Consolidate(Sources, Function, TopRow, LeftColumn, CreateLinks)其中，Sources是一个Range对象数组，表示要合并计算的单元格范围；Function是一个枚举值，表示合并计算的方式，例如求和、平均值等；TopRow和LeftColumn是布尔值，表示合并计算结果是否包含源范围的行标题和列标题；CreateLinks是布尔值，表示是否创建链接到源范围的公式。

下面我们来看一个实际的例子，假设我们有三个单元格范围A1:A3、B1:B3和C1:C3，我们想要将这三个范围的数据合并计算，并将结果显示在D1:D3范围内。

首先，我们需要定义一个Range对象数组，表示要合并计算的单元格范围，代码如下：vbaDim rngSources As RangeSet rngSources = Range("A1:A3,B1:B3,C1:C3")接下来，我们可以使用Consolidate方法对这些范围进行合并计算，例如求和，代码如下：vbarngSources.Consolidate Sources:=rngSources,Function:=xlSum, TopRow:=False, LeftColumn:=False在上述代码中，我们将Sources参数设置为rngSources，表示要合并计算的范围为rngSources；将Function参数设置为xlSum，表示合并计算的方式为求和；将TopRow和LeftColumn参数设置为False，表示合并计算结果不包含行标题和列标题。

第一章Excel应用程序对象(Application对象)及其常用方法Application对象代表整个Microsoft Excel应用程序，带有175个属性和52个方法，可以设置整个应用程序的环境或配置应用程序。

示例01-01：体验开/关屏幕更新(ScreenUpdating属性)Sub 关闭屏幕更新()MsgBox "顺序切换工作表Sheet1→Sheet2→Sheet3→Sheet2，先开启屏幕更新，然后关闭屏幕更新"Worksheets(1).SelectMsgBox "目前屏幕中显示工作表Sheet1"Application.ScreenUpdating = TrueWorksheets(2).SelectMsgBox "显示Sheet2了吗？"Worksheets(3).SelectMsgBox "显示Sheet3了吗？"Worksheets(2).SelectMsgBox "下面与前面执行的程序代码相同,但关闭屏幕更新功能" Worksheets(1).SelectMsgBox "目前屏幕中显示工作表Sheet1" & Chr(10) & "关屏屏幕更新功能" Application.ScreenUpdating = FalseWorksheets(2).SelectMsgBox "显示Sheet2了吗？"Worksheets(3).SelectMsgBox "显示Sheet3了吗？"Worksheets(2).SelectApplication.ScreenUpdating = TrueEnd Sub示例说明：ScreenUpdating属性用来控制屏幕更新。

当运行一个宏程序处理涉及到多个工作表或单元格中的大量数据时，若没有关闭屏幕更新，则会占用CP U的处理时间，从而降低程序的运行速度，而关闭该属性则可显著提高程序运行速度。