​EXCEL是由很多的对象组成，每个对象都有他的属性和方法，所谓的对象可以理解为所有存在的东西，在同一个程序里的对象之间是存在关系的，比如说上下级关系或同级关系，上下级关系之间用英文句点“.”连接。
 
例如：
 
application.workbooks(1).worksheets(1).range(“A1”)
 
意思就是当前应用程序(excel)下面的已经打开的第一个工作薄下面的第一个工作表里面的A1单元格，但一般情况下我们不需要这么麻烦，如果我们只对当前的表格操作，前面的都可以省略，只需要写range(“A1”)就可以了，如果我们在工作表1中要对同一个工作薄里的工作表2进行操作就要指明工作表，但不需要指定工作薄名，不指定工作薄默认是在同一个工作薄，不指定工作表，默认在同一个工作表，如果我们在第一个工作薄要去操作第二个工作薄就要指定第二个工作薄。除了可以使用数字去指定第几个工作薄或第几个工作表，我们还可以直接指定其名称，这样可以更直接知道是对哪个工作薄或工作表进行操作，前提是要知道它的名称。比如：
 
workbooks(“2019年销售记录”).worksheets(“一月份销售记录”).range(“A1”)
 
代表一个名为“2019年销售记录”的工作薄里面的一个名为"一月份销售记录"的工作表的A1单元格
 
每个对象都有它的属性和方法，对象和属性或方法之间也是用英文的句点“.”连接，比如说一个单元格，宽度多少，高度多少，对齐方式是什么，有没边框，边框是单实线、双实线、还是虚线，有没背景色，什么背景色等，这些都是单元格的属性。我们可以对这些属性进行设置。
 
例如：
 
rows(1).rowheight=20 指定当前工作表第一行的行高为20磅，所以这个连接的英文句点“.”可以理解为：什么“的”什么。
 
对于刚刚开始学习VBA的朋友，建议在VBA代码编辑器的立即窗口中进行练习，进入立即窗口的方法在EXCEL中同时按ALT+F11，打开代码编辑器，如果在打开的编辑器里没看到立即窗口可以按Ctrl+G或点击菜单栏的“视图”》“立即窗口”，就可以打开立即窗口，建议把代码编辑器窗口调节成下图一样，方法及时看到运行结果。
 
输入代码并回车会在对应区域中显示结果
 如果当前的活动工作表是打开的第一个工作薄里的第一个工作表，那么下面这几行代码效果是完全一样的。
 
Cells(1,1).value
 
Range(“A1”).value
 
sheets(1).cells(1,1).value=1
 
worksheets(1).cells(1,1).value=1
 
workbooks(1).worksheets(1).cells(1,1).value=1
 
application.workbooks(1).worksheets(1).cells(1,1).value=1
 
其中worksheets可以简写成sheets
 
如上面的sheets(1).cells(1,1).value=1和worksheets(1).cells(1,1).value=1是完全一样的
 
工作表格是EXCEL的基础，那么VBA的基础就是怎么使用VBA对表格进行操作，知道了怎么使用VBA操作当前工作表，以后再要操作其它的工作表或工作薄就容易了。以下是本人对一些基本操作的总结。都是以当前活动工作表为例。
 
在指定的区域上进行写入，删除，复制，粘贴，写入公式，填充公式等等，这些都是最基本的操作。这样看来要在表格上干什么都要先指定一个区域，整个表格是表格中最大的一个区域，单元格就是表格中最小的区域，区域可以用range(“区域对象”)来表示。
 
比如:
 
Range(“A1”).Select 选择A1单元格
 
Range(“A1:F10”).Select选择A1到F10区域
 
Range(Cells(1, 1), Cells(3, 3)).select 选择A1:C3区域
 
Range(“A:A”).Select选择A列
 
Range(“A:F”).Select选择A-F列
 
RANGE(“A1:D5,F2:G2,H:H”).Select同时选择A1:D5,F2:G2,H列三个指定区域
 
Range(“1:1”).Select 选择第一行
 
Range(“1:1,8:8,12:12”).Select同时选择第1，第8，第12行
 
Range可以用英文中括号[]代替,可以是下面的格式
 
Range(“A1”) 可以简写成 [A1]
 
Range(“A2:B2”) 可以简写成 [A2:B2]
 
但是:
 
Range(“1:1,8:8,12:12”) 不能简写成 [“1:1,8:8,12:12”]
 
Range(Cells(1, 1), Cells(3, 3)) 不能简写成 [Cells(1, 1), Cells(3, 3)]
 
