表样式的VBA

我已经尝试将默认表样式更改为TableStyleLight9，但我的代码不接受它。你能教我怎么做吗？这就是我设置表格的方式……你知道为什么这个方法会将我的下拉菜单放在表格的范围之外吗

多谢各位

FinalRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
LastColumn = Cells(1, Columns.Count).End(xlToLeft).Column

ActiveSheet.ListObjects.Add(xlSrcRange, Range(Cells(1, 1), Cells(FinalRow, LastColumn)), , xlYes).Name = "Data"

---

你的宏记录器坏了吗？这是了解如何编写代码的一个很好的来源。这对我很有用：

Sub test()
FinalRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
LastColumn = Cells(1, Columns.Count).End(xlToLeft).Column

ActiveSheet.ListObjects.Add(xlSrcRange, Range(Cells(1, 1), Cells(FinalRow, LastColumn)), , xlYes).Name = "Data"
ActiveSheet.ListObjects("Data").TableStyle = "TableStyleLight9"

End Sub

表格标题中的下拉列表会占用所需的空间。如果表格小于下拉列表，它将扩展到表格之外

---

你的宏记录器坏了吗？我喜欢。谢谢你的回答，我应该试试录音机；谢谢你的提醒。我想我忘了录音机可能很有用。感谢您花时间回复并解释表/下拉列表的关系。