[已解决]数字条件格式

wagege2217

当条件格A列中的数值>=0.89 ，B列填1 否则填2
求大师指点

Sub 宏1()
'
' 宏1 宏
'
    Dim z
    arr = Range("a1").CurrentRegion
    For z = UBound(arr) To 2 Step -1
        If Len(Cells(z, 1)) >= "0.89" Then
        Cells(z, 2) = "1"
        Else
        Cells(z, 2) = "2"
        End If
    Next

End Sub

最佳答案

月排行榜 / 总排行榜

dsmch

2014-4-10 17:36

1. Sub 宏1()
   
2.     arr = Range("a1").CurrentRegion
   
3.     For z = 2 To UBound(arr)
   
4.         If Val(Cells(z, 1)) >= 0.89 Then
   
5.             Cells(z, 2) = 1
   
6.         Else
   
7.             Cells(z, 2) = 2
   
8.         End If
   
9.     Next
   
10. End Sub
    

复制代码

跳转到最佳答案楼层

dsmch

1. Sub 宏1()
   
2.     arr = Range("a1").CurrentRegion
   
3.     For z = 2 To UBound(arr)
   
4.         If Val(Cells(z, 1)) >= 0.89 Then
   
5.             Cells(z, 2) = 1
   
6.         Else
   
7.             Cells(z, 2) = 2
   
8.         End If
   
9.     Next
   
10. End Sub
    

复制代码

wagege2217

谢学长。

yuan1987

真迅速啊····
Sub 宏1()
'
' 宏1 宏
'
    Dim z
    For z = 2 To Sheet1.Range("a65566").End(xlUp).Row
        If Sheet1.Cells(z, 1) >= "0.89" Then
        Sheet1.Cells(z, 2) = "1"
        Else
        Sheet1.Cells(z, 2) = "2"
        End If
    Next

End Sub