VBA求：同列中两个相等数之间的行距。

xiashuming1 · 发表于 2019-12-15 16:26

本帖最后由 xiashuming1 于 2019-12-15 16:51 编辑

Sub JL()
Dim i As Long, j As Long
For i = 2 To 21
      For j = i + 1 To 21
         If Cells(i, 2) = Cells(j, 2) Then
         Cells(j, 3) = j - i - 1
      End If
      Next j
Next i
End Sub

上述VBA是求：同列中两个相等数之间相距的行数。

因为B:B的数据可能是成千上百个，如把For i = 2 To 21改成For i = 2 To 10000，VBA的运行速度又太慢了，可不可以优化成：Do While sells(i,2)<>""或数组这样的语句，但自己不会改，囧！请指教，非常谢谢！您的程序还得请您注释一下，谢谢！

microyip · 发表于 2019-12-15 16:39

Sub JL()
Dim vData As Variant, nRow As Double
Dim oDic As Object, vFill As Variant
Set oDic = CreateObject("Scripting.Dictionary")
nRow = Cells(Rows.Count, 2).End(xlUp).Row
vData = [B1].Resize(nRow).Value
ReDim vFill(2 To nRow, 1 To 1)
For nRow = 2 To UBound(vData)
If oDic.Exists(vData(nRow, 1)) Then vFill(nRow, 1) = nRow - oDic(vData(nRow, 1)) - 1
oDic(vData(nRow, 1)) = nRow
Next
[C2].Resize(UBound(vFill) - 1) = vFill
End Sub

复制代码

3+1=2+2 · 发表于 2019-12-15 16:40

来个附件，帮你弄

xiashuming1 · 发表于 2019-12-15 16:52

3+1=2+2 发表于 2019-12-15 16:40
来个附件，帮你弄

我已经上传了附件，辛苦你了

3+1=2+2 · 发表于 2019-12-15 16:53

Sub Test()
Dim i&, j&, k&, arr, brr
endRow = Range("b2").End(xlDown).Row
For i = 2 To endRow
For j = i - 1 To 1 Step -1
If Cells(j, 2) = Cells(i, 2) Then
Cells(i, 3) = i - j - 1
GoTo 1
End If
Next
1
Next
End Sub

复制代码

xiashuming1 · 发表于 2019-12-15 16:58

本帖最后由 xiashuming1 于 2019-12-15 17:00 编辑

microyip 发表于 2019-12-15 16:39

您好，辛苦了，但程序运行出现下标越界！
我重新上传Excel文档，要不您下载看看调式一下
是在这里出现的 ReDim vFill(2 To nRow, 1 To 1)

xiashuming1 · 发表于 2019-12-15 17:04

本帖最后由 xiashuming1 于 2019-12-15 17:19 编辑

3+1=2+2 发表于 2019-12-15 16:53

microyip · 发表于 2019-12-15 17:08

在《求助》那个表里运行不正常吗？我是根据你这个《求助》表写的，不是万能的，Word哥！
至于另外一个表想实现功能，自己研究一下代码是什么意思（如果说不懂代码，请学习一下基础知识就明白了），稍稍改动一下就完了

xiashuming1 · 发表于 2019-12-15 17:11

microyip 发表于 2019-12-15 17:08
在《求助》那个表里运行不正常吗？我是根据你这个《求助》表写的，不是万能的，Word哥！
至于另外一个表想 ...

好的，辛苦你了，可以把你做的那份excel表发我一下吗

microyip · 发表于 2019-12-15 17:14

xiashuming1 发表于 2019-12-15 17:11
好的，辛苦你了，可以把你做的那份excel表发我一下吗

直接把代码Copy进去就能用啦，还需要给我“做的那份”发给你？

		自动登录	找回密码
密码			免费注册

[求助] VBA求：同列中两个相等数之间的行距。

评分

评分

最新热点 /1