range.(""&cell).value值异常

range.(""&cell).value值错误

VBScript code

Public Function getdata(cell) As Variant    Set getdata = Sheet1.Range("" & cell).Value    End Function

getdata函数想要得到cell单元格的值，这么写对不？

------解决方案--------------------------------------------------------
不知道你的参数cell是什么样的,range不能这样用.
假如你想取得A1单元格的值,可以有以下两种写法:
Range(Cells(1, 1), Cells(1, 1)).Value
Range("A1").Value

关键是看你的参数是什么样子的了
------解决方案--------------------------------------------------------
Public Function getdata(cell as String) As Variant
getdata = Sheet1.Range(cell).Value
End Function