0

VB を使用して、多数のデータ行をテーブルに変換するマクロを作成しようとしています。このマクロを保存して、何度も実行したいです。1 つの問題は、実行するたびに行数が異なることです。

私が現在使用しているコードは次のとおりです。

'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」行までしか進みません。毎回行数に合わせて調整できる方法を探しています。

4

1 に答える 1

0

できることは、Range.End() を使用して範囲を構築することです。

ActiveSheet.ListObjects.Add(xlSrcRange, _
 Range("$A$1:$H$" & Range("H1").End(xlDown).Row), , xlYes).Name = "MyNewTable2"
于 2013-08-19T11:22:42.680 に答える