如何用VBA编辑表格标题 – Excel

我有一张表，为列表中的每个项目添加一个表格。
但是在添加表后，我找不到编辑表格标题的代码。 可能有一个简单的解决scheme，但我无法find一个。

Sub getAllProjectsTest() Dim totalSheet As Worksheet Set totalSheet = ThisWorkbook.Sheets("Total Overview") totalSheet.Range("A2:Z4000").Clear For Each project In Sheets("Projects-Tasks").Range("Projects") Dim LastRow As Long LastRow = totalSheet.Cells(Rows.Count, 1).End(xlUp).Row With totalSheet.Range("A" & LastRow).Offset(3, 0) .Value = project .Font.Size = 16 .Font.Bold = True End With Dim ListStart As String ListStart = totalSheet.Range("A" & LastRow).Offset(4, 0).Address Dim TableWidth As String TableWidth = totalSheet.Range("A" & LastRow).Offset(4, 3).Address totalSheet.ListObjects.Add(xlSrcRange, Range(ListStart & ":" & TableWidth), , xlYes).Name = "Table" & project Range(ListStart & ":" & TableWidth).HorizontalAlignment = xlCenter Next project End Sub 

Answer 1

如果您使用对象，它变得更容易。 看到这个例子

 ' '~~> Rest of the code ' Dim tbl As ListObject Set tbl = totalSheet.ListObjects.Add(xlSrcRange, _ Range(ListStart & ":" & TableWidth), , xlYes) With tbl .Name = "Table" & project Debug.Print .HeaderRowRange.Address End With ' '~~> Rest of the code '