无效的限定符/小数问题

时间:2017-10-31 18:23:01

标签: excel vba

我想清除包含某些数据的最大值和最小值的单元格:

Sub Macro5()
Dim vmax, vmin, lmax, lmin As Double
Set rango = Range("DA200:WB300")
Set vamx = rango.Find(Application.WorksheetFunction.max(rango),LookIn:=xlValues, lookat:=xlWhole)
Set vmin = rango.Find(Application.WorksheetFunction.Min(rango),LookIn:=xlValues, lookat:=xlWhole)
If Not vmax Is Nothing Then
    lmax = vmax.ClearContents
End If
If Not vmin Is Nothing Then
    lmin = vmin.ClearContents
End If
End Sub

但代码不起作用。

提示:当我使用没有小数的数字时,它可以正常工作。但是,当我为真实的更改它们(如0.565807486680781)时,代码停止工作。

有什么想法吗?

提前致谢

0 个答案:

没有答案