小编Mot*_*lar的帖子

我希望使用从 1,2,3,... 开始的连续数字自动填充第一列（标记为“ID”）。到目前为止我所拥有的是

    Application.DisplayAlerts = True

Dim TradeTable As Excel.ListObject
Set TradeTable = Sheets("Pre Trade").ListObjects("PreTradeTable")

TradeTable.DataBodyRange(1, 1).Select
Selection.Value = 1

TradeTable.DataBodyRange(2, 1).Select
Selection.Value = 2

TradeTable.ListColumns("ID").DataBodyRange.Select
Selection.AutoFill

这是行不通的。另外，我不喜欢非动态参考，例如（2,1）。有没有办法指定列标题“ID”中的第一项，然后指定第二个单元格，然后进行自动填充？