第1章Range(单元格)对象[超实用VBA]

1 第 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 2 1-5 使用Resiz e 属性返回调整后的单元格区域 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 使用Activ ate 方法 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 3 范例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, _ Loo...