|
' 定义变量
Dim ws As Worksheet
Dim r As Long
Dim n As Long
' 假设r是行数,需要在代码其他部分定义
' 假设n用于计数,初始值为0
' 循环遍历工作表,从第3个工作表到第7个工作表
For i = 3 To 7
Set ws = ThisWorkbook.Worksheets(i) ' 设置当前工作表
' 应用自动筛选
With ws
.Range("A4:W" & r).AutoFilter Field:=21, Criteria1:=RGB(0, 176, 240), Operator:=xlFilterFontColor
.Range("A4:W" & r).AutoFilter Field:=15, Criteria1:=">=" & y, Operator:=xlAnd
' 计算可见单元格的数量
n = Application.WorksheetFunction.CountA(.Range("O5:O" & r).SpecialCells(xlCellTypeVisible))
' 如果没有可见单元格,则退出子程序
If n = 0 Then Exit Sub
End With
' 如果筛选模式未开启,则退出子程序
If ws.FilterMode = False Then Exit Sub
' 遍历第D列的可见单元格
With ws.Range("D5:D" & r)
For Each a In .SpecialCells(xlCellTypeVisible)
n = n + 1
a.Value = n ' 将计数n赋值给单元格a
If n = ws.Range("C2").Value Then
Exit For ' 如果计数n等于C2单元格的值,则退出循环
End If
Next a
End With
Next i |
评分
-
1
查看全部评分
-
|