excel - VBA 使用不等式替换

Question

我的客户需要进行频繁的数据处理，必须使用 Excel VBA。它是 6 个选项卡上的 3000x60 单元格网格，因此可能需要一段时间才能循环。测试任务是找到值 >5 并突出显示它们。

出于各种原因，不可以选择条件格式。

for 循环是显而易见的，我对此持开放态度，但我正在寻求速度改进。

替换似乎更快。我想尝试 Selection.Replace What:=">5"但这会查找字符串而不是我真正想要的不等式。

Answer 1

也许这是一个有趣的方法？

Sub Highlight()

Dim WS As Worksheet

For Each WS In ThisWorkbook.Worksheets
    For X = 1 To 60
        On Error Resume Next
        With Intersect(WS.UsedRange, WS.Columns(X))
            .AutoFilter 1, ">5"
            .Offset(1).Resize(.Rows.Count - 1).Interior.Color = vbYellow
            .AutoFilter
        End With
        On Error GoTo 0
    Next X
Next WS

End Sub

显然还有很大的改进空间(例如屏幕更新和计算的转变)，但您应该明白了。我不知道它是否更快:)。至少您不会循环所有单元格。