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

flow

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

northwolves

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

复制代码

northwolves

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

复制代码

jackeroo

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

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

sunsoncheng

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

ningyuanchao

真正的救世主是自己。

yangchun88

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

zhaogang1960

受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

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

flow

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

                                           谢谢！
                                            allsione
                                                                                                  2009.8.22