vb.net - 调整表

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"