我试图格式化某个对象右侧的ListObject标题行中的所有单元格，而将其单独留在左侧。当我开始遇到麻烦时，我将代码简化为：
Set rpt = Me.ListObjects("Report")
With rpt.HeaderRowRange
.Interior.ColorIndex = 3
.Range(.Cells(9), .Cells(12)).Interior.ColorIndex = 7
End With
不幸的是，这样做的结果是整个标头行都被染成红色（如预期的那样），而紫色的子范围却下降了4行！
我通过使用ListObject的Range的子范围在短期内成功解决了该问题。
但是，鉴于我看到有关HeaderRowRange的其他问题未能按预期方式运行（尽管以其他方式），有人可以解释为什么HeaderRowRange.Range（）以这种非常规方式运行吗？
编辑：明确地说，我也尝试使用完全合格的参考书来获得相同的结果。
最佳答案
好的，终于得到了再现。您的表不是从第1行开始的，这就是为什么：行偏移量与表的标题行的行号匹配。
显然，这是Excel对象模型的错误。如果您不能移动表以使标题行位于工作表的第1行中（在这种情况下，您的代码将按预期方式完全按预期工作），那么您需要解决它。
这似乎可行：
Dim r As Range
Set r = Me.Range(rpt.Range.Address)
Me.Range(r.Cells(9), r.Cells(12)).Interior.ColorIndex = 7
关键是，您可以将其范围从其本身，而不是相对于
rpt.HeaderRowRange