リストボックスの空白セルを削除するrowsource

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