|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
Sub test()
Application.DisplayAlerts = False: Application.ScreenUpdating = False
With Sheets("sheet1")
r = .Cells(Rows.Count, "k").End(3).Row
arr = .Range("d1:k" & r)
For i = 2 To UBound(arr)
If arr(i, 1) Like "*折*" Or arr(i, 3) = 1 Then
.Cells(i, "k") = 0
.Cells(i, "k").Interior.ColorIndex = 6
End If
Next i
End With
MsgBox "OK,完成!!!", 48, "温馨提示……"
Application.DisplayAlerts = True: Application.ScreenUpdating = True
End Sub |
评分
-
1
查看全部评分
-
|