>>822
(´・ω・｀)今リストボックスにセルから拾った内容ぶちこむ処理書いてるんだけど、
Ifで分岐させて空白があったらスルー処理しようとしてるんだけど、どう書いたらええやろか

'↓コード-----------------------------------------------
With List_001
For I = 4 To 100
.AddItem ActiveSheet.Cells(I, 4)
If 'どう書いたら良いか悩み中
Next I
End With