单关键词》所在行》loop》重新排序》无法直接在一个sub里》清空所有空行》

youxianwei

201607102111【问】b10》输入关键词》自动触发》b10以下关键词所在行》批量自动》剪切到》同工作表最末行以下》批量自动》【出错！】清空所有空行》完成一次重排序？？？？？？？？？？？？？？？！！！！！！！！！！！！！！

youxianwei

Private Sub Worksheet_Change(ByVal 自定义触发单关键词行重排 As Range)   '只要工作表变化就立马清b列为空的空行

    If 自定义触发单关键词行重排.Address(0, 0) <> "B10" Then Exit Sub
                                            '【！要自定义】
    If 自定义触发单关键词行重排.Address(0, 0) = "B10" Then
                                            '【！要自定义】
      Dim findcell As Range
      自定义条目区末行行号 = UsedRange.Rows.Count + 0
                                             '【！要自定义】
      自定义触发单关键词行重排单元格行号 = 10
                                    '【！要自定义】
      自定义触发单关键词行重排单元格列号 = 2
                                    '【！要自定义】
      自定义触发单关键词行重排单元格 = Cells(自定义触发单关键词行重排单元格行号, 自定义触发单关键词行重排单元格列号)
      自定义筛选列列号 = 2
                 '【！要自定义】
      Do
      'Dim n As Long
         Set findcell = Sheet1.Range(Cells(自定义触发单关键词行重排单元格行号 + 1, 自定义筛选列列号), Cells(自定义条目区末行行号 - 0, 自定义筛选列列号)).Find(自定义触发单关键词行重排单元格)
                     '【！要自定义】                                     '【！要自定义】
             If Not findcell Is Nothing Then
                      n = n + 1
                      findcell.EntireRow.Cut Sheet1.Cells(自定义条目区末行行号 + n, 1)
                                           '【！要自定义】
                     
             Else: Exit Sub   '否则会无限循环
            
                  MsgBox "没查到相关内容"
             End If
            
            
          '清空空单元格所在行代码插在loop里面太麻烦了
         
       Loop Until n = 自定义条目区末行行号
     
     End If
     
    '最后一步！为什么不会自动清空空单元格所在的空行呢！？！？！？！？！？！？！？！？！？！？！！？！？！？！？！？！？！？大神求助！！！！
     Columns("B:B").Select
         '【！要自定义】
     Selection.SpecialCells(xlCellTypeBlanks).Select
     Selection.EntireRow.Delete

End Sub

抛砖引玉！！跪求大神！！指点迷津！！！！

youxianwei

唉，自己解决了，exit sub 换成exit do就行了