[已解决]VBA计算最后这个具体在哪一行

laoau138 · 发表于 2017-3-4 19:50

本帖最后由 laoau138 于 2017-3-5 12:50 编辑

VBA计算最后这个具体在哪一行

最佳答案

雪舞子

2017-3-5 09:22

Sub test()
Dim ar(1), br(1), cr(4, 1), i%, j%, k%, n%
ar(0) = [e1:f14]: ar(1) = [d21:d25]
For i = 0 To 1
br(i) = cr
Next
For i = 0 To 4
For k = 0 To 1
For j = 1 To UBound(ar(0))
If Left(ar(0)(j, k + 1), 1) & Mid(ar(0)(j, k + 1), 3, 1) <> ar(1)(i + 1, 1) Then
If n > br(0)(i, k) Then
br(0)(i, k) = n: br(1)(i, k) = j - 1
Else
If n = br(0)(i, k) And n > 0 Then br(1)(i, k) = br(1)(i, k) & "," & j - 1
End If
n = 0
Else
n = n + 1
End If
Next
Next
Next
[e21:f25] = ""
[e21:f25] = br(1)
End Sub

复制代码

雪舞子 · 发表于 2017-3-5 09:22

Sub test()
Dim ar(1), br(1), cr(4, 1), i%, j%, k%, n%
ar(0) = [e1:f14]: ar(1) = [d21:d25]
For i = 0 To 1
br(i) = cr
Next
For i = 0 To 4
For k = 0 To 1
For j = 1 To UBound(ar(0))
If Left(ar(0)(j, k + 1), 1) & Mid(ar(0)(j, k + 1), 3, 1) <> ar(1)(i + 1, 1) Then
If n > br(0)(i, k) Then
br(0)(i, k) = n: br(1)(i, k) = j - 1
Else
If n = br(0)(i, k) And n > 0 Then br(1)(i, k) = br(1)(i, k) & "," & j - 1
End If
n = 0
Else
n = n + 1
End If
Next
Next
Next
[e21:f25] = ""
[e21:f25] = br(1)
End Sub

复制代码

laoau138 · 发表于 2017-3-5 12:50

雪舞子发表于 2017-3-5 09:22

雪舞子大侠，果然是高手

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

[已解决]VBA计算最后这个 具体在哪一行