動態填充列表框 - 排除空單元格

Question

我在Excel中創建窗體（不是用戶窗體），並使用單元格填充列表框。但是，這些單元格有時是A1：10，有時它們是A1：A4。有沒有辦法動態改變列表框中顯示的內容？

現在，當我使用A1：10並且只有4個單元格填充時，我得到4個填充單元格的列表，其後是6個空白條目。我想擺脫6個空白時，只有4個。

Answer 1

不幸的是，這是一個解決方案更多的解決方法。但是，它可能能夠做你需要它做的事情。我一直在試圖讓範圍變得動態，所以你一直在碰壁。

沒有看到一些代碼來確切知道你在做什麼，嘗試這樣的事情。

Private Sub ListBox1() 
    x = 1 
    'Add items to listbox until you reach an empty cell. 
    Do while Cells(x,1) <> "" 
     ListBox1.AddItem Cells(x,1) 
    Loop 

我不是很熟悉用戶表單以外的列表框，但是這應該大致做你想做的事情。

用您的代碼編輯您的原始文章，以便我們嘗試更好地理解您嘗試過的內容以及您正在嘗試執行的操作。

Answer 2

您可以使用動態公式創建命名範圍。以下任一公式都可以使用。

=A1:INDEX($A$1:$A$10,MATCH("",$A$1:$A$10,0)-1) 

=OFFSET($J$7,0,0,MATCH("",$J$7:$J$32,0)-1) 

創建命名範圍，按Ctrl + F3然後單擊新建，插入兩個選項之一以上進「指的是：」部分，然後貼上標籤新系列無論你想。在列表框的「行源」部分，只需鍵入您爲新命名範圍選擇的名稱即可。