Excel VBA に詳しい方ご指導ください 下記のようなタブ区切りのテキストファイ...

「テキストファイル」ということで、エクセルの機能を使わない（エクセルそのものを使わない）「VBScript」による回答です（★★★のちに、「VBA」版も掲載します）。

このプログラムは、目的のテキストファイル（「～.txt」ファイル）を、１つだけ、プログラムファイルにドラッグ＆ドロップするだけです。

以下のプログラムを、メモ帳かテキストエディタに貼り付け、「～.vbs」という名前で保存します。

「～」の部分は、何でもかまいませんが、「.vbs」の部分は、必ず、半角です。

できたプログラムファイルに「～.txt」ファイルを１つだけ、ドラッグ＆ドロップするだけです。

Option Explicit
Dim a, c, m, n, so, tx, wa
Set so = CreateObject("Scripting.FileSystemObject")
Set wa = WScript.Arguments
If wa.Count <> 1 or Lcase(so.GetExtensionName(wa(0))) <> "txt" Then
MsgBox("ドラッグ＆ドロップできるのは、txtファイル１つだけです")
WScript.Quit
End If
Set tx = so.OpenTextFile(wa(0), 1)
m = 0
Do Until tx.AtEndOfStream
a = Split(tx.ReadLine, vbTab)
c = a(0) * 1
If m = c Then
n = n + 1
ElseIf m < c Then
m = c
n = 1
End If
Loop
tx.Close
Set tx = Nothing
MsgBox(m & "が" & n & "個ある")
Set wa = Nothing
Set so = Nothing

簡単な説明です。

Set so = CreateObject("Scripting.FileSystemObject")

ファイルやフォルダを扱えるようにしていますが、今回は特に、「テキストファイル」を扱うのにも必要です。

Set wa = WScript.Arguments
If wa.Count <> 1 or Lcase(so.GetExtensionName(wa(0))) <> "txt" Then
MsgBox("ドラッグ＆ドロップできるのは、txtファイル１つだけです")
WScript.Quit
End If

ドラッグ＆ドロップされるのを待っていて、ドラッグ＆ドロップされると、その数や拡張子を調べ、想定外なら、メッセージを表示して、プログラムそのものを終了してしまいます。

Set tx = so.OpenTextFile(wa(0), 1)

ドラッグ＆ドロップされたファイルを「読み込み専用」で開いています。

m = 0

最大値を格納する変数の初期化。

Do Until tx.AtEndOfStream

ファイルの終端まで処理。

a = Split(tx.ReadLine, vbTab)

「Split()」といのは、区切り記号（今回は「Tab」）を使って、配列変数に格納する関数です。

たとえば、読み込んだ１行が「a[TAB]b[TAB]c」の場合、「a(0) = "a"」、「a(1) = "b"」、「a(2) = "c"」となります。

c = a(0) * 1

読み込んだ値は、文字列になっているので、「*1」して「数値」に変換しています。

If m = c Then

もし、それまでの最大値と一致したら、

n = n + 1

１つカウント。

ElseIf m < c Then

それ以外で、それまでの最大値より大きければ、

m = c

新たに、その値を「m」に入れています。

n = 1

最大値個数用変数を「１」にしています。

End If
Loop

を、ファイルの終端まで繰り返しています。

tx.Close
Set tx = Nothing

ファイルを閉じています。

MsgBox(m & "が" & n & "個ある")

「（最大値）が（何）個ある」と表示しています。

Set wa = Nothing
Set so = Nothing

「Set ～」で使った変数は、使用後「Nothing」で解放しておきます。

★★★考え方は全く同じですが、「VBA」版です★★★

Sub Sample()
Dim a, c As Long, m As Long, n As Long, x As String
Open "D:\Programming\csv\Max.txt" For Input As #1
m = 0
Do Until EOF(1)
Line Input #1, x
a = Split(x, vbTab)
c = Val(a(0))
If m = c Then
n = n + 1
ElseIf m < c Then
m = c
n = 1
End If
Loop
Close #1
MsgBox (m & "が" & n & "個ある")
End Sub

考え方が同じですので、説明の必要はないと思います。

テキストファイルをシートに読み込み、A列のなかで、最大値の数値をカウントするというフローを考えると以下のような手番を踏むと思います。

(1)シートへの書き出し：
i = 10
Do Until EOF(N)
Line Input #N, D
i = i + 1
Cells(i, 1).Value = D
Loop

（２）項目ごとに列を分ける（区切り位置で分割）
'http://www9.plala.or.jp/siouxsie/excel/date01.html
データ～区切り位置のマクロの記録か、splitの繰返しか、などで。

（３）A列で最大値をMAX関数で求めて、最大値をcountif関数で求める。
' 区切り位置で、C列に出力するとした場合、
MsgBox WorksheetFunction.Max(Range("c:c"))

MsgBox WorksheetFunction.CountIf(Range("c:c"), WorksheetFunction.Max(Range("c:c")))