Question

我有一个列表框，其中填充了一系列单元格，但不幸的是有些单元格是空白的。在某些情况下，我的列表框中会填充大量单元格，因此手动输入每个单元格是不切实际的。下面显示了填充列表框的代码行：

Me.ListBox1.List = Sheets("List Names").Range("C1022:C1200").Value

但是我需要一种循环遍历单元格的方法，只需要添加包含信息的单元格，或者甚至是可能的。提前谢谢。

Answer 1

您确定可以循环显示单元格以填充列表框。您需要执行以下操作：

sub jzz
Dim myRange As Range
Dim myCell As Range

Set myRange = Range("A1:A5")

For Each myCell In myRange
    If myCell.Value <> vbNullString Then
        Me.ListBox1.AddItem myCell.Value
    End If
Next myCell
end sub

停止空白单元格进入列表框

1 个答案: