消除列表框行中的空白單元格來源

Question

我想製作一個消除行上空白單元格的列表框。在列A我有一些單元格包含數據和一些是空白的。我無法刪除空行，因爲在其他列中它們包含數據。如何在listbox中製作非空白單元格rowsource？

Answer 1

怎麼樣一個循環，檢查是否存在在每個單元格的值：

Dim CountLng as Long 

'Set CountLng to maximum row in column A that you would like to search for. 
'This example uses the number of rows in the entire used range of the worksheet 

CountLng = ActiveSheet.UsedRange.Rows.Count 

With listbox1 

    ' Loop over each cell in the column A 
    For x = 1 To CountLng 

     ' If the cell is not blank then add it as a list item 
     If ActiveSheet.Range("A" & x).Value <> "" Then 

      .AddItem ActiveSheet.Range("A" & x).Value 

     End If 

    Next x 

End With