VBA如何仅为Excel表格的指定行着色而不超出表格范围

你当前代码出现整行填充的核心原因是调用了EntireRow属性，该属性返回工作表层面的整行单元格范围，会覆盖表格外的所有同行列单元格。

以下是两种可直接使用的解决方案：

方案1：直接引用表格行范围（短写法） #

直接指定表格的行范围进行设置，不需要额外定义对象：

' 不需要包含表头时去掉[#All]即可，此时i对应表格数据行的序号（第一行数据为i=1）
Range("Table2[#All]").Rows(i).Interior.Color = RGB(0, 154, 255)

方案2：用ListObject对象操作（更稳妥，适合复杂场景） #

通过表格对象操作兼容性更高，不容易出现范围匹配错误：

Dim targetTbl As ListObject
' 可按需替换为指定工作表，比如Sheets("你的工作表名")
Set targetTbl = ActiveSheet.ListObjects("Table2")
' 为表格的第i行数据设置填充色
targetTbl.ListRows(i).Range.Interior.Color = RGB(0, 154, 255)

注意事项 #

• 你原代码中的RGB参数265超出了0-255的合法取值范围，Excel会自动截断为255，建议直接替换为合法值避免出现非预期的颜色效果
• 如果你的i变量是工作表的行号而非表格内部的行号，需要先做转换：i = 工作表行号 - targetTbl.HeaderRowRange.Row，转换后即可对应到表格内的正确行

内容的提问来源于stack exchange，提问作者TourEiffel