你好:
不太清楚你要的功能，提供一個思路給你
Dim NoDupes As New Collection
Dim Item, Cell
Set temprng = Range("A1:A" & Range("A65536").End(xlUp).Row)
'先找出所有不重複的學號
On Error Resume Next
For Each Cell In temprng
NoDupes.Add Cell.Value, CStr(Cell.Value)
Next Cell
'用公式 COUNTIF 來找出重複的學號
For Each Item In NoDupes
aa = Application.WorksheetFunction.CountIf(temprng, Item)
If aa >= 2 Then '表示有重複的學號
MsgBox "學號: " & Item & " 重複"
End If
Next
--
天行健，君子以自強不息
地勢坤，君子以厚德載物
http://www.vba.com.tw/plog/
"alexsas" 來函：
Post by alexsas請問如何使用vba, 將column A中重複學號
的學生學號列出
--
VBA Junior