Listboxに「重複データを除いた」A3:A3000のデータを表示したいのですが、うまくいきません。
以下のようなコードだとエラーになります。
変数i(行番号を表しています)より上のデータにi行と同じデータが無いかvlookupで検索して、vlookupがfalseならListboxに表示、trueなら何もしないで１つ下の行に行く。というようなことをしようとしています。
どう直せばいいのか教えて下さい。
また、他の方法があれば、それでも構いません。
重複データは飛び飛びで入力されています。
並び替えはしません。
Private Sub UserForm_Initialize()
Dim i As Integer
Dim LastRow As Long
With Worksheets("卸在庫DB")
LastRow = .Range("A65536").End(xlUp).Row
For i = 3 To LastRow
If WorksheetFunction.VLookup(Cells(i, 1), Range(Cells(1, 1), Cells(i - 1, 2)), 1, 0) = False Then
ListBox5.AddItem .Cells(i, 1)
End If
Next i
End With
End Sub
No.4
451
70
50pt
VBAでVLOOKUP関数を求めた場合、該当の値が無いとエラーになってしまいます。
If WorksheetFunction.VLookup(Cells(i, 1), Range(Cells(1, 1), Cells(i - 1, 2)), 1, 0) = False Then
上記の部分を下記の通り変更する事で正常に動作するかと思います。
13
13
If WorksheetFunction.CountIf(Range(Cells(3, 1), Cells(i, 1)), Cells(i, 1)) = 1 Then
ちなみにリストに入力するデータはA3からで間違いないですか?
もし1行目や2行目からであれば、赤太字で記した 3 の部分を、
1 や 2 に変更してください。
For i = 3 To LastRow
No.1
2364
25pt
http://www2a.biglobe.ne.jp/~irb_pln/aa5lbox.html
リストＢＯＸ作成時に指定ができるようです
私は、Vb.Netなのですが、作成後オプション設定が可能です。
ありがとうございます。
ただ、私にはイマイチよくわかりませんでした。
No.2
135391198
25pt
もし可能であるならば、一列追加してその列に
=COUNTIF(A$3:A3,A3)
とやってそれをコピーして 行数分貼り付けたらいいでしょう。
で その値が 1のものだけを リストボックスに追加したらいかがでしょうか？
ありがとうございます。
データベースなので、できればワークシート自体は、いじりたくないです。
他に方法がなければ、やってみます。
今後も多分、色々と質問することが出てくると思いますので、そのときはよろしくまたよろしくお願いします。
No.3
1443
40pt
ワークシート関数vlookupを使うと、期待したような動作をしませんでしたので、以下のように書き換えてみました。
Private Sub UserForm_Initialize()
Dim i As Integer
Dim x As Integer '重複フラグ（重複したら１、していなければ０）
Dim LastRow As Long
With Worksheets("卸在庫DB")
LastRow = .Range("A65536").End(xlUp).Row
For i = 3 To LastRow
x = 0 'フラグのリセット
For j = 0 To ListBox5.ListCount - 1 'リストボックスの項目数だけ繰り返し
If (Cells(i, 1) = ListBox5.List(j)) Then
x = 1 'i行目のセル内容がリストボックスに登録済みならフラグを１に
End If
Next j
If x = 0 Then
ListBox5.AddItem .Cells(i, 1) 'フラグが０ならｉ行目の項目を登録
End If
Next i
End With
End Sub
動作速度の面で問題がないこともありませんが、いかがでしょうか？
ありがとうございます。
できました！！
ただ、おっしゃるとおり、動作速度がちょっと問題ですね。
今後も多分、色々と質問することが出てくると思いますので、そのときはよろしくまたよろしくお願いします。
No.4
45170
ここでベストアンサー
50pt
VBAでVLOOKUP関数を求めた場合、該当の値が無いとエラーになってしまいます。
If WorksheetFunction.VLookup(Cells(i, 1), Range(Cells(1, 1), Cells(i - 1, 2)), 1, 0) = False Then
上記の部分を下記の通り変更する事で正常に動作するかと思います。
If WorksheetFunction.CountIf(Range(Cells(3, 1), Cells(i, 1)), Cells(i, 1)) = 1 Then
ちなみにリストに入力するデータはA3からで間違いないですか?
もし1行目や2行目からであれば、赤太字で記した 3 の部分を、
1 や 2 に変更してください。
For i = 3 To LastRow
ありがとうございます！！
できました！！
これで終了したいと思います。
今後も多分、色々と質問することが出てくると思いますので、そのときはよろしくまたよろしくお願いします。
ありがとうございます！！
できました！！
これで終了したいと思います。
今後も多分、色々と質問することが出てくると思いますので、そのときはよろしくまたよろしくお願いします。