EXCELVBA的问题请下载附件
Sub yueliang1()
Application。ScreenUpdating = False
Columns("A:A")。AutoFilter
Columns("A:A")。 AutoFilter Field:=1, Criteria1:="=imes", Operator:=xlOr, Criteria2:="=Tipico"
Range("A2:A8000")。 Font。ColorIndex = 5
Columns("A:A")。AutoFilter Field:=1, Criteria1:="=Canbet", Operator:=xlOr, Criteria2:="...全部
Sub yueliang1()
Application。ScreenUpdating = False
Columns("A:A")。AutoFilter
Columns("A:A")。
AutoFilter Field:=1, Criteria1:="=imes", Operator:=xlOr, Criteria2:="=Tipico"
Range("A2:A8000")。
Font。ColorIndex = 5
Columns("A:A")。AutoFilter Field:=1, Criteria1:="=Canbet", Operator:=xlOr, Criteria2:="=Trio"
Range("A2:A8000")。
Font。ColorIndex = 5
Columns("A:A")。AutoFilter Field:=1, Criteria1:="=tsafe"
Range("A2:A8000")。
Font。ColorIndex = 5
Columns("A:A")。AutoFilter
Application。ScreenUpdating = True
End Sub
二三四依次为:
Sub yueliang2()
Dim i, j, N As Integer
N = 5
For j = 0 To N - 1
For i = 1 To 200
If Application。
CountIf(Range(Cells(1 + 200 * j, 2), Cells(200 + 200 * j, 2)), Cells(i + 200 * j, 2)) = 1 Then Cells(i + 200 * j, 2)。
Clear
Next
Next
End Sub
Sub yueliang3()
Dim i, j As Integer
For i = 1 To 2799 Step 200
For j = 1 To 2
Range(Cells(i, j), Cells(i + 198, j))。
AutoFilter
Selection。AutoFilter Field:=1, Criteria1:="10", Operator:=xlBottom10Items
Range(Cells(i + 1, j), Cells(i + 198, j))。
Font。ColorIndex = 3
Selection。AutoFilter
Next
Next
End Sub
Sub yueliang4()
Dim i, j As Integer
For i = 1 To 2799 Step 200
For j = 3 To 4
Range(Cells(i, j), Cells(i + 198, j))。
AutoFilter
Selection。AutoFilter Field:=1, Criteria1:="10", Operator:=xlTop10Percent
Range(Cells(i + 1, j), Cells(i + 198, j))。
Font。ColorIndex = 10
Selection。AutoFilter
Next
Next
End Sub。收起