Vba 配列の中の特定文字列の位置の調べ方

Question

Vbaで配列の中の特定文字列を調べる際にdictionaryを使おうとしたのですがdictionaryのkeyの要素が重複すると、エラーが出るので配列の中に重複する要素があると使えませんどうすれば良いですか？

Qchan1962 · Accepted Answer

Dictionaryは重複データは入れられないけど
使い道、取り出す時どうするのかな・・？
添え字を後から削除する必要が無ければ
        If Not map.Exists(ary(i)) Then
        Call map.Add(ary(i), CStr(i))
        Else
        Call map.Add(ary(i) & "|" & n, CStr(i))
        n = n + 1
        End If
必要があれば出力時、instr ・・Split　 などで

もし、重複データは不要なら　＃２様が回答されている通り
        If Not map.Exists(ary(i)) Then Call map.Add(ary(i), CStr(i))
で良いと思いますよ

めぐみん_ · Answer

あとは

[VBA]ArrayListの使い方を知れば動的配列も解決！
https://y-moride.com/vba/arraylist-how-to-use.html#toc10

こちらを使うか。
ただwin10と相性が悪い場合もあるような記事も見かけたので、
他だとDicを２つ使うか？

めぐみん_ · Answer

配列の何番目って提示しているサイトにヒントが

For k = 0 To 10000 ' To map.Count - 1
            If ("8" = ary(k)) Then
                '// この時点の変数kの値が検索文字列がある配列の位置になる
                Exit For
            End If
        Next

記載されていますよ。

めぐみん_ · Answer

＞要素の字数が2文字以上だと有効では無いですよね？

検索文字数が２文字以上でも出来ますが（要素数が多いと重いかな？）、
２次元配列ってなら無理かもですね。

Qchan1962 · Answer

＃４
なるほど・・
何をされたいか良く分からないのですが・・ごめんなさい

If Not Dic.exists(Cells(i, 1).Value) Then
        Dic.Add ary(i, 1).Value, ary(i, 2).Value
    Else
        Dic.Add ary(i, 1).Value & "|" & n, ary(i, 2).Value
        n = n + 1
    End If

keyに添え字付加？後でSplit出来るように"|"　とか？
取り出す処理負荷どうかな・・・少し乱暴？

Qchan1962 · Answer

こんばんは
＞dictionary　を使用する目的が良く分かりませんが
配列を作るのにdictionaryを使用すると言う事でしょうか？
重複データを除く為にはよく使われますが、入れると言う事であれば、
違う方法が良いのではないかと思います　
itemに添え字を付けるとかも出来るとは思いますが。。

既に配列が有ってその中には重複データも含まれている内容を調べる場合
調べる内容にもよりますが、べたに考えると配列内をループで探せばよいですね

参考コード
Dim i, j, ary
ary = Range("A1:F10")
    For i = LBound(ary, 1) To UBound(ary, 1)
        For j = LBound(ary, 2) To UBound(ary, 2)
            If ary(i, j) = "keyword" Then Debug.Print ary(i, j); " = 行 :"; i; " 列 :"; j
        Next
    Next

aryは2次元配列
A1:F10範囲内のキーワードを探して　行№と列№を出力します

探す方法は調べる内容にもよりますが、色々あると思いますので参考サイト
https://www.sejuku.net/blog/70270

めぐみん_ · Answer

No.2です。
老眼です。

http://officetanaka.net/excel/vba/function/Join.htm
http://officetanaka.net/excel/vba/function/instr.htm

１次元配列なら
joinで１行の文字列にしinstrで存在しているならどこにあるかを調べる。
存在してなければ0になる。

if instr(join(配列変数, "_"), "調べたい値")>0 then
'存在する時
else
'存在しない時
end if

めぐみん_ · Answer

エラーが出るそのコードが知りたいですが。

http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_dictionary.html
最初の方のコード

If Not myDic.exists(Cells(i, 1).Value) Then
『もしkeyが既に存在してなければ

が良く使ってます。
Not を消せば
『もしkeyが存在していれば』になりますね。

ShowMeHow · Answer

instr関数でnullが返されるまで、ループを作ってスタート位置を変えるとか？
https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/instr-function

Vba 配列の中の特定文字列の位置の調べ方

Dictionaryは重複データは入れられないけど

あとは

配列の何番目って提示しているサイトにヒントが

＞要素の字数が2文字以上だと有効では無いですよね？

＃４

こんばんは

No.2です。

エラーが出るそのコードが知りたいですが。

instr関数でnullが返されるまで、ループを作ってスタート位置を変えるとか？

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング