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

Question

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

Answer 1

你的题目 有点问题.是同一数值出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 Sub