本人第5次跪求各位英雄给予帮助，再没人帮忙也许真的是无人或是无能了！

flow · 发表于 2009-7-9 04:41

本人已多次求论坛网友帮忙解决这个难题，第一次发时，第一位英雄把批注(注释)文字写入VBA里，后面来跟远了。以后没有人给予帮助了，这次再次求助各位，再没人帮忙也许真的是无人或是无能了！

northwolves · 发表于 2009-7-9 06:53

Sub macro1()
Dim r As Range, r2 As Range
For Each r In [g6].Resize([g65536].End(xlUp).Row - 5)
Set r2 = [g1].Resize(r.Row - 1).Find(r, , , xlWhole, , xlPrevious)
If Not r2 Is Nothing Then
If r2.Row < r.Row Then r.Offset(, 1) = r.Row - r2.Row
End If
Next
End Sub

复制代码

northwolves · 发表于 2009-7-9 06:56

Sub macro1()
Dim r As Range, r2 As Range
For Each r In [g6].Resize([g65536].End(xlUp).Row - 5)
Set r2 = [g1].Resize(r.Row - 1).Find(r, , , xlWhole, , xlPrevious)
If Not r2 Is Nothing Then r.Offset(, 1) = r.Row - r2.Row '=r2.row 则显示上次出现位置
Next
End Sub

复制代码

jackeroo · 发表于 2009-7-9 11:00

原帖由 flow 于 2009-7-9 04:41 发表
本人已多次求论坛网友帮忙解决这个难题，第一次发时，第一位英雄把批注(注释)文字写入VBA里，后面来跟远了。以后没有人给予帮助了，这次再次求助各位，再没人帮忙也许真的是无人或是无能了！

啥叫无人或无能啊，你这种标题大家最反感。

sunsoncheng · 发表于 2009-7-9 11:30

求人不如求已,自力更生
才是硬道理

ningyuanchao · 发表于 2009-7-9 12:55

真正的救世主是自己。

yangchun88 · 发表于 2009-7-9 13:03

激将法!还不谢谢高手给你解决了!

zhaogang1960 · 发表于 2009-7-9 13:32

受northwolves版主启发，按照楼主要求：
Sub Macro2()
Dim arr, r As Range, lr As Long, i As Long
lr = Range("G65536").End(xlUp).Row
arr = Range("G1:G" & lr)
Columns(8).ClearContents
For i = UBound(arr) - 1 To 6 Step -1
Set r = Cells(i + 1, 7).Resize(lr - i).Find(arr(i, 1), , , xlWhole, , xlPrevious)
If Not r Is Nothing Then r.Offset(, 1) = r.Row - i - 1
Next
End Sub

987654321 · 发表于 2009-7-10 09:26

又是一个用EXCEL讨论 “陆河踩”的贴子

flow · 发表于 2009-8-23 15:52

zhaogang1960 网友我在查看代码的编辑代码的地方加入了你写的，但没有我想要的结果，要怎么搞，请您再幸苦一下能否在我的附件上做出我想要的结果！

                                       谢谢！
                                          allsione
                                                                                                2009.8.22

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

[求助] 本人第5次跪求各位英雄给予帮助，再没人帮忙也许真的是无人或是无能了！

回复 8楼 zhaogang1960 的帖子