<em>VBA</em>，如何取单元格的值？

范例1 单元格的引用方法636f7079e799bee5baa6e79fa5e981933641-1
使用Range属性引用单元格区域
Sub MyRng()
Range("A1:B4, D5:E8").Select
Range("A1").Formula = "=Rand()" ‘单元格中输入“=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’单元格中输入“i”
Next
End Sub
1-3

使用快捷记号实现快速输入
Sub FastMark()
[A1] = "Excel 2007" ’A1为特定单元格
End Sub
1-4

使用Offset属性返回单元格区域，
Sub RngOffset()
Sheets("Sheet1").Range("A1:B2").Offset(2,
2).Select ’用offste相对位置来确定单元格
End Sub

1-5 使用Resize属性返回调整后的单元格区域
Sub RngResize()

Sheets("Sheet1").Range("A1"). ’用offste相对位置来确定单元格).Select ’用range 来确定左上角为起始位置，’用resize相来确定单元格大小
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

VBA中表示单元格的值有来很多种，比如源A1单元格的值
range("A1")
cells(1,1) 或cells(1,"A")
[A1]

VBA中单元格属性默认百是值，但如果指定为度value属性，可以提高知代码运行速度
上述的表道示方式为：
range("A1").value
cells(1,1).value 或cells(1,"A").value
[A1].value
Sub change()
For i = 1 To ActiveWorkbook.Worksheets.Count
n = Worksheets(i).Range("G4").Value
if n="" then
Msgbox “单元格空" '提示一下但知不作操作，或者按照你道的需要再修改
Else
ActiveWorkbook.Worksheets(i).Name = n
End if
Next
End Sub

'注意单回元格内不能有非法字符，如“/”，否则会答出错

出错提示是什么，类型不匹配还是什么