《Excel VBA 中的 Range 和 Cells 用法说明.doc》由会员分享，可在线阅读，更多相关《Excel VBA 中的 Range 和 Cells 用法说明.doc（18页珍藏版）》请在金锄头文库上搜索。
1、Range对象基本操作应用示例(1)Range对象可能是VBA代码中最常用的对象，Range对象可以是某一单元格、某一单元格区域、某一行、某一列、或者是多个连续或非连续的区域组成的区域。下面介绍Range对象的一些属性和方法。- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -示例05-01 赋值给某单元格示例05-01-01Sub test1()Worksheets(Sheet1).Range(A5).Value = 22MsgBox 工作表Sheet1内单元格A5中的值为 _& Workshe
2、ets(Sheet1).Range(A5).ValueEnd Sub示例05-01-02Sub test2()Worksheets(Sheet1).Range(A1).Value = _Worksheets(Sheet1).Range(A5).ValueMsgBox 现在A1单元格中的值也为 & _Worksheets(Sheet1).Range(A5).ValueEnd Sub示例05-01-03Sub test3()MsgBox 用公式填充单元格,本例为随机数公式Range(A1:H8).Formula = =Rand()End Sub示例05-01-04Sub test4()Worksh
3、eets(1).Cells(1, 1).Value = 24MsgBox 现在单元格A1的值为24End Sub示例05-01-05Sub test5()MsgBox 给单元格设置公式,求B2至B5单元格区域之和ActiveSheet.Cells(2, 1).Formula = =Sum(B1:B5)End Sub示例05-01-06Sub test6()MsgBox 设置单元格C5中的公式.Worksheets(1).Range(C5:C10).Cells(1, 1).Formula = =Rand()End Sub- - - - - - - - - - - - - - - - - - -
4、- - - - - - - - - - - - - - - - - - -示例05-02 引用单元格Sub Random()Dim myRange As Range设置对单元格区域的引用Set myRange = Worksheets(Sheet1).Range(A1:D5)对Range对象进行操作myRange.Formula = =RAND()myRange.Font.Bold = TrueEnd Sub示例说明：可以设置Range对象变量来引用单元格区域，然后对该变量所代表的单元格区域进行操作。- - - - - - - - - - - - - - - - - - - - - - - -
5、 - - - - - - - - - - - - - -示例05-03 清除单元格示例05-03-01清除单元格中的内容(ClearContents方法)Sub testClearContents()MsgBox 清除指定单元格区域中的内容Worksheets(1).Range(A1:H8).ClearContentsEnd Sub示例05-03-02清除单元格中的格式(ClearFormats方法)Sub testClearFormats()MsgBox 清除指定单元格区域中的格式Worksheets(1).Range(A1:H8).ClearFormatsEnd Sub示例05-03-03
6、清除单元格中的批注(ClearComments方法)Sub testClearComments()MsgBox 清除指定单元格区域中的批注Worksheets(1).Range(A1:H8).ClearCommentsEnd Sub示例05-03-04清除单元格中的全部，包括内容、格式和批注(Clear方法)Sub testClear()MsgBox 彻底清除指定单元格区域Worksheets(1).Range(A1:H8).ClearEnd Sub- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
7、 -示例05-04 Range和CellsSub test()设置单元格区域A1:J10的边框线条样式With Worksheets(1).Range(.Cells(1, 1), _.Cells(10, 10).Borders.LineStyle = xlThickEnd WithEnd Sub示例说明：可用 Range(cell1, cell2) 返回一个 Range 对象，其中cell1和cell2为指定起始和终止位置的Range对象。- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -示例0
8、5-05 选取单元格区域(Select方法)Sub testSelect()选取单元格区域A1:D5Worksheets(Sheet1).Range(A1:D5).SelectEnd Sub- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -示例05-06 基于所选区域偏离至另一区域(Offset属性)示例05-06-01Sub testOffset()Worksheets(Sheet1).ActivateSelection.Offset(3, 1).SelectEnd Sub示例说明：可用Off
9、set(row, column)(其中row和column为行偏移量和列偏移量)返回相对于另一区域在指定偏移量处的区域。如上例选定位于当前选定区域左上角单元格的向下三行且向右一列处单元格区域。示例05-06-02 选取距当前单元格指定行数和列数的单元格Sub ActiveCellOffice()MsgBox 显示距当前单元格第3列、第2行的单元格中的值MsgBox ActiveCell.Offset(3, 2).ValueEnd Sub- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -示例05-
10、07 调整区域的大小(Resize属性)Sub ResizeRange()Dim numRows As Integer, numcolumns As IntegerWorksheets(Sheet1).ActivatenumRows = Selection.Rows.Countnumcolumns = Selection.Columns.CountSelection.Resize(numRows + 1, numcolumns + 1).SelectEnd Sub示例说明：本示例调整所选区域的大小，使之增加一行一列。- - - - - - - - - - - - - - - - - - - -
11、 - - - - - - - - - - - - - - - - - -示例05-08 选取多个区域(Union方法)Sub testUnion()Dim rng1 As Range, rng2 As Range, myMultiAreaRange As RangeWorksheets(sheet1).ActivateSet rng1 = Range(A1:B2)Set rng2 = Range(C3:D4)Set myMultiAreaRange = Union(rng1, rng2)myMultiAreaRange.SelectEnd Sub示例说明：可用 Union(range1, ra
12、nge2, .) 返回多块区域，即该区域由两个或多个连续的单元格区域所组成。如上例创建由单元格区域A1:B2和C3:D4组合定义的对象，然后选定该定义区域。- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -示例05-09 激活已选区域中的单元格Sub ActivateRange()MsgBox 选取单元格区域B2:D6并将C4选中ActiveSheet.Range(B3:D6).SelectRange(C5).ActivateEnd Sub- - - - - - - - - - - - - -
13、- - - - - - - - - - - - - - - - - - - - - - - -示例05-10 选取指定条件的单元格(SpecialCells方法)Sub SelectSpecialCells()MsgBox 选择当前工作表中所有公式单元格ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas).SelectEnd Sub- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -示例05-11 选取矩形区域(CurrentRegion属性)选取包
14、含当前单元格的矩形区域该区域周边为空白行和空白列Sub SelectCurrentRegion()MsgBox 选取包含当前单元格的矩形区域ActiveCell.CurrentRegion.SelectEnd Sub- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -示例05-12 选取当前工作表中已用单元格(UsedRange属性)选取当前工作表中已使用的单元格区域Sub SelectUsedRange()MsgBox 选取当前工作表中已使用的单元格区域 _& vbCrLf & 并显示其地址Ac
15、tiveSheet.UsedRange.SelectMsgBox ActiveSheet.UsedRange.AddressEnd Sub- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -示例05-13 选取最边缘单元格(End属性)选取最下方的单元格Sub SelectEndCell()MsgBox 选取当前单元格区域内最下方的单元格ActiveCell.End(xlDown).SelectEnd Sub示例说明：可以改变参数xlDown以选取最左边、最右边、最上方的单元格。- - - - - - - - - - - - - - -
