作业帮excel2010中如何查询一列数据中相同数值之间隔了几行.同一数值出现三次以上.例如：A B 111 222 333 111 2 121 122 123 111 3 222 6 121 4
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/03 04:15:30
excel2010中如何查询一列数据中相同数值之间隔了几行.同一数值出现三次以上.例如：A B 111 222 333 111 2 121 122 123 111 3 222 6 121 4
excel2010中如何查询一列数据中相同数值之间隔了几行.同一数值出现三次以上.
例如：A B
111
222
333
111 2
121
122
123
111 3
222 6
121 4
333 7
111 3
122 6
想要像B列一样的结果,想知道是否可以实现?有十几万条数据.
excel2010中如何查询一列数据中相同数值之间隔了几行.同一数值出现三次以上.例如：A B 111 222 333 111 2 121 122 123 111 3 222 6 121 4
你的题目 有点问题.是同一数值出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