一个工作表由很多的单元格组成，所有的单元格集合在一起用cells表示，所以cells也代表就代所有的单元格，如果要指定某一个单元格只需要在cells后面指定行和列就可以，如：cells(1,1)，就代表第一行第一列交叉的单元格A1,后面不指定单元格就代表所有单元格，如cells.select就是选择当前工作表的所有单元格，工作表除了是由单元格组成，同时也是由行或列组成，因此选择单元格或行或列还有都可以有多种，一行或一列也是一个区域，所以也是可以使用range指定的。
 
比如下面几种单元格的选择方法
 
cells(10).select 选择整个表格里的第10个单元格，顺序是从左到右，再从上到下，这个用法用到的机会并不多
 
Cells(1, 1).Select 选择第一行第一列交叉的单元格，就是A1
 
Cells使用方法和range使用方法是不一样的，range(“A1”)是以列号字母加行号代表，列号在前行号在后，要以英文双引号""括起来，意味是字符串的形式，cells(1,1)，以索引号行号加列号，行号在前列号在后，中间用英文逗号隔开，不用加英文双引号,意味着里面的数字就是数值。
 
其实cells还有一个用法，cells(1,“A”).select也是选择A1,这个就有点混血儿的感觉了。前面是行号，数值1，后面是字符列号"A",在编写程序的时候使用cells比使用range更灵活。可以方便使用变量替换.
 
cells是不能像range一样直接指定区域的，但可以配合Resize属性指定区域，Resize属性是调整指定区域的大小。
 
比如：
 
Cells(1, 1).Resize(4, 4).Select 意思是第一行第一列交叉的单元格（就是A1）为左上角第一个单元格向右下调整成一个4*4的单元格区域。相当于range(“A1:D4”)
 
Rows是当前工作表所有行的集合，因此也可以使用rows来指定行
 
比如：
 
Rows(1).select 选择第一行
 
Rows.select 选择所有行，和Cells.Select 及 Columns.Select 是同样的效果，相当于选择表格上所有单元格。
 
columns是当前工作表所有列的集合
 
Columns(1).select 选择第一列
 
Columns.Select 选择所有列
 
上面说到了怎么选择单元格，行，列，区域，都是直接指定的，有明确目标的，但我们学习VBA就是要实现智能化，自动化，这样的我们就要用到变量来代替，那么怎么用变量来选择区域呢？
 
上面的例子有提到，使用range(“A1”)这样的方法来选择是要加英文双引号的，代表是字符串类型，使用cells(1,1)这样的方法来选择的时候是不加双引号的，代表是数值类型。而变量可以代表任意类型，当然也可以手动指定变量是什么类型。如果不指定，那么变量是一个可变的类型，会根据情况自适应类型。不指定类型使用起来好像方便，但可能会存在一些情况。
 
一是占用的存储占用空间大，二是运行速度会慢一些，毕竟它每次运行的时候还要判断一下自己应该是哪个类型。三是在给变量赋值的时候它不会检查是否符合类型要求，可能会存在一些未知的错误或冲突，查找起错误的原因会比较困难。比如有两个文本型的数字变量a=“2”,b=“3”,那么可以在立即窗口中分别使用msgbox a + b,msgbox a - b,msgbox a * b,msgbox a / b,看一下结果分别是什么，你会发现，两个变量相减，相乘，相除都是和数值计算一样，但相加就不一样的，a+b结果是23，而不是5，因为+号在VBA中可以用于连接两个字符串。如果你不指定变量的类型，一开始给这个本应该是数值型的变量赋值了一个字符型的数值，在运行的过程中系统不会提示任何错误，这样在发生错误的时候你可以不知道，或发现错误，但查找起来要花费很多时间。
 
回到正题，和变量配合使用，要使用符号&进行连接，变量无论是什么类型都是不需要再双引号的。
 
使用变量选择Range的方法示例：
 
X = 2
 
y = 3
 
Cells(X, y).Select 选择第2行第3列交叉的单元格
 
Range(“a” & X).Select 选择A2单元格
 
Range(“a” & X & “:c5”).Select 选择A2:C5区域
 
Range(“a1:” & “c” & y).Select 选择A1:C3区域
 
Range(“a” & X & “:” & “b” & y).Select 选择A2:B3选择
 
下面介绍一下几个Range对象最常用的属性和方法：
 
Range.value属性，返回返设置range对象的内容
 
如:
 
a=Range(“A1”).value 返回单元格A1的值给变量a
 
Range(“A1”).value=“姓名” 把A1单元格内容设置为 “姓名”,注意，设置的内容为字符串时需要用英文双引号括起来，数值或变量等其它类型是不用双引号的。
 
要把内容设置为公式，要在公式前加一个=号，如下所示，在E2单元格加入求和公式，里面使用了变量来指定求和区域
 
Range(“E2”).value = “=sum(A” & t & “😄” & t & “)”
 
range.row属性，返回对象的行号，如果是一个区域返回左上角第一个单元格的行号
 
如：a=Range(“D10”).row 返回单元格D10所在的行号10给变量a
 
range.column属性,返回对象的列号，如果是一个区域返回左上角第一个单元格的列号
 
如：b=Range(“B2:F5”).column 返回指定区域左上角第一个单元格b2所在的列号给变量b，注意这里返回的是数值列号不是字母列号，B就是第2列，所以返回的是2
 
Range.Select 方法 选择对象
 
range(“A1”).select 选择A1单元格
 
Range.Clear 方法 清除对象，可使用具体参数指定只清除内容或公式或格式等
 
Range(“A1:G37”).Clear 清除A1:G37 单元格区域的内容、公式和格式设置等。
 
Range.Copy 方法将单元格区域复制到指定的区域或剪贴板中。如果没指定目标区域将复制到剪贴板。
 
下例所示把区域A1:D4复制到 E5开始的同等大小区域。就是复制到E5:H8，可以使用具体参数设置复制粘贴的类型，比如仅复制公式，仅复制值等。
 
Range(“A1:D4”).CopyRange(“E5”)
 
Range.Delete 方法 删除对象
 
RANGE(“A1:D5,F2:G2”).delete 同时删除A1:D5,F2:G2,两个指定区域
 
Range(“1:1,8:8,12:12”).delete 同时删除第1，第8，第12行
 
Range.Insert 方法 插入
 
Range(“1:1,8:8,12:12”).Insert 同时在第1，第8，第12行上面插入一行空白行
 
以上列举了小部分常用的对象、属性和方法，每个对象都有不同的属性和方法，不同的属性和方法可能会有多个参数，想要获得详情的属性和方法参数只考帮助文档，在VBA代码编辑器中按F1可打开VBA帮助文档。

 
目录
 
功能概要
实现步骤
条件格式的公式说明
 

 

 不知你有没有这样的困扰：“在行列数很多的表格中查看数据时，希望可以高亮显示选定单元格所在的行列呢？“ 话不多说，直接上效果图。
 先前在网上也参考了很多实现方式，个人觉得这个实现方法是比较符合我的需求的。下面就实现细节，进行说明。
 注：此方法也是网络上参考来的，并非原创，出处已经记不得了。如有侵犯版权，请联系删除。
 
功能概要
 
可以指定高亮显示的范围；如上图，高亮显示范围为 $B$3:$L$26。
选定单元格可以为1个单元格或多个连续单元格；
即使选定单元格在 $B$3:$L$26 范围之外，也可正常动作；
高亮显示的行和列随着选定单元格的变化而动态改变；
 
这些功能均可在上面的 GIF 动图中看出。
 
实现步骤
 
格式为 *.xlsm，且存有数据的Excel表格，用于保存VBA代码；
 
条件格式 =OR(AND(ROW()>=sRow,ROW()<=eRow),AND(COLUMN()>=sColumn,COLUMN()<=eColumn))；
 
 
VBA代码(因为博客编辑器不支持VBA语法，所以一下代码的关键字和注释不能高亮显示)
 
' 捕捉选定单元格发生变化的事件
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If ActiveSheet.Range("A1").Value = 1 Then ' 当A1单元格的值为1时，向工作表添加 名称。
        ActiveWorkbook.Names.Add Name:="sRow", RefersToR1C1:=Target.Row ' 以 R1C1 格式，将选定单元格的首行号赋予 名称sRow
        ActiveWorkbook.Names.Add Name:="eRow", RefersToR1C1:=Selection.Cells(Selection.Cells.Count).Row ' 以 R1C1 格式，将选定单元格的末行号赋予 名称eRow
        ActiveWorkbook.Names.Add Name:="sColumn", RefersToR1C1:=Target.Column ' 以 R1C1 格式，将选定单元格的首列号赋予 名称sColumn
        ActiveWorkbook.Names.Add Name:="eColumn", RefersToR1C1:=Selection.Cells(Selection.Cells.Count).Column ' 以 R1C1 格式，将选定单元格的末列号赋予 名称eColumn
    Else ' 当A1单元格的值为非1时，从工作表中删除 名称。
        On Error Resume Next
        ActiveWorkbook.Names("sRow").Delete
        ActiveWorkbook.Names("eRow").Delete
        ActiveWorkbook.Names("sColumn").Delete
        ActiveWorkbook.Names("eColumn").Delete
    End If

