最も多い文字列を検索するには

質問

皆様いつもお世話になっております。
最も多い文字列を検索するにはどのようにすればよいでしょうか。
具体的には
(1)A列に6文字の文字列が並んでいます。
(2)先頭4文字の文字列で最も多い種類の文字列の値を取得する
(3)最も多い文字列以外の文字列を含む行を削除する
というプログラムを組みたいと思います。

よろしくお願いします。

回答No.1

ctrlzr

要は、先頭4文字でもっともダブりが少ない文字列を抜き出すということですね。私はよくDictionaryやCollectionを使います。名前つき配列
というものです。同じ名前では登録できないので、先頭から4文字を加えて、全部同じなら１つ、全部異なるなら、４つになります。
A列の記載があるので、Excelの前提です。（試してません^_^;
dim rg as Excel.Range
dim dic as Scripting.Dictionary
dim adrs as String
dim i as long
dim lcnt as long
set rg = ActiveSheet.Range("A1")
do while rg.text <> ""
set dic = New Scripting.Dictionary
for i=1 to 4
dic.add mid$(rg.text,i,1) 'ダブってもエラーにならなかったはず...
next
if (lcnt < dic.Count) then
lcnt = dic.Count
adrs = rg.address
end if

set rg = rg.Offset(1,0)
loop

補足

ctpzrさんありがとうございます。
試してみましたが、2行目の "as ScriptingDictionary"のところで"ユーザ定義型は定義されてません"とエラーが出てしまいます。
どのように対処したらよいでしょうか?