<em>excel</em> <em>vba</em> 如何定义单元格变

比如 你想 把 sheet1 中A1 单元格度 复制给 X变量 那么

X = sheets("sheet1").range("a1")

比如你问又要把答 某个 运算结果 的变版量值 Y 复制给 sheet1的 A1 那么权：

sheets("sheet1").range("a1")=Y

这个不同于为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"), 虽不影响结果，但养成zd良好的书写习惯比较好，对单元格引用，都默认为大写的。

Average是EXCLE的函数，在VBA中不能直接使用。从Visual Basic 中调用工作表函数在Visual Basic 中，通过 WorksheetFunction 对象可使用 Microsoft Excel 工作表函数。以下Sub 过程使用 Min 工作表函数来决定在某个单元格区域中的最小值。首先，将变量 myRange 声明为 Range 对象，然后将其设置为 Sheet1 上的 A1:C10 单元格区域。指定另一个7a64e59b9ee7ad94362变量 answer 为对 myRange 应用 Min 函数的结果。最后，answer 的值就被显示在消息框中。Sub UseFunction()Dim myRange As RangeSet myRange = Worksheets("Sheet1").Range("A1:C10")answer = Application.WorksheetFunction.Min(myRange)MsgBox answerEnd Sub如果您使用的工作表函数需要一个单元格区域引用作为参数，则必须指定一个 Range 对象。例如：您可以用 Match 工作表函数搜索单元格区域。可以在工作表单元格中输入公式，如“=MATCH(9,A1:A10,0)”。但是，您应在 Visual Basic 过程中指定一个 Range 对象来获取相同的结果。Sub FindFirst()myVar = Application.WorksheetFunction _