调整表格

Question

我正在尝试使用VB创建一个宏，它将许多行数据转换为表格。我想存储这个宏并一次又一次地运行它。一个问题是，每次我运行它时，都会有不同的行数。

我现在使用的代码是：

'CREATE NEW TABLE
Sub CreateTable2()
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$H$922"), , xlYes).Name = _
        "MyNewTable2"
        'No go in 2003
    ActiveSheet.ListObjects("MyNewTable2").TableStyle = "TableStyleLight2"
End Sub

上面的代码只会到'922'行。我正在寻找一种可以每次调整行数的方法。

Answer 1

您可以做的是使用Range.End（）构建范围。

ActiveSheet.ListObjects.Add(xlSrcRange, _
 Range("$A$1:$H$" & Range("H1").End(xlDown).Row), , xlYes).Name = "MyNewTable2"