我希望用從 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”中指定第一項，然后指定第二個單元格，然后進行自動填充？
uj5u.com熱心網友回復：
Set TradeTable = Sheets("Pre Trade").ListObjects("PreTradeTable")
With TradeTable.ListColumns("ID").DataBodyRange
.Cells(1) = 1
.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1
End With
uj5u.com熱心網友回復：
我不知道如何用這種特定的方法來幫助你，但我可以建議另一種方法。
Set IdCells = TradeTable.ListColumns("ID").DataBodyRange
將為您提供一系列需要填充的單元格。然后，
For i = 1 to IdCells.count
IdCells(i).value = i
Next i
將填充它們，如果我記得我的語法正確的話。
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/372746.html