Sub ABC() Dim i&, j&, N& N = Range("E65536").End(xlUp).Row For i = 1 To N - 1
S = Range("E" & i)
For j = i + 1 To N
If Range("E" & i) = Range("E" & j) Then Rows(j).EntireRow.Hidden = True
Next Next iEnd Sub'程序思路是以身份证号为条件，身份证相同的行保留第一行，其余隐藏。上面代码是假定身份证号在E列，如不有E列代码改为对应列即可。...
