单元格的值表示方法VBA

nnsea

'单元格的值表示方法
Sub 单元格值表示()
a = [a1].Value  '实际是什么，就是什么
b = [a1].Text    '看到是什么，就是什么
c = [a1]
End Sub

'注意：一个单元格可以省略value，多单元格区域不能省略
Sub 多区域赋值()
Range("e1:e4") = Range("d1:d4").Value
End Sub

'单元格地址与引用
Sub 地址与引用()
Set rng = [b2:f2]
[a9] = rng.Address(1, 1)  '绝对引用
[b9] = rng.Address(0, 0)  '相对引用
[c9] = rng.Address(1, 0)   '混合引用
[d9] = rng.Address(0, 1)   '混合引用
End Sub
'总结：1代表固定，0代表不固定,默认是绝对引用

Sub 地址引用实例()
'将表三成绩中为空的单元格标为未考
Dim rng As Range, rn$
On Error Resume Next
For Each rng In Sheet3.Range("b2:d10")
    If rng = "" Then rn = rn & rng.Address & ","
Next
Range(Left(rn, Len(rn) - 1)) = "未考"
End Sub