伟继
Sub ces()
Dim i As Integer, arr1(), arr2()
arr1 = Range("b2:b" & Cells(Rows.Count, 2).End(x1up))
ReDim arr2(i To UBound(arr1), 1 To 1)
For i = 1 To UBound(arr1)
If arr1(i, 1) < 60 Then arr2(i, 1) = "不及格"
Next
Range([C2], Cells(Rows.Count, 2).End(x1up).Offset(0, 1)) = arr2
End Sub
伟继
Sub ces()
Dim i As Integer, arr1(), arr2()
arr1 = Range([b2], Cells(Rows.Count, 2).End(x1up))
ReDim arr2(i To UBound(arr1), 1 To 1)
For i = 1 To UBound(arr1)
If arr1(i, 1) < 60 Then arr2(i, 1) = "bujige"
Next
Range([C2], Cells(Rows.Count, 2).End(x1up).Offset(0, 1)) = arr2
End Sub
