名簿から名前（アルファベット）を拾って
頭文字別の一覧表シートを作成しようとしています。
ソート後に頭文字を
if str[i] == str[i+1]
hoge列に代入
elseif str[i] != str[i+1]
hoge = hoge+1
hoge列に代入
という方法でやろうと思ってるんですが
（if a 〜　if z では長くて面倒ですし・・）
他に方法というかVBA側で用意されてるものってあったりしますか？
リスト構造体的なものがあってそこに文字列ぶちこんで
検索文字抽出→GetNextで抽出文字列を順々に引っ張り出せたりとか・・
そういったものがあったりしないかなぁと思い質問させていただきました。