|
本帖最后由 wagege2217 于 2014-4-10 17:35 编辑
当条件格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
- Sub 宏1()
- arr = Range("a1").CurrentRegion
- For z = 2 To UBound(arr)
- If Val(Cells(z, 1)) >= 0.89 Then
- Cells(z, 2) = 1
- Else
- Cells(z, 2) = 2
- End If
- Next
- End Sub
复制代码
|
|