Question

我希望在事件管理网站的查询旁边添加一个备注列，并确保标题行保持相同的大小。

这是我到目前为止所拥有的。当我运行它时，它包含表中的注释，因此它们将刷新并遵循不同的事件状态而不会丢失注释，但是我编写它的方式不允许新行。

标题行大小调整并不是必不可少的，但这根本不起作用。

非常感谢任何帮助！

Sub IncludeNotes()
'
' IncludeNotes Macro
'

'
    Application.CutCopyMode = False
    ActiveSheet.ListObjects("Table_query").Resize Range("$A$1:$X$506")
    Range("Table_query[[#Headers],[ID]]").Select
    ActiveWindow.ScrollColumn = 1
    Rows("1:1").Select
    Selection.RowHeight = 65

End Sub

Answer 1

这是您重构的代码，用于将ListObject扩展一列，而不是更改行数。还要整理代码，删除不必要的Selects等，并调整标题行的大小，而不管它在哪一行

Sub IncludeNotes()
    Dim lo As ListObject
    Application.CutCopyMode = False
    Set lo = ActiveSheet.ListObjects("Table_query")
    lo.Resize lo.Range.Resize(, lo.Range.Columns.Count + 1)
    lo.HeaderRowRange.RowHeight = 65
End Sub

在excel查询中包含notes列

1 个答案: