VBAでのリストボックスの重複を非表示にするやり方について https://atmarkit.itmedia.co.jp/ait/articles/1501/30/news038.html 上記のサイトを見ながらリストボックスの重複した文字を表示しないようにしているのですがうまくいきません。 お手数ですが上記のサイトと比較しておかしなところを改善いただけますでしょうか。 エラーにはならないのですが、最初の氏名がひとつだけしか出てきません。 変更点は、 一覧リストボックスをListBox1 B2から始まっている氏名のセルをA1から始める For i = ３ To 28を 2 To 最終列の最後のセルを取得に変更しています。 氏名データが載っているシートはSheet1です。 以下作成したコードです。 Dim i As Integer Dim j As Integer Dim 判定 As Boolean Dim lastRow As Long lastRow = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row For i = 2 To lastRow If ListBox1.ListCount = 0 Then ListBox1.AddItem Cells(i, 1) Else 判定 = False For j = 0 To ListBox1.ListCount - 1 If Cells(i, 1) = ListBox1.List(j) Then 判定 = True Exit For End If Next If 判定 = False Then ListBox1.AddItem Cells(i, 1) End If Next よろしくお願いいたします。