- ©«¤l
- 144
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 226
- ÂI¦W
- 136
- §@·~¨t²Î
- WIN10
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2011-6-21
- ³Ì«áµn¿ý
- 2024-5-23
|
Dim arr, i, s%
arr = Range([a20], [a65536].End(3))
For i = 1 To UBound(arr)
s = s + 1
If arr(i, 1) >= 100 Then
Cells(i + 19, 4) = "³q¹L"
ElseIf (arr(i, 1) < 100) * (arr(i, 1) >= 0) Then
Cells(i + 19, 4) = "¤£³q¹L"
Else
Cells(i + 19, 4) = ""
End If
Next
[c20].Resize(UBound(arr)) = arr
End Sub |
|