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

Question

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

Answer 1

这个不同于为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 2

对象就是的赋值，必需使用set语句
Public Sub 测试()
Dim dyg As Range
set dyg = Range("b2")
End Sub
你完全可以不用定义为单元格对象，直接赋值不就行了？
Public Sub 测试()
Dim dyg$'定义字符串变量
dyg = Range("b2")
End Sub本回答被网友采纳

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

对象就是的赋值，必需使用set语句
Public Sub 测试()
Dim dyg As Range
set dyg = Range("b2")
End Sub
你完全可以不用定义为单元格对象，直接赋值不就行了？
Public Sub 测试()
Dim dyg$'定义字符串变量
dyg = Range("b2")
End Sub本回答被网友采纳

Answer 7

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

Answer 8

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

Answer 9

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