如果是想用函数我不会,如果是用vba代码,我就会了: 假设:第一行是标题,数据从第二行开始,序列号在B列(强烈建议:截图最好把行列号留出来,不然写出来的可能与实际对不上,你又不会改就没法用了) Dim zd Set zd = CreateObject("scripting.dictionary") For i = 2 To [b10000].End(3).Row s = Cells(i, 2) If Not zd.exists(s) Then zd(s) = i ss = IIf(Len(ss) = 0, i & ":" & i, ss & "," & i & ":" & i) End If Next i Range(ss).Select 如果你数据与假设不一致,需要修改两个地方: for i=2 to ....这里i=2是指从第二行开始; s=cells(i,2),最后的数字2是指第二列即b列