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

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

質問者からの補足コメント

• しかしそうすると処理が遅いのが欠点ですよね？

  No.4の回答に寄せられた補足コメントです。 補足日時：2022/05/23 18:34

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

  No.3の回答に寄せられた補足コメントです。 補足日時：2022/05/23 18:37

• https://vbabeginner.net/convert-array-to-associa … このサイトのような事をしたいです。

    補足日時：2022/05/23 18:55

• 特定の文字列が配列の何番目の位置にあるかを知りたいのです。

  No.7の回答に寄せられた補足コメントです。 補足日時：2022/05/23 19:38

• しかしそれだと、dictionaryを利用する方法より処理が遅いです。

  No.8の回答に寄せられた補足コメントです。 補足日時：2022/05/23 20:06

No.7 ベストアンサー 回答者： Qchan1962 回答日時： 2022/05/23 19:19

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))
で良いと思いますよ

No.9 回答者： めぐみん_ 回答日時： 2022/05/23 20:39

あとは

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

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

No.8 回答者： めぐみん_ 回答日時： 2022/05/23 20:05

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

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

記載されていますよ。

No.6 回答者： めぐみん_ 回答日時： 2022/05/23 19:07

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

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

No.5 回答者： Qchan1962 回答日時： 2022/05/23 18:50

＃４

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

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出来るように"|"　とか？
取り出す処理負荷どうかな・・・少し乱暴？

No.4 回答者： Qchan1962 回答日時： 2022/05/23 18:27

こんばんは

＞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

No.3 回答者： めぐみん_ 回答日時： 2022/05/23 18:14

No.2です。

老眼です。

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

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

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

No.2 回答者： めぐみん_ 回答日時： 2022/05/23 18:03

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

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

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

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

No.1 回答者： ShowMeHow 回答日時： 2022/05/23 18:00

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

https://docs.microsoft.com/ja-jp/office/vba/lang …