Excel教程：实用的VBA代码，赶紧保藏！

5ep9lzv

回复[目录]学习113篇Excel教程

全套Excel视频教程，扫码观看！

编按： 

哈喽，大众好！昨天和大众承诺，“在看”数超过30，博主明天就继续爆肝更新VBA!感谢大众的支持，没想到昨天的文案“在看”数已然快100了！既然如此，那博主自然亦不可辜负大众的信任，今天咱们继续学习VBA！

【前言】

在上一篇文章中，作者E图表述给大众分享了关于RANGE对象引用的办法。经过回馈的信息来看，和作者想的同样——确实有非常多的朋友，晓得并且想学习EXCEL VBA知识。

那就让咱们继续上次的内容，依然来讲RANGE。亦许朋友们会问，为何还是RANGE呢？由于在EXCEL中，只要是数据处理的问题，最后都会归结为单元格的引用和操作。即便是操作其他的对象，最后亦会将内存中计算或提取的数据结果，赋值到单元格中来，因此说基本永远是基本，根基稳了，高级操作才可压的住。

1

单元格的偏移

在工作表函数中，有一个OFFSET函数，作者E图表述之前亦专门写过它的文案《月薪上万必学10大excel函数之十：它身负5大绝技，是动态统计之王》，不熟练这个函数的朋友能够瞧瞧，由于倘若朋友们理解了这个函数的原理，那样对下面的两个RANGE属性，将有很大的帮忙。

温馨提示：加入下面QQ群：1043683754，下载教程配套的课件练习操作。

1.RANGE.OFFSET属性

大众能够看出OFFSET的写法都是同样的，在工作表函数中，OFFSET函数是既有偏移的功能，亦有指定引用范围是几行几列的功能。可是在VBA中RANGE.OFFSET属性仅有偏移的功效。如下代码：

Sub 求和() Dim rg As Range Set rg = Range("C2")rg.Value = rg.Offset(0, -2) + rg.Offset(0, -1)End Sub

【代码解析】：

Line1：定义rg为单元格变量；

Line2：将单元格位置C2赋值给rg变量；

Line3：rg向左偏移两个位置的单元格+rg向左偏移一个位置的单元格，最后将计算结果赋值给rg变量。

经过上面的代码解析，咱们能够看出OFFSET属性的功效，其含义便是按照基点单元格，根据参数进行偏移，以偏移后的位置做为新的基点。

2.RANGE.RESIZE属性

相针对一个基点的位置，咱们能够运用VBA来选取引用区域的面积有多大，这儿就需要运用RANGE.RESIZE属性了，如下代码：

Sub 统计()Range("B5") = Application.WorksheetFunction.Sum(Range("B2").Resize(1, 3)) Range("B6") = Application.WorksheetFunction.Average(Range("B2").Resize(1, 3))Range("B7") = Application.WorksheetFunction.Max(Range("B2").Resize(1, 3)) Range("B8") = Application.WorksheetFunction.Min(Range("B2").Resize(1, 3))End Sub

【代码解析】：

Line1：调用工作表函数SUM，对基于单元格位置B2起始的1行3列的区域进行求和运算，并将结果赋值给单元格B5；

Line2：调用工作表函数AVERAGE，原理同Line1，对该区域进行平均值运算，并将结果赋值给单元格B6；

Line3：调用工作表函数MAX，原理同Line1，对该区域进行最大值运算，并将结果赋值给单元格B7；

Line4：调用工作表函数MIN，原理同Line1，对该区域进行最小值运算，并将结果赋值给单元格B8；

尤其提示

Application.WorksheetFunction这句代码便是调用工作表函数的语句，后面接写工作表函数，与平常运用函数的办法同样，只需记得单元格对象的表达方式，写成RANGE或CELLS就可。这个语句咱们在前一篇文案《花了6小时，仅为你写出一篇能够学懂的VBA教程！》中亦说到过。

经过上面的代码解析，咱们能够看出RESIZE属性的功效，其含义便是按照基点单元格，根据参数进行扩展，以扩展后的区域做为新的操作对象。

小结

RANGE的OFFSET属性和RESIZE属性的结合，和工作表函数OFFSET的功能是同样的，这在以后咱们讲到数组、字典时，都会有非常多的应用，期盼朋友们能够在文案中有所把握。

2

“首行、首列”与“末行、末列”

在本小节中，作者E图表述将带领大众一块学习在运用EXCEL VBA过程中最频繁的语句之一，“查询数据源的起末范围，以及引出行列号”。

在之前的学习中，咱们已然说过，单元格的操作将是朋友们日后运用EXCEL VBA中操作最多的对象（无之一），因此针对引用一个单元格区域，晓得这个区域的起末范围，针对快速写出对应的引用表达式是非常关键的。例如下面的数据源：

这般的一个数据源，有几行几列呢？很简单，数一数，15行8列。然则电脑不会像咱们这般“数”，计算机的任何操作都是基于人工赋予的指令。因此它需要咱们写出EXCEL能够识别的语言，才可执行和咱们同样“数”的过程。

1.RANGE.END属性

咱们都晓得一个小技巧，便是在一个工作表数据源范围内，选中某一个单元格，分别按：

CTRL+←，能找到连续区域的左边界；

CTRL+→，能找到连续区域的右边界；

CTRL+↑，能找到连续区域的上边界；

CTRL+↓，能找到连续区域的下边界。

在VBA中有一样效果的语句，便是RANGE.END属性，对应的规律亦是相当的易懂易记，不信你看下表：

照片有误end3暗示↑，end4暗示↓。举个例子看一下，数据源如下：

为了更好地说明代码的应用，作者E图表述去掉了行号和列号的标题栏，用VBA来确定这个行列的起止范围，代码如下：

Sub 末行末列() With Sheets("范围确认") a = .Range("A100000").End(xlUp).Row b = .Range("AX1").End(1).Column .Cells(a + 2, b - 1) = "末行号是：" & a.Cells(a + 3, b - 1) = "末列号是：" & b End WithEnd Sub

【代码解析】：

Line1：WITH语句，提取代码中相同的父级对象（Sheets("范围确认")），做为公共从属关系；

Line2：以A100000单元格为基点，End（xlUp）向上取连续区域的边界，用Row属性表示此边界单元格的行号，并赋值给变量a；

Line3：以AX1单元格为基点，End（1）向左取连续区域的边界，用Column属性表示此边界单元格的列号，并赋值给变量b；

Line4：Cells（a+2，b-1），咱们上次已然说过怎样用CELLS表达单元格位置，那样把末行下移两行，末列左移一列，做为输入单元格，输入字符串，这儿的&和工作表中的&是一样的效果；

Line5：原理同Line4；

Line6：WITH语句的结束语句。

这段代码中只写出了End（xlUp）和End（xlLeft）的用法，大众能够尝试着写写其他的效果。

小思考

1.为何我的单元格基点，用了“A100000”和“AX1”？

2.为何网上有的代码会用A65000这个单元格行号？

3.倘若要找到首行或首列，是不是从末行再End（xlUp）便是首行，或从数据中部的某个单元格End（xlUp）亦是首行；首列同理？

倘若你还无思路，就想想CTRL+箭头，你是从哪个单元格做为基点的。

3

单元格的“行”和“列”

行列交叉，整齐有序，纵横间便是咱们的电子表格，那样“既要纵横，岂能不谈行列”。

经过上面的代码，咱们应该已然发掘RANGE.ROW和RANGE.COLUMN两个属性，分别是表率指定单元格的“行号”和“列号”，这个记起来应该亦不难，毕竟在工作表函数中，亦有ROW函数和COLUMN函数。

那朋友们可能会说，工作表函数中亦有ROWS和COLUMNS函数，机智如你，是的，VBA中亦有 RANGE.ROWS和RANGE.COLUMNS属性。那样结合这些属性，咱们一块举一个案例看一下：

【Step1】：新建一个工作表，命名为“RC属性”；

【Step2】：在工程窗口中，双击“RC属性”工作表对象，在通用菜单栏中选取Worksheet；

【Step3】：在右边的菜单栏中选取SelectionChange事件（选择改变时，触发代码）；

【Step4】：输入代码如下：

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row <= 10 And Target.Column = 1 Thena = Target.Row Range(Cells(1, 3), Cells(a, 3 + a - 1)).Select Set Rng = Selection.Rows MsgBox Rng.Address End IfEnd Sub

【代码解析】：

Line1：判断当被选中对象的行号少于等于10，并且列号等于1的时候；

Line2：将被选中的单元格行号赋值给一个变量a；

Line3：运用Range（cells，cells）的表达式，构建一个按照备选单元格行号，列出的单元格区域。例如：选取第3行，就构建以C1单元格为左上角的3*3单元格矩阵，并且选中这个区域；

Line4：运用ROWS属性，将SELECTION（被选中的单元格）中触及的单元格赋值给Rng变量；

Line5：运用MSGBOX函数，表示Rng.ADDRESS（位置）属性信息框。

【编后语】

今天的信息量又是不少（我从来不写单一的内容），每日进步一点点，忘了就回来再瞧瞧，持之以恒的前提下，更应该明白“天道酬勤”的道理。“多看、多练、多总结”永远是成功者的不二法门。

扫二维码免费学Excel等视频

Excel教程关联举荐

花了6小时，仅为你写出一篇能够学懂的VBA教程！Excel教程：19秒，搞定16000行Excel数据自动分组编号！再见Ctrl+C！提取1000个文件名，用它10秒都嫌多！【Excel教程】

让工作提速百倍的「Excel极速贯通班」

↓ 点击阅读原文，可直接购买。

倘若对你有帮忙，点下“在看”呦

4zhvml8

回顾历史，我们感慨万千；放眼未来，我们信心百倍。