求助各位大佬！——excel2007-vba循环终值为变量时遇到问题!!

zbh_ronaldo

求助excel2007-vba循环终值为变量时遇到问题.rar (262.25 KB, 下载次数: 1)

2014-1-10 16:51 上传

点击文件名下载附件

我在2007中循环时遇到循环变量终值为变量时不及时传递（或改变）值的情况，但在2003中运行没问题，紧急求助各位兄弟姐妹帮忙分析分析！

zbh_ronaldo

有好心人么，自己先顶一下

likeslh

用的VBA？好像没有找到代码在哪个地方呢

zbh_ronaldo

Sub test()
    Dim y As Integer, T As Integer, W As Integer, x As Integer, h As Integer, Mr As Integer, MySearch1 As Range, MySearch2 As Range, MySR1 As Integer, Firstaddr1 As Variant, Firstaddr2 As Variant
    Sheets(3).Select
    With ActiveWorkbook.Sheets(3)
        Mr = .Cells(65336, 3).End(xlUp).Row
        For x = 2 To 5
            For h = 2 To Mr
                If .Cells(h, 12) <> "" Then Rows(h).Delete Shift:=xlUp
                Mr = .Cells(65336, 3).End(xlUp).Row
            Next h
        Next x

        Sheets(2).Select
        T = 2
        For x = 1 To 100
            For h = T To Mr
                With Sheets(2).Columns(1)
                    Set MySearch1 = .Find(What:=Sheets(3).Cells(h, 3), After:=.Cells(1, 1), LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns, _
                                          SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
                    If Not MySearch1 Is Nothing And Sheets(3).Cells(h, 12) <> "循环标识" Then
                        Firstaddr1 = MySearch1.Address
                        Set MySearch2 = .FindNext(After:=MySearch1)
                        y = h + 1
                        W = 0
                        Do While Not MySearch2 Is Nothing And MySearch2.Address <> Firstaddr1
                            MySR1 = MySearch2.Row
                            With Sheets(3)
                                .Rows(h).Copy
                                .Rows(h).Insert Shift:=xlUp
                                .Cells(y, 3).Interior.ColorIndex = 39
                                .Cells(y, 6) = Sheets(2).Cells(MySR1, 4)
                                .Cells(y, 9) = Sheets(2).Cells(MySR1, 5)
                                .Cells(y, 10) = Sheets(2).Cells(MySR1, 6)
                                .Cells(y, 11) = Sheets(2).Cells(MySR1, 3)
                                .Cells(y, 12) = "循环标识"
                                W = W + 1
                            End With
                            Set MySearch2 = .FindNext(After:=MySearch2)
                        Loop
                        Set MySearch2 = Nothing
                        Set MySearch1 = Nothing
                    End If
                End With
                T = y + W
                Mr = .Cells(65336, 3).End(xlUp).Row
            Next h
            T = y + W
            Mr = .Cells(65336, 3).End(xlUp).Row
        Next x
        'MsgBox h & "_" & Mr
    End With
End Sub

上述代码中，若没有“ For x = 1 To 100”这个语句，则不会从sheets(2)中搜索出符合sheets(3)中的证券权益，为何？

zbh_ronaldo

是vba啊，代码见附件Test20140110.bas，上述问题简化起来就是：循环时，如果终值是变动的，则可能无法完全实现循环目的，除非在原循环基础上再重复几遍。比如根据某一条件删除某一列表中的特定几行，当循环终值取.cells(65336,1).end(xlup).row时就会出现一次删不干净的情形，只有重复循环几遍才能删除干净。

sevenstar

zbh_ronaldo 发表于 2014-1-15 09:09
是vba啊，代码见附件Test20140110.bas，上述问题简化起来就是：循环时，如果终值是变动的，则可能无法完全实 ...

代码没看，但一般删除单元格时从下往上删不会出问题。