为什么运行后会全部填充没有停止，出现溢出现象。

Sub RS()
Dim RS%
RS = 2
if rs < rows.count
Do Until Sheet1.Range("a" & RS) = " "
Sheet1.Range("a" & RS & ":" & "c" & RS).Interior.ColorIndex = 12
RS = RS + 2
Loop
end if
End Sub

复制了你的 Do Until Sheet1.Range("a" & RS) = " " 这一段 到
编辑器

你发现问题了吗？
你的双引号中间有个空格！
空白 和 空格 完全是2回事情！