第一篇：如何将excel中的数据用vba代码存入access文件中
如何将excel中的数据用vba代码存入access文件中？
excel中的 日期 供应商 货物名称 9月10日 联想公司
单价 数量
笔记本 3500 金额 2
7000 将表中的内容存储到D:备份.mdb中，如果mdb中有其他记录，将记录存入以前的记录后面。每天都要将当天采购的记录录入并保存到mdb文件 中。谢谢
以下是我用了实现从Excel导数据进ACCESS的代码，你参考一下，应该就可以做出来了：（Excel和Access两个文件放一个文件夹下）Public Sub 客户正常供价批量维护()If Cells(4, 6)= “" Then MsgBox ”请先选择需要维护价格的系统！“, vbInformation Cells(4, 6).Select Exit Sub Else
Dim i As Integer, j As Integer, k As Integer, sht As Worksheet 'i,j,k为整数变量；sht 为excel工作表对象变量，指向某一工作表
Dim cn As New ADODB.Connection '定义数据链接对象，保存连接数据库信息；请先添加ADO引用
Dim rs As New ADODB.Recordset '定义记录集对象，保存数据表 Dim strCn As String, strSQL As String '字符串变量 Dim mdbFile As String
On ErrorGoTo add_err mdbFile = ActiveWorkbook.Path & ”DY_DATA.mdb“
strCn = ”Provider=Microsoft.Jet.OLEDB.4.0;Data Source=“ & mdbFile '定义数据库链接字符串
cn.Open strCn '与数据库建立连接，如果成功，返回连接对象cn
Set rs = New ADODB.Recordset rs.Open ”dbl直营客户正常供价表“, cn, adOpenKeyset, adLockOptimistic
k = Cells(4, 8)+ 8 For i = 9 To k If Cells(i, 7)= ”“ Then Else rs.AddNew rs(1)= Cells(i, 2)rs(2)= Cells(i, 7)rs(3)= Cells(i, 8)
rs.Update Cells(i, 7)= ”“ Cells(i, 8)= ”“
End If Next MsgBox ”数据记录添加成功！", vbInformation Cells(4, 6).Select ActiveWorkbook.RefreshAll
add_exit: Exit Sub End If add_err: MsgBox Err()& vbCrLf & Error()Resume add_exit End Sub 追问 vba中excel的单元格用cells(1,1),cells(1,2),cells(2,1),cells(2,2),cells(i,j)表示，在vba中access对应的单元格如何表示这些？
第二篇：VBA代码中引用Excel工作表中单元格区域的方式小结
VBA代码中引用Excel工作表中单元格区域的方式小结.txt大人物的悲哀在于他们需要不停地做出选择；而小人物的悲哀在于他们从来没有选择的机会。男人因沧桑而成熟，女人因成熟而沧桑。男人有了烟，有了酒，也就有了故事；女人有了钱，有了资色，也就有了悲剧。在VBA代码中引用Excel工作表中单元格区域的方式小结
问题一：在VBA代码中，如何引用当前工作表中的单个单元格(例如引用单元格C3)？ 回答：可以使用下面列举的任一方式对当前工作表中的单元格(C3)进行引用。(1)Range(“C3”)(2)[C3](3)Cells(3, 3)(4)Cells(3, “C”)(5)Range(“C4”).Offset(-1)Range(“D3”).Offset(,-1)Range(“A1”).Offset(2, 2)(6)若C3为当前单元格，则可使用：ActiveCell(7)若将C3单元格命名为“Range1”，则可使用：Range(“Range1”)或[Range1](8)Cells(4, 3).Offset(-1)
------------------问题二：在VBA代码中，我要引用当前工作表中的B2:D6单元格区域，有哪些方式？ 回答：可以使用下面列举的任一方式对当前工作表中单元格区域B2:D6进行引用。(1)Range(“B2:D6”)(2)Range(“B2”, “D6”)(3)[B2:D6](4)Range(Range(“B2”), Range(“D6”))(5)Range(Cells(2, 2), Cells(6, 4))(6)若将B2:D6区域命名为“MyRange”，则又可以使用下面的语句引用该区域： ① Range(“MyRange”)② [MyRange](7)Range(“B2”).Resize(5, 3)(8)Range(“A1:C5”).Offset(1, 1)(9)若单元格B2为当前单元格，则可使用语句：Range(ActiveCell, ActiveCell.Offset(4, 2))(10)若单元格D6为当前单元格，则可使用语句：Range(“B2”, ActiveCell)
------------------问题三：在VBA代码中，如何使用变量实现对当前工作表中不确定单元格区域的引用？ 回答：有时，我们需要在代码中依次获取工作表中特定区域内的单元格，这通常可以采取下面的几种方式：
(1)Range(“A” & i)(2)Range(“A” & i & “:C” & i)(3)Cells(i,1)(4)Cells(i,j)其中，i、j为变量，在循环语句中指定i和j的范围后，依次获取相应单元格。------------------问题四：在VBA代码中，如何扩展引用当前工作表中的单元格区域？ 回答：可以使用Resize属性，例如：
(1)ActiveCell.Resize(4, 4)，表示自当前单元格开始创建一个4行4列的区域。(2)Range(“B2”).Resize(2, 2)，表示创建B2:C3单元格区域。(3)Range(“B2”).Resize(2)，表示创建B2:B3单元格区域。(4)Range(“B2”).Resize(, 2)，表示创建B2:C2单元格区域。
如果是在一个单元格区域(如B3:E6)，或一个命名区域中(如将单元格区域B3:E6命名为“MyRange”)使用Resize属性，则只是相对于单元格区域左上角单元格扩展区域，例如： 代码Range(“C3:E6”).Resize(, 2)，表示单元格区域C3：D6，并且扩展的单元格区域可不在原单元格区域内。因此，可以知道Resize属性是相对于当前活动单元格或某单元格区域中左上角单元格按指定的行数或列数扩展单元格区域。
------------------问题五：在VBA代码中，如何在当前工作表中基于当前单元格区域或指定单元格区域处理其它单元格区域？
回答：可以使用Offset属性，例如：
(1)Range(“A1”).Offset(2, 2)，表示单元格C3。
(2)ActiveCell.Offset(, 1)，表示当前单元格下一列的单元格。(3)ActiveCell.Offset(1)，表示当前单元格下一行的单元格。
(4)Range(“C3:D5”).Offset(, 1)，表示单元格区域D3:E5，即将整个区域偏移一列。从上面的代码示例可知，Offset属性从所指定的单元格开始按指定的行数和列数偏移，从而到达目的单元格，但偏移的行数和列数不包括指定单元格本身。
------------------问题六：在VBA代码中，如何在当前工作表中引用交叉区域？ 回答：可以使用Intersect方法，例如： Intersect(Range(“C3:E6”), Range(“D5:F8”))，表示单元格区域D5:E6，即单元格区域C3:E6与D5:F8相重迭的区域。
------------------问题七：在VBA代码中，如何在当前工作表中引用多个区域？ 回答：
(1)可以使用Union方法，例如：
Union(Range(“C3:D4”), Range(“E5:F6”))，表示单元格区域C3:D4和E5:F6所组成的区域。Union方法可以将多个非连续区域连接起来成为一个区域，从而可以实现对多个非连续区域一起进行操作。
(2)也可以使用下面的代码：
Range(“C3:D4, E5:F6”)或[C3:D4, E5:F6] 注意：Range(“C3:D4”, “F5:G6”)，表示单元格区域C3:G6，即将两个区域以第一个区域左上角单元格为起点，以第二个区域右下角单元格为终点连接成一个新区域。
同时，在引用区域后使用Rows属性和Columns属性时，注意下面代码的区别： ①Range(“C3:D4”, “F8:G10”).Rows.Count，返回的值为8； ②Range(“C3:D4,F8:G10”).Rows.Count，返回的值为2，即只计算第一个单元格区域。
------------------问题八：在VBA代码中，如何引用当前工作表中活动单元格或指定单元格所在的区域(当前区域)？
回答：可以使用CurrentRegion属性，例如：
(1)ActiveCell.CurrentRegion，表示活动单元格所在的当前区域。(2)Range(“D5”).CurrentRegion，表示单元格D5所在的当前区域。
当前区域是指周围由空行或空列所围成的区域。该属性的详细使用参见《CurrentRegion属性示例》一文。
------------------问题九：在VBA代码中，如何引用当前工作表中已使用的区域？ 回答：可以使用UsedRange属性，例如：
(1)Activesheet.UsedRange，表示当前工作表中已使用的区域。
(2)Worksheets(“sheet1”).UsedRange，表示工作表sheet1中已使用的区域。
与CurrentRegion属性不同的是，该属性代表工作表中已使用的单元格区域，包括显示为空行，但已进行过格式的单元格区域。该属性的详细使用参见《解析UsedRange属性》一文。
------------------问题十：如何在单元格区域内指定特定的单元格？ 回答：可以使用Item属性，例如：
(1)Range(“A1:B10”).Item(5,3)指定单元格C5，这个单元格处于以区域中左上角单元格A1(即区域中第1行第1列的单元格)为起点的第5行第3列。因为Item属性为默认属性，因此也可以简写为：Range(“A1:B10”)(5,3)。如果将A1:B10区域命名为”MyRange”，那么Range(“MyRange”)(5,3)也指定单元格C5。(2)Range(“A1:B10”)(12,13)指定单元格M12，即用这种方式引用单元格，该单元格不必一定要包含在区域内。
同时，也不需要索引数值是正值，例如： ① Range(“D4:F6”)(0,0)代表单元格C3； ② Range(“D4:F6”)(-1,-2)代表单元格A2。而Range(“D4:F6”)(1,1)代表单元格D4。(3)也可以在单元格区域中循环，例如：
Range(“D4:F6”)(2,2)(3,4)代表单元格H7，即该单元格位于作为左上角单元格E5的第3行第4列(因为E5是开始于区域中左上角单元格D4起的第2行第2列)。
(4)也能使用一个单个的索引数值进行引用。计数方式为从左向右，即在区域中的第一行开始从左向右计数，第一行结束后，然后从第二行开始从左到右接着计数，依次类推。(注：从区域中第一行第一个单元格开始计数，当第一行结束时，转入第二行最左边的单元格，这样按一行一行从左向右依次计数。以单元格区域中第1个单元格开始，按上述规则依次为第2个单元格、第3个单元格„.等等)，例如： Range(“A1:B2”)(1)代表单元格A1； Range(“A1:B2”)(2)代表单元格B1； Range(“A1:B2”)(3)代表单元格A2； Range(“A1:B2”)(4)代表单元格B2。这种方法可在工作表中连续向下引用单元格(即不一定是在单元格区域内，但在遵循相同的规律)，例如：
Range(“A1:B2”)(5)代表单元格A3；
Range(“A1:B2”)(14)代表单元格B7，等等。也可以使用单个的负数索引值。
这种使用单个索引值的方法对遍历列是有用的，例如，Range(“D4”)(1)代表单元格D4，Range(“D4”)(2)代表单元格D5，Range(“D4”)(11)代表单元格D14，等等。同理，稍作调整后也可遍历行，例如：
Range(“D4”).Columns(2)代表单元格E4，Range(“D4”).Columns(5)指定单元格H4，等等。(5)当与对象变量配合使用时，Item属性能提供简洁并有效的代码，例如： Set rng = Worksheets(1).[a1] 定义了对象变量后，像单元格方法一样，Item属性允许使用两个索引数值引用工作表中的任一单元格，例如，rng(3,4)指定单元格D3。(By Chip Pearson)
------------------问题十一：在VBA代码中，如何引用当前工作表中的整行或整列？ 回答：见下面的示例代码：
(1)Range(“C:C”).Select，表示选择C列。
Range(“C:E”).Select，表示选择C列至E列。(2)Range(“1:1”).Select，表示选择第一行。
Range(“1:3”).Select，表示选择第1行至第3行。(3)Range(“C:C”).EntireColumn，表示C列； Range(“D1”).EntireColumn，表示D列。
同样的方式，也可以选择整行，然后可以使用如AutoFit方法对整列或整行进行调整。
------------------问题十二：在VBA代码中，如何引用当前工作表中的所有单元格？ 回答：可以使用下面的代码：
(1)Cells，表示当前工作表中的所有单元格。
(2)Range(Cells(1, 1), Cells(Cells.Rows.Count, Cells.Columns.Count))，其中Cells.Rows表示工作表所有行，Cells.Columns表示工作表所有列。
------------------问题十三：在VBA代码中，如何引用工作表中的特定单元格区域？
回答：在工作表中，您可能使用过“定位条件”对话框。可以通过选择菜单“编辑——定位”，单击“定位”对话框中的“定位条件”按钮显示该对话框。这个对话框可以允许用户选择特定的单元格。例如：
(1)Worksheets(“sheet1”).Cells.SpecialCells(xlCellTypeAllFormatConditions)，表示工作表sheet1中由带有条件格式的单元格所组成的区域。(2)ActiveCell.CurrentRegion.SpecialCells(xlCellTypeBlanks)，表示当前工作表中活动单元格所在区域中所有空白单元格所组成的区域。
当然，还有很多常量和值的组合，可以让您实现特定单元格的查找并引用。参见《探讨在工作表中找到最后一行》一文。------------------问题十四：在VBA代码中，如何引用其它工作表或其它工作簿中的单元格区域？
回答：要引用其它工作表或其它工作簿中的单元格区域，只需在单元格对象前加上相应的引用对象即可，例如：
(1)Worksheets(“Sheet3”).Range(“C3:D5”)，表示引用工作表sheet3中的单元格区域C3:D5。(2)Workbooks(“MyBook.xls”).Worksheets(“sheet1”).Range(“B2”)，表示引用MyBook工作簿中工作表Sheet1上的单元格B2。
------------------问题十五：还有其它的一些情形吗？ 回答：列举如下：
(1)Cells(15)，表示单元格O1，即可在Cells属性中指定单元格数字来选择单元格，其计数顺序为自左至右、从上到下，又如Cells(257)，表示单元格B1。
(2)Cells(, 256)，表示单元格IV1，但是如果Cells(, 257)，则会返回错误。
------------------结语
我们用VBA对Excel进行处理，一般是对其工作表中的数据进行处理，因此，引用单元格区域是ExcelVBA编程中最基本的操作之一，只有确定了所处理的单元格区域，才能使用相应的属性和方法进行下一步的操作。
上面列举了一些引用单元格区域的情形和方式，可以看出，引用单元格区域有很多方式，有一些可能不常用，可以根据工作表的所处的环境和个人编程习惯进行选择使用。
当然，在编写程序时，也可能会将上面的一些属性联合使用，以达到选取特定操作对象的目的，例如Offset属性、Resize属性、CurrentRegion属性、UsedRange属性等的组合。
找到最后一行的一些方法探讨 使用End属性
在ExcelVBA中，使用End(xlUp)查找最后一行是最常使用且最为简单的方法，它假设要有一列总包含有数据(数字、文本和公式等)，并且在该列中最后输入数据的单元格的下一行不会包含数据，因此不必担心会覆盖掉已有数据。但该方法有两个缺点：(1)仅局限于查找指定列的最后一行。
(2)如果该列中最后一行被隐藏，那么该隐藏行将被视作最后一行。因此，在最后一行被隐藏时，其数据可能会被覆盖。但该列中间的隐藏行不会影响查找的结果。[示例代码01] Sub EndxlUp_OneColLastRow()If Range(“A” & Rows.Count).End(xlUp)= Empty Then GoTo Finish '获取最后一行
MsgBox “最后一行是第” & Range(“A” & Rows.Count).End(xlUp).Row & “行.” Exit Sub Finish: MsgBox “没有发现公式或数据!” End Sub [示例代码02] Sub NextRowInColumnUsedAsSub()'包含所有数据和公式，忽略隐藏的最后一行
Range(“A” & Range(“A” & Rows.Count).End(xlUp).Row + 1).Select End Sub [示例代码03] Sub NextRowInColumnUsedAsFunction()'包含所有数据和公式，忽略隐藏的最后一行
Range(“A” & LastRowInColumn(“A”)+ 1).Select End Sub '-------Public Function LastRowInColumn(Column As String)As Long LastRowInColumn = Range(Column & Rows.Count).End(xlUp).Row End Function 注意，要输入新数据的列可能与我们所查找最后一行时所使用的列不同，例如，在上例中，我们可以修改为在B列中查找该列的最后一行，而在A列相应行的下一行中输入新的数据。
------------------使用Find方法
Find方法在当前工作有数据中进行查找，不需要指定列，也可以确保不会意外地覆盖掉已有数据。其中，参数LookIn指定所查找的类型，有三个常量可供选择，即xlValues、xlFormulas和xlComments。
(1)常量xlFormulas将包含零值的单元格作为有数据的单元格。(当设置零值不显示时，该单元格看起来为空，但该参数仍将该单元格视为有数据的单元格)(2)常量xlValues将包含零值的单元格(如果设置零值不显示时)作为空白单元格，此时，若该单元格在最后一行，则Find方法会认为该单元格所在的行为空行，因此，该单元格中的内容可能会被新数据所覆盖。
[注：在Excel中，选择菜单“工具”——“选项”，在打开的“选项”对话框中，选择“视图”选项卡，将其中的“零值”前的复选框取消选中，则工作表中的零值都不会显示] 如果在参数LookIn中使用常量xlValues的话，还存在一个问题是：如果您将最后一行隐藏，则Find方法会认为倒数第二行是最后一行，此时您在最后一行的下一行输入数据，则会将实际的最后一行的数据覆盖。
您可以在隐藏最后一行与不隐藏最后一行，或者是最后一行显示零值与不显示零值时，运行下面的示例代码04，看看所得的结果有什么不同。[示例代码04] Sub Find_LastRowxlValues()On Error GoTo Finish '获取最后一行
MsgBox “最后一行是第” & Cells.Find(“*”, _ SearchOrder:=xlByRows, LookIn:=xlValues, _ SearchDirection:=xlPrevious).EntireRow.Row & “行” Exit Sub Finish: MsgBox “没有发现数值！” End Sub 因此，在使用Find方法时，您应该考虑所选参数设置的常量，以及工作表最后一行是否有可能被隐藏或不显示零值。如果您忽视这些情况，很可能得不到您想要的结果，或者是覆盖掉已有数据。使用常量xlFormulas可以避免这个问题，如下面的示例代码05所示。[示例代码05] Sub Find_LastRowxlFormulas()On Error GoTo Finish '获取最后一行
MsgBox “最后一行是第” & Cells.Find(“*”, _ SearchOrder:=xlByRows, LookIn:=xlFormulas, _ SearchDirection:=xlPrevious).EntireRow.Row & “行” Exit Sub Finish: MsgBox “没发现数值或公式！” End Sub 下面再列举几个示例代码。[示例代码06] Sub NextRowUsedAsSub()'选取最后一行的下一行 Range(“A” & Cells.Find(“*”, LookIn:=xlFormulas, SearchDirection:=xlPrevious).Row + 1).Select End Sub [示例代码07] Sub NextRowUsedAsFunction()'选取最后一行的下一行(调用函数)Range(“A” & LastRow + 1).Select End Sub '-------Public Function LastRow()As Long '本代码包含隐藏行
'使用常量xlFormulas，因为常量xlValues会忽略隐藏的最后一行 LastRow = Cells.Find(“*”, LookIn:=xlFormulas, SearchDirection:=xlPrevious).Row End Function 注：Find方法中，参数LookIn的默认值为xlFormulas。
------------------使用SpecialCells方法
SpecialCells方法用于查找指定类型的值，其语法为SpecialCells(Type,Value)，有两种主要的使用方式：
(1)若参数Type仅考虑常量，则在查找时会忽略和覆盖由公式生成的任何数据，如示例代码08所示。
(2)若参数Type仅考虑由公式生成的数据，则在查找时会忽略和覆盖任何常量数据，如示例代码09所示。如果参数Type是xlCellTypeConstants或者是xlCellTypeFormulas，则Value参数可使用常量决定哪种类型的单元格将被包含在结果中，这些常量值能组合而返回多个类型，其缺省设置是选择所有的常量或公式，而不管是何类型，可使用下面四个可选的常量： 1)xlTextValues(包含文本);2)xlNumbers(包含数字);3)xlErrors(包含错误值);4)xlLogical(包含逻辑值)自已在工作表输入一些含有数值和公式的数据，隐藏或不隐藏最后一行或公式所在的行，先体验下面的两段示例代码。[示例代码08] '当最后一行为公式或隐藏了最后行时，会忽略，即认为倒数第二行为最后一行 Sub NextConstantRowFunction()Range(“A” & LastConstantRow(True, True, True, True)+ 1).Select End Sub '------Public Function LastConstantRow(Optional IncludeText As Boolean, _ Optional IncludeNumbers As Boolean, _ Optional IncludeErrors As Boolean, _ Optional IncludeLogicals As Boolean)As Long Dim Text As Long, Numbers As Long, Errors As Long Dim Logical As Long, AllTypes As Long If IncludeText Then Text = xlTextValues Else Text = 0 If IncludeNumbers Then Numbers = xlNumbers Else Numbers = 0 If IncludeErrors Then Errors = xlErrors Else Errors = 0 If IncludeLogicals Then Logical = xlLogical Else Logical = 0 AllTypes = Text + Numbers + Errors + Logical On Error GoTo Finish LastConstantRow = Split(Cells.SpecialCells(xlCellTypeConstants, AllTypes).Address, “$”)_(UBound(Split(Cells.SpecialCells(xlCellTypeConstants, AllTypes).Address, “$”)))Exit Function Finish: MsgBox “没有发现数据！” End Function [示例代码09] '查找含有公式的单元格所在的行，忽略该行以后的常量和隐藏的行 Sub NextFormulaRowFunction()Range(“A” & LastFormulaRow(True, True, True, True)+ 1).Select End Sub '-------Public Function LastFormulaRow(Optional IncludeText As Boolean, _ Optional IncludeNumbers As Boolean, _ Optional IncludeErrors As Boolean, _ Optional IncludeLogicals As Boolean)As Long Dim Text As Long, Numbers As Long, Errors As Long Dim Logical As Long, AllTypes As Long If IncludeText Then Text = xlTextValues Else Text = 0 If IncludeNumbers Then Numbers = xlNumbers Else Numbers = 0 If IncludeErrors Then Errors = xlErrors Else Errors = 0 If IncludeLogicals Then Logical = xlLogical Else Logical = 0 AllTypes = Text + Numbers + Errors + Logical On Error GoTo Finish LastFormulaRow = Split(Cells.SpecialCells(xlCellTypeFormulas, AllTypes).Address, “$”)_(UBound(Split(Cells.SpecialCells(xlCellTypeFormulas, AllTypes).Address, “$”)))Exit Function Finish: MsgBox “没有发现数据！” End Function 下面的示例代码10忽略最后一行带有公式的单元格，即当最后一行的单元格中含有公式时，将倒数第二行作为最后一行，即只考虑直接输入到工作表中的数据。当最后一行没有公式但被隐藏时，并不影响该方法的判断。[示例代码10] Sub SpecialCells_LastRowxlCellTypeConstants()Dim MyRow As Range On Error GoTo Finish Set MyRow = Intersect([A:A], Cells._ SpecialCells(xlCellTypeConstants).EntireRow).EntireRow '获取最后一行
MsgBox “最后一行是第” & Split(MyRow.Address, “$”)_(UBound(Split(MyRow.Address, “$”)))& “行” Set MyRow = Nothing Exit Sub Finish: MsgBox “没有发现数据！” End Sub 注：因为上述代码使用了’Split’函数，故只适合于Office2000及以上的版本。该方法也允许我们指定单个数据类型，诸如数字数据或文本数据，如下所示。
下面，我们查找的最后一行是仅在行中有数字(而不包含公式)的单元格的最后一行。[示例代码11] Sub SpecialCells_LastRowxlCellTypeNumberConstants()Dim MyRow As Range On Error GoTo Finish Set MyRow = Intersect([A:A], Cells._ SpecialCells(xlCellTypeConstants, xlNumbers).EntireRow)'获取最后一行
MsgBox “最后一行是第” & Split(MyRow.Address, “$”)_(UBound(Split(MyRow.Address, “$”)))& “行” Set MyRow = Nothing Exit Sub Finish: MsgBox “没有发现数据！” End Sub 下面，我们查找的最后一行是仅在行中有文本(而不包含公式)的单元格的最后一行。[示例代码12] Sub SpecialCells_LastRowxlCellTypeTextConstants()Dim MyRow As Range On Error GoTo Finish Set MyRow = Intersect([A:A], Cells._ SpecialCells(xlCellTypeConstants, xlTextValues).EntireRow)'获取最后一行
MsgBox “最后一行是第” & Split(MyRow.Address, “$”)_(UBound(Split(MyRow.Address, “$”)))& “行” Set MyRow = Nothing Exit Sub Finish: MsgBox “没有发现数据！” End Sub 下面，我们查找的最后一行是仅在行中有公式的单元格的最后一行。[示例代码13] Sub SpecialCells_LastRowxlCellTypeFormulas()Dim MyRow As Range On Error GoTo Finish Set MyRow = Intersect([A:A], Cells._ SpecialCells(xlCellTypeFormulas).EntireRow).EntireRow '获取最后一行
MsgBox “最后一行是第” & Split(MyRow.Address, “$”)_(UBound(Split(MyRow.Address, “$”)))& “行” Set MyRow = Nothing Exit Sub Finish: MsgBox “没有发现数据！” End Sub 同上面所讲述的一样，我们也能使用SpecailCells方法去找到其它特定类型的单元格所在的最后一行，下面是这些常量的一个完整的列表：
XlCellTypeAllFormatConditions(任何格式的单元格)XlCellTypeAllValidation(带有数据有效性的单元格)XlCellTypeBlanks(所使用区域中的空白单元格)XlCellTypeComments(包含有批注的单元格)XlCellTypeConstants(包含有常量的单元格)XlCellTypeFormulas(包含有公式的单元格)XlCellTypeLastCell(已使用区域中的最后一个单元格(看下面))XlCellTypeSameFormatConditions(有相同格式的单元格)XlCellTypeSameValidation(有相同数据有效性条件的单元格)XlCellTypeVisible(工作表中所有可见的单元格)
第三篇：在VBA代码中引用Excel工作表中单元格区域的方式小结
在VBA代码中引用Excel工作表中单元格区域的方式小结
-----------------Public Function LastUsedRow()As Long LastUsedRow = Cells.SpecialCells(xlCellTypeLastCell).Row End Function 使用这里介绍的两种技术时，您一定要清楚工作表当前的状态，以找到正确的最后一行。
------------------使用CurrentRegion属性
CurrentRegion属性返回代表单元格所在的当前区域，即四周有空行的独立区域，因此，可使用此属性查找当前区域的最后一行。但是使用其查找最后一行的一个缺点是，必须首先选取当前区域，然后进行查找。
------------------小结
正如开始所讲述的一样，使用各种方法来查找最后一行都有其优缺点，并且都能找到您想要的最后一行，关键是您要了解各种方法的特性，以及工作表的状态，以便于选择所使用的方法来找到您需要的最后一行。
上述内容可能有不准确的地方，也可能有遗漏之处，您也可以在调试中体会和改进。
使用 Visual Basic 的普通任务是指定单元格或单元格区域，然后对该单元格或单元格区域进行一些操作，如输入公式或更改格式。
通常用一条语句就能完成操作，该语句可标识单元格，还可更改某个属性或应用某个方法。
在 Visual Basic 中，Range 对象既可表示单个单元格，也可表示单元格区域。下列主题说明了标识和处理 Range 对象最常用的方法。
用 A1 样式记号引用单元格和单元格区域
可使用 Range 属性来引用 A1 引用样式中的单元格或单元格区域。下述子程序将单元格区域 A1:D5 的字体设置为加粗。
Sub FormatRange()Workbooks(“Book1”).Sheets(“Sheet1”).Range(“A1:D5”)_.Font.Bold = True End Sub
下表演示了使用 Range 属性的一些 A1 样式引用。
引用
含义
Range(“A1”)单元格 A1
Range(“A1:B5”)从单元格 A1 到单元格 B5 的区域
Range(“C5:D9,G9:H16”)多块选定区域
Range(“A:A”)A 列
Range(“1:1”)第一行
Range(“A:C”)从 A 列到 C 列的区域
Range(“1:5”)从第一行到第五行的区域
Range(“1:1,3:3,8:8”)第 1、3 和 8 行
Range(“A:A,C:C,F:F”)A、C 和 F 列
用编号引用单元格
通过使用行列编号，可用 Cells 属性来引用单个单元格。该属性返回代表单个单元格的 Range 对象。下例中，Cells(6,1)返回 Sheet1 上的单元格 A6，然后将 Value 属性设置为 10。Sub EnterValue()Worksheets(“Sheet1”).Cells(6, 1).Value = 10 End Sub 因为可用变量替代编号，所以 Cells 属性非常适合于在单元格区域中循环，如下例所示。
Sub CycleThrough()Dim Counter As Integer For Counter = 1 To 20 Worksheets(“Sheet1”).Cells(Counter, 3).Value = Counter Next Counter End Sub 注意 如果要同时更改某一单元格区域中所有单元格的属性或对其应用方法，可使用 Range 属性。有关详细信息，请参阅用 A1 样式记号引用单元格。
引用行和列
可用 Rows 属性或 Columns 属性来处理整行或整列。这两个属性返回代表单元格区域的 Range 对象。下例中，用 Rows(1)返回 Sheet1 上的第一行，然后将单元格区域的 Font 对象的 Bold 属性设置为 True。
Sub RowBold()Worksheets(“Sheet1”).Rows(1).Font.Bold = True End Sub 下表举例说明了使用 Rows 和 Columns 属性的一些行和列的引用。
引用
含义
Rows(1)第一行
Rows 工作表上所有的行
Columns(1)第一列
Columns(“A”)第一列
Columns 工作表上所有的列
若要同时处理若干行或列，请创建一个对象变量并使用 Union 方法，将对 Rows 属性或 Columns 属性的多个调用组合起来。下例将活动工作簿中第一张工作表上的第一行、第三行和第五行的字体设置为加粗。Sub SeveralRows()Worksheets(“Sheet1”).Activate Dim myUnion As Range Set myUnion = Union(Rows(1), Rows(3), Rows(5))myUnion.Font.Bold = True End Sub 用快捷记号引用单元格
可用方括号将 A1 引用样式或命名区域括起来，作为 Range 属性的快捷方式。这样就不必键入单词“Range”或使用引号，如下例所示。
Sub ClearRange()Worksheets(“Sheet1”).[A1:B5].ClearContents End Sub Sub SetValue()[MyRange].Value = 30 End Sub 引用命名区域
用名称比用 A1 样式记号更容易标识单元格区域。若要命名选定的单元格区域，请单击编辑栏左端的名称框，键入名称，再按 Enter。
引用命名区域
下例引用了名为“MyBook.xls”的工作簿中的名为“MyRange”的单元格区域。
Sub FormatRange()Range(“MyBook.xls!MyRange”).Font.Italic = True End Sub 下例引用名为“Report.xls”的工作簿中的特定工作表单元格区域“Sheet1!Sales”。
Sub FormatSales()Range(“[Report.xls]Sheet1!Sales”).BorderAround Weight:=xlthin End Sub 若要选定命名区域，请用 GoTo 方法，该方法将激活工作簿和工作表，然后选定该区域。
Sub ClearRange()Application.Goto Reference:=“MyBook.xls!MyRange” Selection.ClearContents End Sub 下例显示对于活动工作簿将如何编写相同的过程。
Sub ClearRange()Application.Goto Reference:=“MyRange” Selection.ClearContents End Sub 在命名区域中的单元格上循环
下例用 For Each...Next 循环语句在命名区域中的每一个单元格上循环。如果该区域中的任一单元格的值超过 limit 的值，就将该单元格的颜色更改为黄色。
Sub ApplyColor()Const Limit As Integer = 25 For Each c In Range(“MyRange”)If c.Value > Limit Then c.Interior.ColorIndex = 27 End If Next c End Sub 相对于其他单元格来引用单元格
处理相对于另一个单元格的某一单元格的常用方法是使用 Offset 属性。下例中，将位于活动工作表上活动单元格下一行和右边三列的单元格的内容设置为双下划线格式。
Sub Underline()ActiveCell.Offset(1, 3).Font.Underline = xlDouble End Sub 注意 可录制使用 Offset 属性（而不是绝对引用）的宏。在“工具”菜单上，指向“宏”，再单击“录制新宏”，然后单击“确定”，再单击录制宏工具栏上的“相对引用”按钮。
若要在单元格区域中循环，请在循环中将变量与 Cells 属性一起使用。下例以 5 为步长，用 5 到 100 之间的值填充第三列的前 20 个单元格。变量 counter 用作 Cells 属性的行号。
Sub CycleThrough()Dim counter As Integer For counter = 1 To 20 Worksheets(“Sheet1”).Cells(counter, 3).Value = counter * 5 Next counter End Sub 用 Range 对象引用单元格
如果将对象变量设置为 Range 对象，即可用变量名方便地操作单元格区域。
下述过程创建了对象变量 myRange，然后将活动工作簿中 Sheet1 上的单元格区域 A1:D5 赋予该变量。随后的语句用该变量代替该区域对象，以修改该区域的属性。
Sub Random()Dim myRange As Range Set myRange = Worksheets(“Sheet1”).Range(“A1:D5”)myRange.Formula = “=RAND()” myRange.Font.Bold = True End Sub 引用工作表上的所有单元格
如果对工作表应用 Cells 属性时不指定编号，该属性将返回代表工作表上所有单元格的 Range 对象。下述 Sub 过程清除活动工作簿中 Sheet1 上的所有单元格的内容。
Sub ClearSheet()Worksheets(“Sheet1”).Cells.ClearContents End Sub 引用多个单元格区域
使用适当的方法可以很容易地同时引用多个单元格区域。可用 Range 和 Union 方法引用任意组合的单元格区域；用 Areas 属性可引用工作表上选定的一组单元格区域。
使用 Range 属性
通过在两个或多个引用之间放置逗号，可使用 Range 属性来引用多个单元格区域。下例清除了 Sheet1 上三个单元格区域的内容。
Sub ClearRanges()Worksheets(“Sheet1”).Range(“C5:D9,G9:H16,B14:D18”)._ ClearContents End Sub 命名区域使得用 Range 属性处理多个单元格区域更为容易。下例可在三个命名区域处于同一工作表时运行。
Sub ClearNamed()Range(“MyRange, YourRange, HisRange”).ClearContents End Sub 使用 Union 方法
用 Union 方法可将多个单元格区域组合到一个 Range 对象中。下例创建了名为 myMultipleRange 的 Range 对象，并将其定义为单元格区域 A1:B2 和 C3:D4 的组合，然后将该组合区域的字体设置为加粗。
Sub MultipleRange()Dim r1, r2, myMultipleRange As Range Set r1 = Sheets(“Sheet1”).Range(“A1:B2”)Set r2 = Sheets(“Sheet1”).Range(“C3:D4”)Set myMultipleRange = Union(r1, r2)myMultipleRange.Font.Bold = True End Sub 使用 Areas 属性
可用 Areas 属性引用选定的单元格区域或多块选定区域中的区域集合。下述过程计算选定区域中的块数目，如果有多个块，就显示一则警告消息。Sub FindMultiple()If Selection.Areas.Count > 1 Then MsgBox “Cannot do this to a multiple selection.” End If End Sub 在VBA代码中引用Excel工作表中单元格区域的方式小结 2007年07月12日 星期四 上午 09:37 在VBA代码中引用Excel工作表中单元格区域的方式小结
分类:ExcelVBA>>ExcelVBA对象模型编程>>常用对象>>Range对象
在 使用ExcelVBA进行编程时，我们通常需要频繁地引用单元格区域，然后再使用相应的属性和方法对区域进行操作。所谓单元格区域，指的是单个的单元格、或者是由多个单元格组成的区域、或者是整行、整列等。下面，我们设定一些情形，以问答的形式对引用单元格区域的方式进行归纳。
问题一：在VBA代码中，如何引用当前工作表中的单个单元格(例如引用单元格C3)？
回答：可以使用下面列举的任一方式对当前工作表中的单元格(C3)进行引用。(1)Range(“C3”)(2)[C3](3)Cells(3, 3)(4)Cells(3, “C”)(5)Range(“C4”).Offset(-1)Range(“D3”).Offset(,-1)Range(“A1”).Offset(2, 2)(6)若C3为当前单元格，则可使用：ActiveCell(7)若将C3单元格命名为“Range1”，则可使用：Range(“Range1”)或[Range1](8)Cells(4, 3).Offset(-1)(9)Range(“A1”).Range(“C3”)
问题二：在VBA代码中，我要引用当前工作表中的B2:D6单元格区域，有哪些方式？
回答：可以使用下面列举的任一方式对当前工作表中单元格区域B2:D6进行引用。
(1)Range(“B2:D6”)(2)Range(“B2”, “D6”)(3)[B2:D6](4)Range(Range(“B2”), Range(“D6”))(5)Range(Cells(2, 2), Cells(6, 4))(6)若将B2:D6区域命名为“MyRange”，则又可以使用下面的语句引用该区域： ① Range(“MyRange”)② [MyRange]
(7)Range(“B2”).Resize(5, 3)(8)Range(“A1:C5”).Offset(1, 1)(9)若单元格B2为当前单元格，则可使用语句：Range(ActiveCell, ActiveCell.Offset(4, 2))(10)若单元格D6为当前单元格，则可使用语句：Range(“B2”, ActiveCell)
问题三：在VBA代码中，如何使用变量实现对当前工作表中不确定单元格区域的引用？
回答：有时，我们需要在代码中依次获取工作表中特定区域内的单元格，这通常可以采取下面的几种方式：(1)Range(“A” & i)
(2)Range(“A” & i & “:C” & i)(3)Cells(i,1)(4)Cells(i,j)其中，i、j为变量，在循环语句中指定i和j的范围后，依次获取相应单元格。
问题四：在VBA代码中，如何扩展引用当前工作表中的单元格区域？ 回答：可以使用Resize属性，例如：
(1)ActiveCell.Resize(4, 4)，表示自当前单元格开始创建一个4行4列的区域。
(2)Range(“B2”).Resize(2, 2)，表示创建B2:C3单元格区域。(3)Range(“B2”).Resize(2)，表示创建B2:B3单元格区域。(4)Range(“B2”).Resize(, 2)，表示创建B2:C2单元格区域。如果是在一个单元格区域(如B3:E6)，或一个命名区域中(如将单元格区域B3:E6命名为“MyRange”)使用Resize属性，则只是相对于单元格区域左上角单元格扩展区域，例如：
代码Range(“C3:E6”).Resize(, 2)，表示单元格区域C3：D6，并且扩展的单元格区域可不在原单元格区域内。
因此，可以知道Resize属性是相对于当前活动单元格或某单元格区域中左上角单元格按指定的行数或列数扩展单元格区域。
问题五：在VBA代码中，如何在当前工作表中基于当前单元格区域或指定单元格区域处理其它单元格区域？
回答：可以使用Offset属性，例如：
(1)Range(“A1”).Offset(2, 2)，表示单元格C3。
(2)ActiveCell.Offset(, 1)，表示当前单元格下一列的单元格。(3)ActiveCell.Offset(1)，表示当前单元格下一行的单元格。
(4)Range(“C3:D5”).Offset(, 1)，表示单元格区域D3:E5，即将整个区域偏移一列。
从上面的代码示例可知，Offset属性从所指定的单元格开始按指定的行数和列数偏移，从而到达目的单元格，但偏移的行数和列数不包括指定单元格本身。
问题六：在VBA代码中，如何在当前工作表中引用交叉区域？ 回答：可以使用Intersect方法，例如：
Intersect(Range(“C3:E6”), Range(“D5:F8”))，表示单元格区域D5:E6，即单元格区域C3:E6与D5:F8相重迭的区域。
问题七：在VBA代码中，如何在当前工作表中引用多个区域？ 回答：
(1)可以使用Union方法，例如：
Union(Range(“C3:D4”), Range(“E5:F6”))，表示单元格区域C3:D4和E5:F6所组成的区域。
Union方法可以将多个非连续区域连接起来成为一个区域，从而可以实现对多个非连续区域一起进行操作。(2)也可以使用下面的代码：
Range(“C3:D4, E5:F6”)或[C3:D4, E5:F6] 注意：Range(“C3:D4”, “F5:G6”)，表示单元格区域C3:G6，即将两个区域以第一个区域左上角单元格为起点，以第二个区域右下角单元格为终点连接成一个新区域。
同时，在引用区域后使用Rows属性和Columns属性时，注意下面代码的区别： ①Range(“C3:D4”, “F8:G10”).Rows.Count，返回的值为8；
②Range(“C3:D4,F8:G10”).Rows.Count，返回的值为2，即只计算第一个单元格区域。
问题八：在VBA代码中，如何引用当前工作表中活动单元格或指定单元格所在的区域(当前区域)？
回答：可以使用CurrentRegion属性，例如：
(1)ActiveCell.CurrentRegion，表示活动单元格所在的当前区域。(2)Range(“D5”).CurrentRegion，表示单元格D5所在的当前区域。当前区域是指周围由空行或空列所围成的区域。该属性的详细使用参见《CurrentRegion属性示例》一文。
问题九：在VBA代码中，如何引用当前工作表中已使用的区域？ 回答：可以使用UsedRange属性，例如：
(1)Activesheet.UsedRange，表示当前工作表中已使用的区域。
(2)Worksheets(“sheet1”).UsedRange，表示工作表sheet1中已使用的区域。与CurrentRegion属性不同的是，该属性代表工作表中已使用的单元格区域，包括显示为空行，但已进行过格式的单元格区域。该属性的详细使用参见《解析UsedRange属性》一文。
问题十：如何在单元格区域内指定特定的单元格？ 回答：可以使用Item属性，例如：
(1)Range(“A1:B10”).Item(5,3)指定单元格C5，这个单元格处于以区域中左上角单元格A1(即区域中第1行第1列的单元格)为起点的第5行第3列。因为Item属性为默认属性，因此也可以简写为：Range(“A1:B10”)(5,3)。
如果将A1:B10区域命名为”MyRange”，那么Range(“MyRange”)(5,3)也指定单元格C5。(2)Range(“A1:B10”)(12,13)指定单元格M12，即用这种方式引用单元格，该单元格不必一定要包含在区域内。
同时，也不需要索引数值是正值，例如： ① Range(“D4:F6”)(0,0)代表单元格C3； ② Range(“D4:F6”)(-1,-2)代表单元格A2。而Range(“D4:F6”)(1,1)代表单元格D4。(3)也可以在单元格区域中循环，例如：
Range(“D4:F6”)(2,2)(3,4)代表单元格H7，即该单元格位于作为左上角单元格E5的第3行第4列(因为E5是开始于区域中左上角单元格D4起的第2行第2列)。(4)也能使用一个单个的索引数值进行引用。计数方式为从左向右，即在区域中的第一行开始从左向右计数，第一行结束后，然后从第二行开始从左到右接着计数，依次 类推。(注：从区域中第一行第一个单元格开始计数，当第一行结束时，转入第二行最左边的单元格，这样按一行一行从左向右依次计数。以单元格区域中第1个单 元格开始，按上述规则依次为第2个单元格、第3个单元格„.等等)，例如：
Range(“A1:B2”)(1)代表单元格A1； Range(“A1:B2”)(2)代表单元格B1； Range(“A1:B2”)(3)代表单元格A2； Range(“A1:B2”)(4)代表单元格B2。
这种方法可在工作表中连续向下引用单元格(即不一定是在单元格区域内，但在遵循相同的规律)，例如：
Range(“A1:B2”)(5)代表单元格A3；
Range(“A1:B2”)(14)代表单元格B7，等等。也可以使用单个的负数索引值。
这种使用单个索引值的方法对遍历列是有用的，例如，Range(“D4”)(1)代表单元格D4，Range(“D4”)(2)代表单元格D5，Range(“D4”)(11)代表单元格D14，等等。
同理，稍作调整后也可遍历行，例如：
Range(“D4”).Columns(2)代表单元格E4，Range(“D4”).Columns(5)指定单元格H4，等等。
(5)当与对象变量配合使用时，Item属性能提供简洁并有效的代码，例如： Set rng = Worksheets(1).[a1] 定义了对象变量后，像单元格方法一样，Item属性允许使用两个索引数值引用工作表中的任一单元格，例如，rng(3,4)指定单元格D3。(By Chip Pearson)
问题十一：在VBA代码中，如何引用当前工作表中的整行或整列？ 回答：见下面的示例代码：
(1)Range(“C:C”).Select，表示选择C列。
Range(“C:E”).Select，表示选择C列至E列。(2)Range(“1:1”).Select，表示选择第一行。
Range(“1:3”).Select，表示选择第1行至第3行。(3)Range(“C:C”).EntireColumn，表示C列； Range(“D1”).EntireColumn，表示D列。同样的方式，也可以选择整行，然后可以使用如AutoFit方法对整列或整行进行调整。
问题十二：在VBA代码中，如何引用当前工作表中的所有单元格？ 回答：可以使用下面的代码：
(1)Cells，表示当前工作表中的所有单元格。
(2)Range(Cells(1, 1), Cells(Cells.Rows.Count, Cells.Columns.Count))，其中Cells.Rows表示工作表所有行，Cells.Columns表示工作表所有列。
问题十三：在VBA代码中，如何引用工作表中的特定单元格区域？
回答：在工作表中，您可能使用过“定位条件”对话框。可以通过选择菜单“编辑——定位”，单击“定位”对话框中的“定位条件”按钮显示该对话框。这个对话框可以允许用户选择特定的单元格。例如：(1)Worksheets(“sheet1”).Cells.SpecialCells(xlCellTypeAllFormatConditions)，表示工作表sheet1中由带有条件格式的单元格所组成的区域。
(2)ActiveCell.CurrentRegion.SpecialCells(xlCellTypeBlanks)，表示当前工作表中活动单元格所在区域中所有空白单元格所组成的区域。
当然，还有很多常量和值的组合，可以让您实现特定单元格的查找并引用。参见《探讨在工作表中找到最后一行》一文。
问题十四：在VBA代码中，如何引用其它工作表或其它工作簿中的单元格区域？ 回答：要引用其它工作表或其它工作簿中的单元格区域，只需在单元格对象前加上相应的引用对象即可，例如：(1)Worksheets(“Sheet3”).Range(“C3:D5”)，表示引用工作表sheet3中的单元格区域C3:D5。(2)Workbooks(“MyBook.xls”).Worksheets(“sheet1”).Range(“B2”)，表示引用MyBook工作簿中工作表Sheet1上的单元格B2。
问题十五：还有其它的一些情形吗？ 回答：列举如下：
(1)Cells(15)，表示单元格O1，即可在Cells属性中指定单元格数字来选择单元格，其计数顺序为自左至右、从上到下，又如Cells(257)，表示单元格B1。(2)Cells(, 256)，表示单元格IV1，但是如果Cells(, 257)，则会返回错误。
结语
我们用VBA对Excel进行处理，一般是对其工作表中的数据进行处理，因此，引用单元格区域是ExcelVBA编程中最基本的操作之一，只有确定了所处理的单元格区域，才能使用相应的属性和方法进行下一步的操作。上面列举了一些引用单元格区域的情形和方式，可以看出，引用单元格区域有很多方式，有一些可能不常用，可以根据工作表的所处的环境和个人编程习惯进行选择使用。
当然，在编写程序时，也可能会将上面的一些属性联合使用，以达到选取特定操作对象的目的，例如Offset属性、Resize属性、CurrentRegion属性、UsedRange属性等的组合。MsgBox 函数
作用：在对话框中显示消息，等待用户单击按钮，并返回一个 Integer 告诉用户单击哪一个按钮。语法：
MsgBox(prompt[, buttons] [, title] [, helpfile, context])参数说明：
MsgBox 函数的语法具有以下几个命名参数：
Prompt-------必需的。字符串表达式，作为显示在对话框中的消息。prompt 的最大长度大约为 1024 个字符，由所用字符的宽度决定。如果 prompt 的内容超过一行，则可以在每一行之间用回车符(Chr(13))、换行符(Chr(10))或是回车与换行符的组合(Chr(13)& Chr(10))将各行分隔开来。
Buttons-------可选的。数值表达式是值的总和，指定显示按钮的数目及形式，使用的图标样式，缺省按钮是什么以及消息框的强制回应等。如果省略，则 buttons 的缺省值为 0。Title-------可选的。在对话框标题栏中显示的字符串表达式。如果省略 title，则将应用程序名放在标题栏中。
Helpfile--------可选的。字符串表达式，识别用来向对话框提供上下文相关帮助的帮助文件。如果提供了 helpfile，则也必须提供 context。
Context-------可选的。数值表达式，由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。如果提供了 context，则也必须提供 helpfile。
用于MsgBox函数中Button参数的常量 常量 值 说明 vbOKOnly 0 只显示“确定”按钮
VbOKCancel 1 显示“确定”和“取消”按钮
VbAbortRetryIgnore 2 显示“终止”、“重试”和“忽略” 按钮 VbYesNoCancel 3 显示“是”、“否”和“取消”按钮 VbYesNo 4 显示“是”和“否”按钮 VbRetryCancel 5 显示“重试”和“取消”按钮 VbCritical 16 显示“关键信息”图标 VbQuestion 32 显示“警告询问”图标 VbExclamation 48 显示“警告消息”图标 VbInformation 64 显示“通知消息”图标
vbDefaultButton1 0 第一个按钮是缺省值(缺省设置)vbDefaultButton2 256第二个按钮是缺省值 vbDefaultButton3 512第三个按钮是缺省值 vbDefaultButton4 768第四个按钮是缺省值
vbApplicationModal 0应用程序强制返回；应用程序一直被挂起，直到用户对消息框 作出响应才继续工作
vbSystemModal 4096系统强制返回；全部应用程序都被挂起，直到用户对消息框作 出响应才继续工作
vbMsgBoxHelpButton 16384将Help按钮添加到消息框 VbMsgBoxSetForeground 65536指定消息框窗口作为前景窗口 vbMsgBoxRight 524288文本为右对齐
vbMsgBoxRtlReading 1048576指定文本应为在希伯来和阿拉伯语系统中的从右到左显示 说明：
(1)第一组值(0–5)描述了消息框中显示的按钮的类型与数目；第二组值(16,32,48,64)描述了图标的样式；第三组值(0,256,512,768)说明哪一个按钮是缺省值；而第四组值(0,4096)则决定消息框的强制返回性。将这些数字相加以生成Buttons参数值的时候，只能由每组值取用一个数字。(2)这些常数都是 Visual Basic for Applications(VBA)指定的。结果，可以在程序代码中到处使用这些常数名称，而不必使用实际数值。实际数值与常数名称是等价的。返回值
用于MsgBox函数返回值的常量 常数 值 说明 vbOK 1 确定 vbCancel 2 取消 vbAbort 3 终止 vbRetry 4 重试 vbIgnore 5 忽略 vbYes 6 是 vbNo 7 否
(1)如果同时提供了Helpfile与Context参数，可以按F1键来查看与Context相应的帮助主题，Excel通常会在输入框中自动添加一个帮助(Help)按钮。
(2)若在消息框中显示“取消”按钮，则按下ESC键与单击“取消”按钮效果相同。若消息框中有“帮助”按钮，则提供相关的帮助信息。
(3)如果要输入多个参数并省略中间的某些参数，则必须在相应位置加入逗号分界符。示例
(1)(1)使用 MsgBox 函数，在具有“是”及“否”按钮的对话框中显示一条严重错误信息。示例中的缺省按钮为“否”，MsgBox函数的返回值视用户按哪一个钮而定。并假设DEMO.HLP为一帮助文件，其中有一个帮助主题代码为1000。
Dim Msg,Style,Title,Help,Ctxt,Response,MyString Msg=“Do you want to continue ?” ’定义消息文本
Style = vbYesNo + vbCritical + vbDefaultButton2 ' 定义按钮 Title = “MsgBox Demonstration” ' 定义标题文本 Help = “DEMO.HLP” ' 定义帮助文件 Ctxt = 1000 ' 定义帮助主题
Response = MsgBox(Msg, Style, Title, Help, Ctxt)If Response = vbYes Then ' 用户按下“是” MyString = “Yes” ' 完成某操作 Else ' 用户按下“否”
MyString = “No” ' 完成某操作 End If(2)只显示某消息 MsgBox “Hello!”
(3)将消息框返回的结果赋值给变量 Ans=MsgBox(“Continue?”,vbYesNo)
If MsgBox(“Continue?”,vbYesNo)<>vbYes Then Exit Sub(4)使用常量的组合，赋值组Config变量，并设置第二个按钮为缺省按钮 Config=vbYesNo+vbQuestion+vbDefaultButton2(5)若要在消息中强制换行，可在文本中使用vbCrLf(或vbNewLine)常量，用&加空格与字符隔开。如
MsgBox “This is the first line.” & vbNewLine & “Second line.”
(6)可以在消息框中使用vbTab常量插入一个制表符。下面的过程使用一个消息框来显示5×5单元格区域中的所有值，用vbTab常量分隔列并使用vbCrLf常量插入一个新行。注意在MsgBox函数最多只显示1024个字符，因此限制了可显示的单元格数。Option Explicit Sub ShowRangeValue()Dim Msg As String Dim r As Integer, c As Integer Msg = “" For r = 1 To 5 For c = 1 To 5 Msg = Msg & Cells(r, c)& vbTab Next c Msg = Msg & vbCrLf Next r MsgBox Msg End Sub(7)在消息框语句中运用工作表函数以及设置显示的数置格式，如下面语句所示：
MsgBox ” selection has “ & m & ” cells.“ & Chr(13)& ” the sum is :“ & Application.WorksheetFunction.Sum(Selection)& Chr(13)& ”the average is :“ & Format(Application.WorksheetFunction.Average(Selection), ”#,##0.00“), vbInformation, ”selection count & sum & average" & Chr(13)
第四篇：AT24C512中数据的文件系统化管理论文
摘要：为方便单片机对AT24C512中的数据进行系统化管理，在介绍AT24C512基本结构和工作原理的基础上，按照PC机文件管理的思想实现AT24C512的文件系统，提高数据管理的效率。
关键词：AT24C512 单片机 文件系统 数据管理
在由单片机构成的数据采集系统及智能仪器仪表当中，往往有大量数据要保存。随着测控系统数字化的发展，人们对数据存储提出了更高的要求，因而用于存储数据的存储器容量也越来越大。但是，在增大数据存储量的同时，人们也希望能更便捷高效地操作其中的数据（包括浏览、添加和删除等），即像PC机上管理数据一样简单易行。然而，单片机以及用于保存数据的芯片本身并没有提供这种功能，为此，需要开发一种用于管理单片机数据的有效方法。本文在吸取PC机文件管理思想的基础上，以AT24C512为例，构造了一种类似于文件系统的用于管理单片机数据的方法，大大提高了数据操作的效率。AT24C512介绍
AT24C512是Atmel公司生产的64KB串行电可擦的可编程存储器，内部有512页，每一页为128字节，任一单元的地址为16位，地址范围为0000～0FFFFH。它采用8引脚封装，具有结构紧凑、存储容量大等特点，可以在2线总线上并接4片芯片，特别适用于具有大容量数据存储要求的数据采集系统，因此在测控系统中被大量采用。
AT24C512的封装如图1所示，各引脚的功能如下：
①A0、A1——地址选择输入端。在串行总线结构中，如需连接4个AT24C512芯片，则可用A0、A1来区分各芯片。A0、A1悬空时为0。
②SDA——双向串行数据输入输出口。用于存储器与单片机之间的数据交换。
③SCL——串行时钟输入。通常在其上升沿将SDA上的数据写入存储器，而在下降沿从存储器读出数据并送往SDA。
④WP——写保护输入。此引脚与地相连时，允许写操作；与VCC相连时，所有的写存储器操作被禁止。如果不连，该脚将在芯片内部下拉到地。
⑤VCC——电源。
GND接地。NC悬空。
（1）与单片机接口
由于AT24C512沿袭了AT24C系列的接口特性，因此与单片机的连接也可沿袭传统方法。一般A0、A1、WP接VCC或GND，SCL、SDA接地单片机的P1口，即可实现单片机对AT24C512的操作。
（2）设备选址
在对AT24C512开始操作前，需要先发一个8位的地址字来选择芯片以进行读写。设备地址字格式如图2所示。其中“10100”为固定的5位二进制；A0、A1用于对多个AT24C512加以区分；R/W为读写操作位，为1时表示读操作，为0时表示写操作。
（3）写操作
AT24C512的写操作有写字节和写页两种方式。写字节时通常在向AT24C512发送设备地址字并接到应答信号后，还需要发送2个8位地址来选择要写数据的地址。AT24C512接收到这个地址后会应答一个零信号，然后接收8位数据进来，并再返回一个零应答信号。
在写页方式时，AT24C512可以一次性写入一页128字节。其初始化过程与写字节的方法基本相同。不同的是：当写入一个数据字节后，单片机不发停止状态，而是在应答信号后接着输入127个字节；每一个字节接收完毕后，AT24C512则照样输出一个零应答信号。
（4）读操作
读操作有当前地址读、随机读、读串三种方式。其初始化过程基本与写操作相同，只是在设备选择字中的最低位要改成读而已。在当前地址读操作方式时，内部数据的地址将保持在最后的读写操作地址加1上，直到读到最后字节后又回到最开始的位置。而随机读操作之前先要向AT24C512写入一个字节地址，然后才能读。读串操作既可以是当前地址读，也可以是随机地址读。当单片机接收到一个数据字后，会回应一个应答信号。AT24C512在接收到应答信号后会将地址加1，接着输出下一个字节。当单片机接收到数据但不送应答信号时，读过程结束。文件系统构成为了有效地管理AT24C512中的数据，笔者仿效PC机中的文件管理机制，为AT24C512构造了一个简单的文件系统。考虑到测控系统的实时性要求和硬件资源的有限性，采用了二级树形目录组织。
为了管理数据方便，把AT24C512的物理空间划分为1024个逻辑页，每页64字节。按照文件系统的需要，把AT24C512的全部空间划分为三部分：数据区，占用最后的960页；页面分配区，占用中间的30页；目录区，占用前面的24页。
（1）数据区
AT24C512最后面的960页作为数据区，其序号从0开始编号。该区作为文件数据的存储区域，在存放文件数据时，从该区内分配若干页，每次存储一页。
（2）页面分配区
页面分配区记录了数据区每一页的分配情况。该区中每2字节组成一个记录项，共有960个记录项（30×64/2）。记录项从0开始编号，每一个记录项对应着数据区相应页的使用情况。
在实际应用中，一个文件的数据往往大于64字节，这样一个文件的数据区中需占用多个页。但随着文件的增删，数据区的空闲空间出现不连续的状况，因而数据区的分配并不能保证连续，而是根据当前数据区的使用情况来决定某一部分文件内容应该放在哪一页上。为了把这些分散的数据有机连接起来，把记录项按照链表的形式组织起来，每个文件对应着一个链表，链表中每个结点为一个记录项，记录项的内容为下一个记录项的编号，最后一个记录项的内容为0FFFFH，表示链表结束。把这些记录项对应的页面连接起来就构成了一个文件的完整数据。
另外，如果记录项的内容为0EEEEH，表示其对应的数据页未分配。
（3）目录区
目录区用来存储文件的主要信息。根据这些信息可以知道文件名、文件生成的日期以及文件的数据在数据区中的存储首地址。文件目录项的结构如下：
①文件名。文件名由4字节双BCD码构成，在生成该文件时由键盘输入数字（硬件上键盘只提供了数字键）作为文件名，并由程序自动把它们转换成双BCD码。在需要显示时，再把它们分解成8字节单BCD码供显示。
②文件生成日期。占用4字节，按照双BCD码的格式存储，如20H、04H，03H、20H则表示2004年3月20日。日期可由键盘输入或通过时钟芯片获取。
③文件首地址。指示在给该文件分配空间进，分配给它的第一个数据页的序号，即它对应的链表的第一个记录项的编号。
目录区共占用24页。由于每个文件信息只占用10字节，则在此文件系统中，最多可存储153（24×64/10）个文件。目录区、页面分配区和数据区的逻辑关系如图3所示。
以图3为例，说明该文件系统如何获取文件数据：
①在目录区中根据文件名找到包含该文件名的目录项，从而获取该文件的属性及其首地址。如文件“00000103”的日期为2003年11月24日，其首地址为0005H。
②根据文件的首地址，在页面分配区中找到该记录项0005H。在该记录项中存储的值为0007H，可知该文件的下一记录项为0007H。
③同理，可得到文件的后续记录项为0008H、0009H、000BH，直到从000BH记录项中读到0FFFFH。此时表示这是最后一项，不需再继续找后继项了。
④至此，可知文件“00000103”的数据分为5部分存储在数据区中，分别存储在0005H、0007H、0008H、0009H、000BH页中。只要按序
到数据中读取这些中的数据，并连接起来，就形成了该文件的全部数据。
⑤同理，文件“00000001”在数据区中使用了0002H和0003H两页，文件“00015671”只使用了数据区第000AH页。系统程序设计
按照上述的文件系统结构，系统可通过目录区和页面分配区对AT24C512的全部数据实时文件化管理。在管理过程中，最主要的操作是添加文件和删除文件。
（1）添加文件
添加文件的主要工作是为新文件寻找存储空间，其寻找步骤如下：
①在目录区中寻找空位置。若目录区已经存满（最多存153个文件），则向用户报告并中止程序；否则，记录该位置（记为MyFile）。
②计算文件数据需占用的页面数，记为My Page。
③在页面分配区中寻找并统计标志为空的记录项，其内容为0EEEEH。若其数目小于MyPage，则向用户报告，并中止程序。
④在MyFileA位置填写文件名和日期，并把找到的第一个空记录项的序号填入，作为该文件的首地址。
⑤依次在找到的空记录项内填入下一空记录项的序号，最后一个空记录项填入0FFFFH。
⑥从文件首地址开始，按照文件链表依次把数据写入数据区相应的页。
（2）删除文件
删除文件的主要工作是回收该文件所占用的空间，以便将来分配给其它文件。
①在目录区中寻找到该文件，提取出其首地址，记录First。随后，把该文件所占用的目录区的首字节清为0FFH，表示该目录项空闲。
②在页面分配区中找到First记录项，撮出其内容，记为Next。随后，把First记录项的内容改写为0EEEEH。
③First=Next，重复②，直至Next=0FFFFH。
由添加文件可以看出，在搜索空间时，只对目录区和页面分配区操作，因此，删除文件时，只需要释放目录和页面分配区即可，而不需要修改数据区。这大大提高了删除的效率。
（3）系统格式化
系统格式化的目的是把AT24C512按照前面所述的格式进行初始化，以正确反映目前的使用状况。格式化的主要工作包括：
①把目录区全部写为0FFH，以清空目录区中所有数据；
②把页面分配区的所有记录项写为0EEEEH，标志它们全部未使用。
注：文件系统程序源代码见网站：www.xiexiebang.com。性能比较
在大多数系统中，AT24C512中的数据存储都是要用顺序存储法：每次存储数据时都是按照先后顺序依次写入数据空间。本文所述方法与顺序存储法相比，具有下列优点：
①存储时操作简单。在顺序存储中，寻找空闲空间需要逐次读出已经存储的数据，直到找到空闲空间为止，数据操作量大。本文所述方法只需要读取目录区和页面分配区即可，搜索空闲空间的效率高。
②删除数据简单。在顺序存储中，为了定位到需要删除的数据，必须逐次读出存储的数据，直到找到需要删除物数据，再把该空闲改写为未用状态。本文所述方法只需要修改目录区和页面分配区即可，不仅定位数据快，而且修改的工作量很小。
③实现了数据空间的回收。顺序存储法中，在删除的某次数据后，该数据所占用的空间可能无法回收使用。因为回收的空间会形成碎片：该空间前后都存储有数据，但该空间的长度无法满足一个更大长度的数据。本文所述方法利用链表分配存储空间，允许一个文件的数据非连续在座，回收的空间可以自由使用。
④通过读取目录区，用户可以大致知道该文件中存储的是什么数据，而顺序存储法却无法提供这些信息。结论
为了实现实时测控系统数据的高效管理，按照PC机文件系统的思想，对测控系统中的AT24C512设计了一个简单的文件系统，包括系统格式化、添加文件、删除文件等功能，在大数据量的测控系统中得到了成功应用。该文件系统稍加修改就可应用于不同容量的存储芯片，具有广泛的应用价值。
第五篇：在VBA代码中引用Excel工作表中单元格区域的方式小结
在VBA代码中引用Excel工作表中单元格区域的方式小结
问题一：在VBA代码中，如何引用当前工作表中的单个单元格(例如引用单元格C3)？ 回答：可以使用下面列举的任一方式对当前工作表中的单元格(C3)进行引用。(1)Range(“C3”)(2)[C3](3)Cells(3, 3)(4)Cells(3, “C”)(5)Range(“C4”).Offset(-1)Range(“D3”).Offset(,-1)Range(“A1”).Offset(2, 2)(6)若C3为当前单元格，则可使用：ActiveCell(7)若将C3单元格命名为“Range1”，则可使用：Range(“Range1”)或[Range1](8)Cells(4, 3).Offset(-1)(9)Range(“A1”).Range(“C3”)问题二：在VBA代码中，我要引用当前工作表中的B2:D6单元格区域，有哪些方式？ 回答：可以使用下面列举的任一方式对当前工作表中单元格区域B2:D6进行引用。(1)Range(“B2:D6”)(2)Range(“B2”, “D6”)(3)[B2:D6](4)Range(Range(“B2”), Range(“D6”))(5)Range(Cells(2, 2), Cells(6, 4))(6)若将B2:D6区域命名为“MyRange”，则又可以使用下面的语句引用该区域： ① Range(“MyRange”)② [MyRange](7)Range(“B2”).Resize(5, 3)(8)Range(“A1:C5”).Offset(1, 1)(9)若单元格B2为当前单元格，则可使用语句：Range(ActiveCell, ActiveCell.Offset(4, 2))(10)若单元格D6为当前单元格，则可使用语句：Range(“B2”, ActiveCell)问题三：在VBA代码中，如何使用变量实现对当前工作表中不确定单元格区域的引用？ 回答：有时，我们需要在代码中依次获取工作表中特定区域内的单元格，这通常可以采取下面的几种方式：(1)Range(“A”& i)(2)Range(“A”& i &“:C”& i)(3)Cells(i,1)(4)Cells(i,j)其中，i、j为变量，在循环语句中指定i和j的范围后，依次获取相应单元格。问题四：在VBA代码中，如何扩展引用当前工作表中的单元格区域？ 回答：可以使用Resize属性，例如：
(1)ActiveCell.Resize(4, 4)，表示自当前单元格开始创建一个4行4列的区域。(2)Range(“B2”).Resize(2, 2)，表示创建B2:C3单元格区域。(3)Range(“B2”).Resize(2)，表示创建B2:B3单元格区域。(4)Range(“B2”).Resize(, 2)，表示创建B2:C2单元格区域。
如果是在一个单元格区域(如B3:E6)，或一个命名区域中(如将单元格区域B3:E6命名为“MyRange”)使用Resize属性，则只是相对于单元格区域左上角单元格扩展区域，例如： 代码Range(“C3:E6”).Resize(, 2)，表示单元格区域C3：D6，并且扩展的单元格区域可不在原单元格区域内。因此，可以知道Resize属性是相对于当前活动单元格或某单元格区域中左上角单元格按指定的行数或列数扩展单元格区域。
问题五：在VBA代码中，如何在当前工作表中基于当前单元格区域或指定单元格区域处理其它单元格区域？
回答：可以使用Offset属性，例如：
(1)Range(“A1”).Offset(2, 2)，表示单元格C3。
(2)ActiveCell.Offset(, 1)，表示当前单元格下一列的单元格。(3)ActiveCell.Offset(1)，表示当前单元格下一行的单元格。
(4)Range(“C3:D5”).Offset(, 1)，表示单元格区域D3:E5，即将整个区域偏移一列。
从上面的代码示例可知，Offset属性从所指定的单元格开始按指定的行数和列数偏移，从而到达目的单元格，但偏移的行数和列数不包括指定单元格本身。问题六：在VBA代码中，如何在当前工作表中引用交叉区域？ 回答：可以使用Intersect方法，例如：
Intersect(Range(“C3:E6”), Range(“D5:F8”))，表示单元格区域D5:E6，即单元格区域C3:E6与D5:F8相重迭的区域。
问题七：在VBA代码中，如何在当前工作表中引用多个区域？ 回答：
(1)可以使用Union方法，例如：
Union(Range(“C3:D4”), Range(“E5:F6”))，表示单元格区域C3:D4和E5:F6所组成的区域。Union方法可以将多个非连续区域连接起来成为一个区域，从而可以实现对多个非连续区域一起进行操作。
(2)也可以使用下面的代码：
Range(“C3:D4, E5:F6”)或[C3:D4, E5:F6] 注意：Range(“C3:D4”, “F5:G6”)，表示单元格区域C3:G6，即将两个区域以第一个区域左上角单元格为起点，以第二个区域右下角单元格为终点连接成一个新区域。
同时，在引用区域后使用Rows属性和Columns属性时，注意下面代码的区别： ①Range(“C3:D4”, “F8:G10”).Rows.Count，返回的值为8；
②Range(“C3:D4,F8:G10”).Rows.Count，返回的值为2，即只计算第一个单元格区域。
问题八：在VBA代码中，如何引用当前工作表中活动单元格或指定单元格所在的区域(当前区域)？
回答：可以使用CurrentRegion属性，例如：
(1)ActiveCell.CurrentRegion，表示活动单元格所在的当前区域。(2)Range(“D5”).CurrentRegion，表示单元格D5所在的当前区域。
当前区域是指周围由空行或空列所围成的区域。该属性的详细使用参见《CurrentRegion属性示例》一文。
问题九：在VBA代码中，如何引用当前工作表中已使用的区域？ 回答：可以使用UsedRange属性，例如：
(1)Activesheet.UsedRange，表示当前工作表中已使用的区域。(2)Worksheets(“sheet1”).UsedRange，表示工作表sheet1中已使用的区域。
与CurrentRegion属性不同的是，该属性代表工作表中已使用的单元格区域，包括显示为空行，但已进行过格式的单元格区域。该属性的详细使用参见《解析UsedRange属性》一文。问题十：如何在单元格区域内指定特定的单元格？ 回答：可以使用Item属性，例如：(1)Range(“A1:B10”).Item(5,3)指定单元格C5，这个单元格处于以区域中左上角单元格A1(即区域中第1行第1列的单元格)为起点的第5行第3列。因为Item属性为默认属性，因此也可以简写为：Range(“A1:B10”)(5,3)。
如果将A1:B10区域命名为”MyRange”，那么Range(“MyRange”)(5,3)也指定单元格C5。(2)Range(“A1:B10”)(12,13)指定单元格M12，即用这种方式引用单元格，该单元格不必一定要包含在区域内。
同时，也不需要索引数值是正值，例如： ① Range(“D4:F6”)(0,0)代表单元格C3； ② Range(“D4:F6”)(-1,-2)代表单元格A2。而Range(“D4:F6”)(1,1)代表单元格D4。(3)也可以在单元格区域中循环，例如：
Range(“D4:F6”)(2,2)(3,4)代表单元格H7，即该单元格位于作为左上角单元格E5的第3行第4列(因为E5是开始于区域中左上角单元格D4起的第2行第2列)。
(4)也能使用一个单个的索引数值进行引用。计数方式为从左向右，即在区域中的第一行开始从左向右计数，第一行结束后，然后从第二行开始从左到右接着计数，依次
类推。(注：从区域中第一行第一个单元格开始计数，当第一行结束时，转入第二行最左边的单元格，这样按一行一行从左向右依次计数。以单元格区域中第1个单 元格开始，按上述规则依次为第2个单元格、第3个单元格„.等等)，例如： Range(“A1:B2”)(1)代表单元格A1； Range(“A1:B2”)(2)代表单元格B1； Range(“A1:B2”)(3)代表单元格A2； Range(“A1:B2”)(4)代表单元格B2。
这种方法可在工作表中连续向下引用单元格(即不一定是在单元格区域内，但在遵循相同的规律)，例如：
Range(“A1:B2”)(5)代表单元格A3；
Range(“A1:B2”)(14)代表单元格B7，等等。也可以使用单个的负数索引值。
这种使用单个索引值的方法对遍历列是有用的，例如，Range(“D4”)(1)代表单元格D4，Range(“D4”)(2)代表单元格D5，Range(“D4”)(11)代表单元格D14，等等。同理，稍作调整后也可遍历行，例如：
Range(“D4”).Columns(2)代表单元格E4，Range(“D4”).Columns(5)指定单元格H4，等等。(5)当与对象变量配合使用时，Item属性能提供简洁并有效的代码，例如： Set rng = Worksheets(1).[a1] 定义了对象变量后，像单元格方法一样，Item属性允许使用两个索引数值引用工作表中的任一单元格，例如，rng(3,4)指定单元格D3。(By Chip Pearson)问题十一：在VBA代码中，如何引用当前工作表中的整行或整列？ 回答：见下面的示例代码：
(1)Range(“C:C”).Select，表示选择C列。Range(“C:E”).Select，表示选择C列至E列。(2)Range(“1:1”).Select，表示选择第一行。
Range(“1:3”).Select，表示选择第1行至第3行。(3)Range(“C:C”).EntireColumn，表示C列；
Range(“D1”).EntireColumn，表示D列。
同样的方式，也可以选择整行，然后可以使用如AutoFit方法对整列或整行进行调整。问题十二：在VBA代码中，如何引用当前工作表中的所有单元格？ 回答：可以使用下面的代码：
(1)Cells，表示当前工作表中的所有单元格。(2)Range(Cells(1, 1), Cells(Cells.Rows.Count, Cells.Columns.Count))，其中Cells.Rows表示工作表所有行，Cells.Columns表示工作表所有列。问题十三：在VBA代码中，如何引用工作表中的特定单元格区域？ 回答：在工作表中，您可能使用过“定位条件”对话框。可以通过选择菜单“编辑——定位”，单击“定位”对话框中的“定位条件”按钮显示该对话框。这个对话框可以允许用户选择特定的单元格。例如：(1)Worksheets(“sheet1”).Cells.SpecialCells(xlCellTypeAllFormatConditions)，表示工作表sheet1中由带有条件格式的单元格所组成的区域。(2)ActiveCell.CurrentRegion.SpecialCells(xlCellTypeBlanks)，表示当前工作表中活动单元格所在区域中所有空白单元格所组成的区域。
当然，还有很多常量和值的组合，可以让您实现特定单元格的查找并引用。参见《探讨在工作表中找到最后一行》一文。
问题十四：在VBA代码中，如何引用其它工作表或其它工作簿中的单元格区域？ 回答：要引用其它工作表或其它工作簿中的单元格区域，只需在单元格对象前加上相应的引用对象即可，例如：(1)Worksheets(“Sheet3”).Range(“C3:D5”)，表示引用工作表sheet3中的单元格区域C3:D5。(2)Workbooks(“MyBook.xls”).Worksheets(“sheet1”).Range(“B2”)，表示引用MyBook工作簿中工作表Sheet1上的单元格B2。问题十五：还有其它的一些情形吗？ 回答：列举如下：(1)Cells(15)，表示单元格O1，即可在Cells属性中指定单元格数字来选择单元格，其计数顺序为自左至右、从上到下，又如Cells(257)，表示单元格B1。
(2)Cells(, 256)，表示单元格IV1，但是如果Cells(, 257)，则会返回错误。结语
我们用VBA对Excel进行处理，一般是对其工作表中的数据进行处理，因此，引用单元格区域是ExcelVBA编程中最基本的操作之一，只有确定了所处理的单元格区域，才能使用相应的属性和方法进行下一步的操作。
上面列举了一些引用单元格区域的情形和方式，可以看出，引用单元格区域有很多方式，有一些可能不常用，可以根据工作表的所处的环境和个人编程习惯进行选择使用。当然，在编写程序时，也可能会将上面的一些属性联合使用，以达到选取特定操作对象的目的，例如Offset属性、Resize属性、CurrentRegion属性、UsedRange属性等的组合。
如何选择当前工作表中的单元格？
例如，可以使用下面的代码选择当前工作表中的单元格D5： ActiveSheet.Cells(5, 4).Select 或：ActiveSheet.Range(“D5”).Select 如何选择同一工作簿中其它工作表上的单元格？
例如，要选择同一工作簿中另一工作表上的单元格E6，可以使用下面的代码： Application.Goto ActiveWorkbook.Sheets(“Sheet2”).Cells(6, 5)或：Application.Goto(ActiveWorkbook.Sheets(“Sheet2”).Range(“E6”))也可以先激活该工作表，然后再选择： Sheets(“Sheet2”).Activate ActiveSheet.Cells(6, 5).Select 如何选择不同工作簿中的单元格？
例如，要选择另一工作簿中的一个工作表上的单元格F7，可以使用下面的代码： Application.Goto Workbooks(“BOOK2.XLS”).Sheets(“Sheet1”).Cells(7, 6)或：Application.Goto Workbooks(“BOOK2.XLS”).Sheets(“Sheet1”).Range(“F7”)也可以先激活该工作簿中的工作表，然后再选择： Workbooks(“BOOK2.XLS”).Sheets(“Sheet1”).Activate ActiveSheet.Cells(7, 6).Select 如何选择当前工作表中的单元格区域？
例如，要选择当前工作表中的单元格区域C2:D10，可以使用下面的代码： ActiveSheet.Range(Cells(2, 3), Cells(10, 4)).Select 或：ActiveSheet.Range(“C2:D10”).Select 或：ActiveSheet.Range(“C2”, “D10”).Select 如何选择同一工作簿中另一工作表上的单元格区域？
例如，要选择同一工作簿中另一工作表上的单元格区域D3：E11，可以使用下面的代码： Application.Goto ActiveWorkbook.Sheets(“Sheet3”).Range(“D3:E11”)或：Application.Goto ActiveWorkbook.Sheets(“Sheet3”).Range(“D3”, “E11”)也可以先激活该工作表，然后再选择： Sheets(“Sheet3”).Activate ActiveSheet.Range(Cells(3, 4), Cells(11, 5)).Select 如何选择不同工作簿中工作表上的单元格区域？
例如，要选择另一工作簿中某工作表上的单元格区域E4:F12，可以使用下面的代码： Application.Goto Workbooks(“BOOK2.XLS”).Sheets(“Sheet1”).Range(“E4:F12”)或：Application.Goto Workbooks(“BOOK2.XLS”).Sheets(“Sheet1”).Range(“E4”, “F12”)也可以先激活该工作表，然后再选择：
Workbooks(“BOOK2.XLS”).Sheets(“Sheet1”).Activate ActiveSheet.Range(Cells(4, 5), Cells(12, 6)).Select 如何在当前工作表中选择命名区域？
例如，要选择当前工作表中名为“Test”的区域，可以使用下面的代码： Range(“Test”).Select 或：Application.Goto “Test” 如何选择同一工作簿中另一工作表上的命名区域？
例如，选择同一工作簿中另一工作表上名为“Test”的区域，可使用下面的代码： Application.Goto Sheets(“Sheet1”).Range(“Test”)也可以先激活工作表，再选择： Sheets(“Sheet1”).Activate Range(“Test”).Select 如何选择不同工作簿中工作表上的命名区域？
例如，要选择不同工作簿中工作表上名为“Test”的区域，可使用下面的代码： Application.Goto Workbooks(“BOOK2.XLS”).Sheets(“Sheet2”).Range(“Test”)也可以先激活工作表，再选择：
Workbooks(“BOOK2.XLS”).Sheets(“Sheet2”).Activate Range(“Test”).Select 如何选择与当前单元格相关的单元格？
例如，要选择距当前单元格下面5行左侧4列的单元格，可以使用下面的代码： ActiveCell.Offset(5,-4).Select 要选择距当前单元格上方2行右侧3列的单元格，可以使用下面的代码： ActiveCell.Offset(-2, 3).Select 注意：一定要保证当前单元格与所选单元格之间的距离在工作表范围内，否则会出错。如何选择与另一单元格(不是当前单元格)相关的单元格？
例如，要选择距单元格C7下方5行右侧4列的单元格，可以使用下面的代码： ActiveSheet.Cells(7, 3).Offset(5, 4).Select 或：ActiveSheet.Range(“C7”).Offset(5, 4).Select 如何选择偏离指定区域的一个单元格区域？
例如，要选择与名为“Test”的区域大小相同但在该区域下方4行右侧3列的一个区域，可以使用下面的代码：
ActiveSheet.Range(“Test”).Offset(4, 3).Select 如果该命名区域不在当前工作表中，可以先激活该工作表，然后再选择，如下面的代码： Sheets(“Sheet3”).Activate ActiveSheet.Range(“Test”).Offset(4, 3).Select 如何选择一个指定的区域并扩展区域的大小？
例如，要选择当前工作表中名为“Database”区域，然后将该区域向下扩展5行，可以使用下面的代码：
Range(“Database”).Select Selection.Resize(Selection.Rows.Count + 5, Selection.Columns.Count).Select 如何选择一个指定的区域，再偏离，然后扩展区域的大小？
例如，选择名为“Database”区域下方4行右侧3列的一个区域，然后扩展2行和1列，可以使用下面的代码： Range(“Database”).Select Selection.Offset(4, 3).Resize(Selection.Rows.Count + 2, Selection.Columns.Count + 1).Select 如何选择两个或多个指定区域？
例如，为了同时选择名为“Test”和“Sample”的两个区域，可以使用下面的代码： Application.Union(Range(“Test”), Range(“Sample”)).Select 注意，这两个区域须在同一工作表中，如下面的代码：
Set y = Application.Union(Range(“Sheet1!A1:B2”), Range(“Sheet1!C3:D4”))但Union方法不能处理不同工作表中的区域，可下面的代码：
Set y = Application.Union(Range(“Sheet1!A1:B2”), Range(“Sheet2!C3:D4”))将会出错。如何选择两个或多个指定区域的交叉区域？
例如，要选择名为“Test”和“Sample”的两个区域的交叉区域，可以使用下面的代码： Application.Intersect(Range(“Test”), Range(“Sample”)).Select 注意，两个区域必须在同一工作表中。= = = = = = = = = = = = = = = = = = = = = = = = = 下面的示例使用了如下图所示的工作表。
如何选择连续数据列中的最后一个单元格？
例如，要选择一个连续列中的最后一个单元格，可以使用下面的代码： ActiveSheet.Range(“a1”).End(xlDown).Select 该代码使用在上面的工作表中，单元格A4被选择。如何选择连续数据列底部的空单元格？
例如，要选择连续单元格区域下面的单元格，可以使用下面的代码： ActiveSheet.Range(“a1”).End(xlDown).Offset(1, 0).Select 该代码使用在上面的工作表中，单元格A5被选择。如何选择某列中连续数据单元格区域？
例如，要选择一列中的连续数据单元格区域，可以使用下面的代码： ActiveSheet.Range(“a1”, ActiveSheet.Range(“a1”).End(xlDown)).Select 或：ActiveSheet.Range(“a1:” & ActiveSheet.Range(“a1”).End(xlDown).Address).Select 该代码使用在上面的工作表中，单元格区域A1：A4将被选择。如何选择某列中非连续数据单元格区域？
例如，要选择某列中非连续数据单元格区域，可以使用下面的代码： ActiveSheet.Range(“a1”, ActiveSheet.Range(“a65536”).End(xlUp)).Select 或：ActiveSheet.Range(“a1:” & ActiveSheet.Range(“a65536”).End(xlUp).Address).Select 该代码使用在上面的工作表中，单元格区域A1：A6将被选择。如何选择一个矩形(规则的)单元格区域？
要选择围绕某单元格的一个矩形区域，可以使用CurrentRegion方法。CurrentRegion方法将选择四周被空行和空列围绕的区域，如下面的代码： ActiveSheet.Range(“a1”).CurrentRegion.Select 该代码使用在上面的工作表中，将选择单元格区域A1：C4。也可以使用下面的代码： ActiveSheet.Range(“a1”, ActiveSheet.Range(“a1”).End(xlDown).End(xlToRight)).Select 或：
ActiveSheet.Range(“a1:” & ActiveSheet.Range(“a1”).End(xlDown).End(xlToRight).Address).Select 若想选择单元格区域A1：C6，可使用下面的代码： lastCol = ActiveSheet.Range(“a1”).End(xlToRight).Column lastRow = ActiveSheet.Cells(65536, lastCol).End(xlUp).Row ActiveSheet.Range(“a1”, ActiveSheet.Cells(lastRow, lastCol)).Select 或：
lastCol = ActiveSheet.Range(“a1”).End(xlToRight).Column lastRow = ActiveSheet.Cells(65536, lastCol).End(xlUp).Row ActiveSheet.Range(“a1:” & ActiveSheet.Cells(lastRow, lastCol).Address).Select = = = = = = = = = = = = = = = = = = = = 如何选择多个不同长度的非连续列？ 例如，有下图所示的工作表：
要同时选择A列和C列中的数据，即单元格区域A1:A3和C1:C6，可使用下面的代码： StartRange = “A1” EndRange = “C1” Set a = Range(StartRange, Range(StartRange).End(xlDown))Set b = Range(EndRange, Range(EndRange).End(xlDown))Union(a, b).Select = = = = = = = = = = = = = = = = = = = = 注：使用Application.Goto方法，如果指定另一工作表(不是当前工作表)中的指定区域，在Range属性中使用两个Cells属性时，则必须包括Sheets对象，如：
Application.Goto Sheets(“Sheet1”).Range(Sheets(“Sheet1”).Range(Sheets(“Sheet1”).Cells(2, 3), Sheets(“Sheet1”).Cells(4, 5)))= = = = = = = = = = = = = = = = = = = = 在VBA中，Range 对象既可表示单个单元格，也可表示单元格区域。下面的内容说明了标识和处理Range对象最常用的方法。引用工作表上的所有单元格
如果对工作表应用 Cells 属性时不指定索引号，该方法将返回代表工作表上所有单元格的 Range 对象。以下 Sub 过程清除活动工作簿中 Sheet1 上的所有单元格的内容。Sub ClearSheet()Worksheets(“Sheet1”).Cells.ClearContents End Sub 使用 A1 表示法引用单元格和区域
可使用 Range 属性引用 A1 引用样式中的单元格或单元格区域。下述子例程将单元格区域 A1:D5 的字体设置为加粗。Sub FormatRange()Workbooks(“Book1”).Sheets(“Sheet1”).Range(“A1:D5”)_.Font.Bold = True End Sub 下表演示了使用 Range 属性的一些 A1 样式引用。引用 含义 Range(“A1”)单元格 A1 Range(“A1:B5”)从单元格 A1 到单元格 B5 的区域 Range(“C5:D9,G9:H16”)多块选定区域 Range(“A:A”)A 列 Range(“1:1”)第一行
Range(“A:C”)从 A 列到 C 列的区域 Range(“1:5”)从第一行到第五行的区域 Range(“1:1,3:3,8:8”)第 1、3 和 8 行 Range(“A:A,C:C,F:F”)A、C 和 F 列 引用行和列
可用 Rows 属性或 Columns 属性来处理整行或整列。这两个属性返回代表单元格区域的 Range 对象。在下例中，Rows(1)返回 Sheet1 上的第一行，然后将区域字体加粗。Sub RowBold()Worksheets(“Sheet1”).Rows(1).Font.Bold = True End Sub 下表举例说明了使用 Rows 和 Columns 属性的一些行和列的引用。引用 含义 Rows(1)第一行
Rows 工作表上所有的行 Columns(1)第一列 Columns(“A”)第一列
Columns 工作表上所有的列
若要同时处理若干行或列，可创建一个对象变量并使用 Union 方法，将对 Rows 属性或 Columns 属性的多个调用组合起来。下例将活动工作簿中第一张工作表上的第一行、第三行和第五行的字体设置为加粗。Sub SeveralRows()Worksheets(“Sheet1”).Activate Dim myUnion As Range Set myUnion = Union(Rows(1), Rows(3), Rows(5))myUnion.Font.Bold = True End Sub 使用索引号引用单元格
通过使用行列索引号，可用 Cells 属性引用单个单元格。该属性返回代表单个单元格的 Range 对象。在下例中，Cells(6,1)返回 Sheet1 上的单元格 A6，然后将 Value 属性设置为 10。
Sub EnterValue()Worksheets(“Sheet1”).Cells(6, 1).Value = 10 End Sub 因为可用变量替代编号，所以 Cells 属性非常适合于在单元格区域中循环，如下例中所示。Sub CycleThrough()Dim Counter As Integer For Counter = 1 To 20 Worksheets(“Sheet1”).Cells(Counter, 3).Value = Counter Next Counter End Sub 如果要同时更改某个区域中所有单元格的属性（或将方法应用于该区域中的所有单元格），建议使用 Range 属性。使用快捷表示法引用单元格
可用方括号将 A1 引用样式或命名区域括起来，作为 Range 属性的快捷方式。这样就不必键入单词“Range”或使用引号了，如下例中所示。Sub ClearRange()Worksheets(“Sheet1”).[A1:B5].ClearContents End Sub
点击咨询 