預先追加行值到一個範圍

Question

我正在用值填充列表框，並且只是希望它們顯示編號。我從一張表中獲得我的範圍，並且只是想潛入一個循環計數器，然後加載範圍。編號在原始數據表中不存在，所以我選擇此路線。這裏是原代碼：

Dim myArray As Variant 
numbldsec = Worksheets("bld").Cells(2, 1).Value 
myArray = Worksheets("bld").Range("A3:A" & numbldsec + 2) 
With Worksheets("plots") 
    .ListBox1.List = myArray 
    .ListBox1.IntegralHeight = False 
    .ListBox1.IntegralHeight = True 
    .ListBox1.Height = 45 
    .ListBox1.Width = 69 
    .ListBox1.Top = 0 
    .ListBox1.Left = 1255.5 
End With 

所以我想myArray的有每行2個值....

感謝您的幫助。

Answer 1

啊，這個工作：

Dim myArray As Variant 
numbldsec = Worksheets("bld").Cells(2, 1).Value 
myArray = Worksheets("bld").Range("A3:A" & numbldsec + 2).Value 
For i = 1 To numbldsec ' pre-append radii with section numbers 
myArray(i, 1) = i & " " & myArray(i, 1) 
Next i 

等等