[已解决]range对象错误，这个代码错在哪？

564951257

Sub 查找删除()
Application.ScreenUpdating = False
j = Sheet2.[a65535].End(3).Row
lr = Sheet1.[a65535].End(3).Row
      For x = 1 To j
          For I = lr To 1 Step -1
             Set Rng = sheet1.Range(Cells(1, 1), Cells(lr, 1)).Find(Sheet2.Cells(x, 1), lookat:=xlWhole)
            If Not Rng Is Nothing Then
              I = Rng.Row
               Sheet1.Rows(I).Delete
            End If
          Next I
      Next x
Application.ScreenUpdating = True
End Sub
实际上我一下这样再改是可以的
就是不知道原因是什么
Sub 查找删除()
Application.ScreenUpdating = False
j = Sheet2.[a65535].End(3).Row
lr = Sheet1.[a65535].End(3).Row
sheet1.select
      For x = 1 To j
          For I = lr To 1 Step -1
             Set Rng = Range(Cells(1, 1), Cells(lr, 1)).Find(Sheet2.Cells(x, 1), lookat:=xlWhole)
            If Not Rng Is Nothing Then
              I = Rng.Row
               Sheet1.Rows(I).Delete
            End If
          Next I
      Next x
sheet2.select
Application.ScreenUpdating = True
End Sub

最佳答案

月排行榜 / 总排行榜

蓝桥玄霜

2015-9-28 18:36

1. Sub yy()
   
2. Application.ScreenUpdating = False
   
3. j = Sheet2.[a65535].End(3).Row
   
4. lr = Sheet1.[a65535].End(3).Row
   
5. For x = 1 To j
   
6.     Set Rng = Sheet1.Range(Sheet1.Cells(1, 1), Sheet1.Cells(lr, 1)).Find(Sheet2.Cells(x, 1).Value, lookat:=xlWhole)
   
7.     If Not Rng Is Nothing Then
   
8.         I = Rng.Row
   
9.         Sheet1.Rows(I).Delete
   
10.     End If
    
11. Next x
    
12. Application.ScreenUpdating = True
    
13. End Sub
    

复制代码

跳转到最佳答案楼层

蓝桥玄霜

1. Sub yy()
   
2. Application.ScreenUpdating = False
   
3. j = Sheet2.[a65535].End(3).Row
   
4. lr = Sheet1.[a65535].End(3).Row
   
5. For x = 1 To j
   
6.     Set Rng = Sheet1.Range(Sheet1.Cells(1, 1), Sheet1.Cells(lr, 1)).Find(Sheet2.Cells(x, 1).Value, lookat:=xlWhole)
   
7.     If Not Rng Is Nothing Then
   
8.         I = Rng.Row
   
9.         Sheet1.Rows(I).Delete
   
10.     End If
    
11. Next x
    
12. Application.ScreenUpdating = True
    
13. End Sub
    

复制代码

564951257

蓝桥玄霜 发表于 2015-9-28 18:36

有点明白了，少了range的对象sheet1，您是不是觉得我的这步“For I = lr To 1 Step -1”是多余的没有意义的，我觉得也是，您觉得呢

fjmxwrs

564951257 发表于 2015-10-15 22:45
有点明白了，少了range的对象sheet1，您是不是觉得我的这步“For I = lr To 1 Step -1”是多余的没有意义 ...

你是循环sheet2表，删除sheet1表的行，当然不需要倒循环来处理，你非要倒循环也没有问题的
只是你sheet1表是不需要循环的呀，以下这样子也是行的

1. Sub yy()
   
2.     Application.ScreenUpdating = False
   
3.     j = Sheet2.[a65535].End(3).Row
   
4.     lr = Sheet1.[a65535].End(3).Row
   
5.     For x = j To 1 Step -1
   
6.         Set Rng = Sheet1.Range(Sheet1.Cells(1, 1), Sheet1.Cells(lr, 1)).Find(Sheet2.Cells(x, 1).Value, lookat:=xlWhole)
   
7.         If Not Rng Is Nothing Then
   
8.             I = Rng.Row
   
9.             Sheet1.Rows(I).Delete
   
10.         End If
    
11.     Next x
    
12.     Application.ScreenUpdating = True
    
13. End Sub
    

复制代码

fjmxwrs

564951257 发表于 2015-10-15 22:45
有点明白了，少了range的对象sheet1，您是不是觉得我的这步“For I = lr To 1 Step -1”是多余的没有意义 ...

是要指定工作表的，除非你在当前工作表中运行程序，最好是指定一下，不容易出错，可以用with

如

1. Sub yy()
   
2.     Application.ScreenUpdating = False
   
3.     j = Sheet2.[a65535].End(3).Row
   
4.     lr = Sheet1.[a65535].End(3).Row
   
5.     With Sheet1
   
6.         For x = 1 To j
   
7.             Set Rng = .Range(.Cells(1, 1), .Cells(lr, 1)).Find(Sheet2.Cells(x, 1).Value, lookat:=xlWhole)
   
8.             If Not Rng Is Nothing Then
   
9.                 I = Rng.Row
   
10.                 .Rows(I).Delete
    
11.             End If
    
12.         Next x
    
13.     End With
    
14.     Application.ScreenUpdating = True
    
15. End Sub

复制代码

564951257

fjmxwrs 发表于 2015-10-15 23:04
是要指定工作表的，除非你在当前工作表中运行程序，最好是指定一下，不容易出错，可以用with

如

学习了~~谢谢！！