Question

excel vba 如何定义单元格变量,并赋值

如上
Public Sub 测试()
Dim dyg As Range
dyg.Value = Range("b2")
End Sub
dyg为单元格，想将b2单元格的值付给dyg这个变量。运行错误，错在那里了

Answer 1

Public Sub 测试()
dyg = Sheet1.Range("b2").Value
End Sub

Answer 2

这个不同于为integer等类型的一般变量赋值，要先用set 关键字将变量赋为特定对象，创建该对象的一个引用，然后可赋值。
Public Sub 测试()
Dim dyg As Range
'如下语句正确，但意义不大
Set dyg = Range("B2")

'常用形式
set dyg=Range("A1") ‘A1可换成你想引用的单元格
dyg= Range("B2")
End Sub

此外，建议楼主将Range("b2")写为Range("B2"), 虽不影响结果，但养成良好的书写习惯比较好，对单元格引用，都默认为大写的。

Answer 3

赋值要用Set
Public Sub 测试()
Dim dyg As Range
Set dyg = Range("b2")
End Sub

Answer 4

未指定dyg的单元格范围，所以无法赋值：
你加一句：set dyg = range("A1")或指定其它你想要的单元格！