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

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

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

---

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

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

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

子jzz
将myRange变暗为Range
暗淡的迈塞尔山脉
设置myRange=Range（“A1:A5”）
对于myRange中的每个myCell
如果myCell.Value vbNullString，则
Me.ListBox1.AddItem myCell.Value
如果结束
下一个迈塞尔
端接头

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

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

子jzz
将myRange变暗为Range
暗淡的迈塞尔山脉
设置myRange=Range（“A1:A5”）
对于myRange中的每个myCell
如果myCell.Value vbNullString，则
Me.ListBox1.AddItem myCell.Value
如果结束
下一个迈塞尔
端接头

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

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

子jzz
将myRange变暗为Range
暗淡的迈塞尔山脉
设置myRange=Range（“A1:A5”）
对于myRange中的每个myCell
如果myCell.Value vbNullString，则
Me.ListBox1.AddItem myCell.Value
如果结束
下一个迈塞尔
端接头

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

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

子jzz
将myRange变暗为Range
暗淡的迈塞尔山脉
设置myRange=Range（“A1:A5”）
对于myRange中的每个myCell
如果myCell.Value vbNullString，则
Me.ListBox1.AddItem myCell.Value
如果结束
下一个迈塞尔
端接头