vba - 一次调整 Excel 表格中的整行的宏

Question

我需要一种基于 ActiveCell 以编程方式调整 excel 表中的整行的方法，而不管它在哪个表中或表在哪里。我正在使用

ActiveSheet.ListObjects(1).ListRows(ActiveCell.Row - 1).Range.Select
Selection.Style = "Good"

但是在将表格向下移动五行时，它现在将操作从 ActiveCell 向下再向下五行应用。

我试图找到一种方法来替换 - 1用某种 - .HeaderRowRange.Row但是当我激活宏时没有任何 react 。

Answer 1

您可以利用 ActiveCell.ListObject属性(property)。这使它更加灵活，例如，如果工作表中有两个表:

Sub FormatActiveTableRow()
Dim lo As Excel.ListObject

Set lo = ActiveCell.ListObject
If Not lo Is Nothing Then
    Intersect(ActiveCell.EntireRow, lo.Range).Style = "Good"
End If
End Sub