第章Range(单元格)对象【超实用VBA】.docVIP

PAGE 14 PAGE 13 第1章 Range（单元格）对象 范例1 单元格的引用方法 1-1 使用Range属性引用单元格区域 Sub MyRng() Range(A1:B4, D5:E8).Select Range(A1).Formula = =Rand() Range(A1:B4 B2:C6).Value = 10 Range(A1, B4).Font.Italic = True End Sub 1-2 使用Cells属性引用单元格区域 Sub MyCell() Dim i As Byte For i = 1 To 10 Sheets(Sheet1).Cells(i, 1).Value = i Next End Sub 1-3 使用快捷记号实现快速输入 Sub FastMark() [A1] = Excel 2007 End Sub 1-4 使用Offset属性返回单元格区域 Sub RngOffset() Sheets(Sheet1).Range(A1:B2).Offset(2, 2).Select End Sub 1-5 使用Resize属性返回调整后的单元格区域 Sub RngResize() Sheets(Sheet1).Range(A1).Resize(4, 4).Select End Sub 范例2 选定单元格区域的方法 2-1 使用Select方法 Sub RngSelect() Sheets(Sheet2).Activate Sheets(Sheet2).Range(A1:B10).Select End Sub 2-2 使用Activate方法 Sub RngActivate() Sheets(Sheet2).Activate Sheets(Sheet2).Range(A1:B10).Activate End Sub 2-3 使用Goto方法 Sub RngGoto() Application.Goto Reference:=Sheets(Sheet2).Range(A1：B10), Scroll:=True End Sub 范例3 获得指定行的最后一个非空单元格 Sub LastCell() Dim rng As Range Set rng = Cells(Rows.Count, 1).End(xlUp) MsgBox A列的最后一个非空单元格是 rng.Address(0, 0) _ ,行号 rng.Row ,数值 rng.Value Set rng = Nothing End Sub 范例4 使用SpecialCells方法定位单元格 Sub SpecialAddress() Dim rng As Range Set rng = Sheet1.UsedRange.SpecialCells(xlCellTypeFormulas) rng.Select MsgBox 工作表中有公式的单元格为： rng.Address Set rng = Nothing End Sub 范例5 查找特定内容的单元格 5-1 使用Find方法查找特定信息 Sub FindCell() Dim StrFind As String Dim rng As Range StrFind = InputBox(请输入要查找的值：) If Len(Trim(StrFind)) 0 Then With Sheet1.Range(A:A) Set rng = .Find(What:=StrFind, _ After:=.Cells(.Cells.Count), _ LookIn:=xlValues, _ LookAt:=xlWhole, _ SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=False) If Not rng Is Nothing Then Application.Goto rng, True Else