> うまくいかないというのは、A,B,Cのデータが混在しているファイルの場合ひとつしか表示しません。なにがひとつしか表示しないのでしょうか?> Dim A_COUNT As Integer B_COUNT C_COUNT が表示しないという事なら、どこで宣言しているのでしょうか