Sub set_color() Dim r As Range, arr For Each r In Range("A:QE") arr = Split(r, ",") r.Interior.Color = RGB(CInt(arr(0)), CInt(arr(1)), CInt(arr(2))) Next End Sub延迟0.01秒执行一次循环

你可以在每次循环的结尾添加一个 `Application.Wait` 方法，让程序暂停一段时间再进入下一次循环。具体可以修改代码如下：

Sub set_color()
    Dim r As Range, arr
    For Each r In Range("A:QE")
        arr = Split(r, ",")
        r.Interior.Color = RGB(CInt(arr(0)), CInt(arr(1)), CInt(arr(2)))
        Application.Wait (Now + TimeValue("0:00:01")) ' 延迟 1 秒钟
    Next
End Sub

这样就可以让程序在每次循环之间暂停 1 秒钟，再进入下一次循环。你可以根据需要调整延迟的时间。