End Sub
 
 
条件格式的公式说明
 
=OR(AND(ROW()>=sRow,ROW()<=eRow),AND(COLUMN()>=sColumn,COLUMN()<=eColumn))
 
公式中的名称 sRow, eRow, sColumn, eColumn 的意思
 在上面的VBA代码的注释中已经简单说明过，但是，可能光看注释可能还是不明白，因此下面我们结合图片来进行详细说明。
 
首先我们任意选定 B3:L26 区域中单元格。因为VBA代码只有在选定单元格发生变化时才会被执行，所以此时VBA代码已经被执行过了。如下图所示，我们可以看到名称管理器中上述的名称已经被自动添加，且名称的值也赋好了。
 
 由此图可看出，我们选定的单元格区域为 D4:E5，
 选定区域的首行号为 4，所以 sRow = 4；
 选定区域的末行号为 5，所以 eRow = 5；
 选定区域的首列(D)号为 4，所以 sColumn = 4；
 选定区域的末列(E)号为 5，所以 eColumn = 5；
 
接着，我们改变选定区域：
 
 由此图可看出，我们选定的单元格区域为 B10，
 选定区域的首行号为 10，所以 sRow = 10；
 选定区域的末行号为 10，所以 eRow = 10；
 选定区域的首列(B)号为 2，所以 sColumn = 2；
 选定区域的末列(B)号为 2，所以 eColumn = 2；
 
至此，sRow, eRow, sColumn, eColumn 的意思已经理清楚了。
 
公式中 ROW()，COLUMN() 的意思
 ROW() 返回所参照的行的行号；
 COLUMN() 返回所参照的列的列号；
 
到此，我们可以回过头来，重新解读条件格式中的公式。
 
=OR(AND(ROW()>=sRow,ROW()<=eRow),AND(COLUMN()>=sColumn,COLUMN()<=eColumn))
 等价可以看作
 =OR(A,B)
 
其中
 A= AND(ROW()>=sRow,ROW()<=eRow)
 B= AND(COLUMN()>=sColumn,COLUMN()<=eColumn)
 
A 意为 B3:L26 区域中，满足 sRow <= 行号 <= eRow 条件的行；
 B 意为 B3:L26 区域中，满足 sColumn <= 列号 <= eColumn 条件的列；
 
因此，整个公式的意思为：
 在 B3:L26 区域中，只要满足 sRow <= 行号 <= eRow 条件的行，或者满足 sColumn <= 列号 <= eColumn 条件的列，其背景色将会被涂成条件格式中指定颜色。
 
以上。

注意事项:第一个代码可以返回多段落选定区域的行号;第二个代码可以返回所选内容的
第一个段落中的指定行号的文本内容. 
 
 
 
Dim LineCount As Integer 
Sub LinesCount() 
    Dim l As String 
    On Error Resume Next 
    '如果光标未选中内容则将第一个光标所在段落选中 
    If Selection.Type = wdSelectionIP Then Selection.Paragraphs(1).Range.Select 
    Application.ScreenUpdating = False    '关闭屏幕更新 
    CommandBars("Word Count").Visible = True    '打开字数统计工具栏 
    '执行字数统计(重新计数) 
    CommandBars("Word Count").Controls(2).Execute 
    '返回第一个列表框中的第六个数据 
    l = CommandBars("Word Count").Controls(1).List(6) 
    '关闭字数统计 
    CommandBars("Word Count").Visible = False 
    Application.ScreenUpdating = True    '恢复屏幕更新 
    LineCount = Int(Mid(l, 1, Len(l) - 1))    '返回行数值 
    '返回所选段落(或光标所在段落)的行数 
    MsgBox "Selection Paragraphs(1)'s Line Count Is " & LineCount 
    '返回指定行数的内容 
    MsgBox NumlineRange(LineNumber) 
End Sub 
'---------------------- 
Function NumlineRange(LineNumber As Variant) As Range 
    Dim StRange As Long, EnRange As Long, SelStart As Range 
0   LineNumber = InputBox("请输入你要定位的指定段落的行号", "Microsoft 
Word") 
    If LineNumber = "" Then Exit Function Else LineNumber = LineNumber * 1 
    With Selection 
        Set SelStart = 
ActiveDocument.Range(.Paragraphs(1).Range.Start, .Paragraphs(1).Range.Start
        Select Case LineNumber    '行号数据 
        Case 0, Is > LineCount    '大于指定段落的行数 
            MsgBox "行号过大或者过小的无效行号错误!", vbOKOnly + 
vbInformation 
            GoTo 0    '重新开始 
        Case 1    '用户行号为 1 
            StRange = .Paragraphs(1).Range.Start    '所选段落的起点 
            '所选段落的的第二行的起点(是 wdGoToNext) 
            EnRange = .GoTo(what:=wdGoToLine, which:=wdGoToNext, 
Count:=LineNumber).Start 
        Case Is = LineCount    '用户行号为最后一行 
            '定位至所选段落的最后一行 
            StRange = .GoTo(what:=wdGoToLine, which:=wdGoToNext, 
Count:=LineNumber - 1).Start 
            '所选段落的结束位置 
            EnRange = .Paragraphs(1).Range.End 
        Case Else    '其它 
            '返回用户行号的本行(wdGoToNext,所以要-1)的开始位置 
            StRange = .GoTo(what:=wdGoToLine, which:=wdGoToNext, 
Count:=LineNumber - 1).Start 
            SelStart.Select    '由于光标位置移动后,需要重新选定 
            '取得下一行的起始位置 
            EnRange = .GoTo(what:=wdGoToLine, which:=wdGoToNext, 
Count:=LineNumber).Start 
        End Select 
        '定义该用户指定行的区域 
        Set NumlineRange = ActiveDocument.Range(StRange, EnRange) 
    End With 
End Function 
'---------------------- 

  有时候，在进行Excel开发时，需要知道某列的最后一行的行号。Excel也提供了相关功能：Range.End属性。
  

 
 

 
 
    Dim strCell As String
     Dim nLastUseRow As Long
     Dim nLastRcdRow As Long
 
     Dim Rng As Range
 
     '为最后一个单元格所在行 , 即最后一行,该函数表示Sheet表的使用区域中的最后一行
     nLastUseRow = Cells.SpecialCells(xlCellTypeLastCell).Row
 
 
     ' 得到A列单元格的最后一行
     strCell = "A" + CStr(nLastUseRow + 1)
     
     Set Rng = Range(strCell).End(xlUp)
  
    nLastRcdRow = Rng.Row' 得到行号
 

 
 

 
 

 
 
需要说明的是：Cells.SpecialCells(xlCellTypeLastCell).Row 指的是使用区域最后一行，并不是最后有文本单元格的一行。
 
比如：开始我用了100行，随后我又删除了50行，则Cells.SpecialCells(xlCellTypeLastCell).Row = 100。
 
当然，如果你保存了文件，则Cells.SpecialCells(xlCellTypeLastCell).Row = 50 了。
 

 
 
所以，可以通过联合Range.End属性实现快速定位到最后一个单元格上。
 

 
 
具体帮助说明：（Excel Help）
 
 
 
 
 
Range.End 属性
 
 返回一个 
Range 对象，该对象代表包含源区域的区域尾端的单元格。等同于按键 End+ 向上键、End+ 向下键、End+ 向左键或 End+ 向右键。
Range 对象，只读。 
 
 
语法
 
表达式.End(Direction)
 
表达式   一个代表 Range 对象的变量。
 
参数
 
 
 
名称
必选/可选
数据类型
描述
Direction
必选
XlDirection
所要移至的方向。
 
 
示例
 
 
本示例选定包含单元格 B4 的区域中 B 列顶端的单元格。
 
 
 
Visual Basic for Applications
 
Range("B4").End(xlUp).Select
 
 
 
本示例选定包含单元格 B4 的区域中第 4 行尾端的单元格。
 
 
 
Visual Basic for Applications
 
Range("B4").End(xlToRight).Select
 
 
 
本示例将选定区域从单元格 B4 延伸至第四行最后一个包含数据的单元格。
 
 
 
Visual Basic for Applications
 
Worksheets("Sheet1").Activate
Range("B4", Range("B4").End(xlToRight)).Select
 
 
 
 
 
 
 
 
  
XlDirection 枚举
 
 
 指定移动的方向。 
 
版本信息
  已添加版本：  Excel 2007
 
 
 
  
                 名称                  
         值            
        描   述                
xlDown
-4121
向下。
xlToLeft
-4159
向左。
xlToRight
-4161
向右。
xlUp
-4162
向上。