VBA 学习

Sub abc()
Dim i
 
Dim coloumn
coloumn = 
 
For i =  To
Dim currentValue
currentValue = Val(ReplaceChar(Sheet2.Cells(i, coloumn)))
 
If Application.WorksheetFunction.IsNumber(currentValue) Then
 
 If Abs(currentValue) < 0.05 Then
    Sheet2.Cells(i, coloumn).Interior.ColorIndex =
  End If
End If
 
Next i
 
End Sub
Private Function ReplaceChar(c As String) As String
 Dim a
 a = Replace(c, "*", "")
 
 'If InStr(a, "-") = 1 Then
 '   a = Replace(a, "-", "-0")
 'End If
 
 ReplaceChar = a
End Function