excel2010中如何查询一列数据中相同数值之间隔了几行.同一数值出现三次以上.

来源：学生作业帮编辑：神马作文网作业帮分类：综合作业时间：2024/11/11 16:19:37

excel2010中如何查询一列数据中相同数值之间隔了几行.同一数值出现三次以上.
例如：A B
111
222
333
111 2
121
122
123
111 3
222 6
121 4
333 7
111 3
122 6
想要像B列一样的结果,想知道是否可以实现?有十几万条数据.

你的题目有点问题.是同一数值出2次以上还是3次以上.如果是3次,那么你的122才出现2次呢?

ALT+F11——F7——粘贴如下代码（注意换行）——F5运行即可
Sub mysub()
Dim i As Long, j As Long, a As Long
a = [a65536].End(xlUp).Row
For i = a To 2 Step -1
If Application.WorksheetFunction.CountIf(Range("a:a"), Range("a" & i)) > 1 Then
For j = i - 1 To 1 Step -1
If Range("a" & j) = Range("a" & i) Then
Range("b" & i) = i - j - 1
GoTo label1
End If
Next j
End If
label1: Next i
End Sub

这个是不换行即可的代码.
Sub mysub()
Dim i As Long,j As Long,a As Long
a = [a65536].End(xlUp).Row
For i = a To 2 Step -1
If Application.WorksheetFunction.CountIf(Range("a:a"),Range("a" & i)) > 1 Then
For j = i - 1 To 1 Step -1
If Range("a" & j) = Range("a" & i) Then
Range("b" & i) = i - j - 1
GoTo label1
End If
Next j
End If
label1:Next i
End Su