我想清除包含某些数据的最大值和最小值的单元格:
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)时,代码停止工作。
有什么想法吗?
提前致谢