同时选中符合条件的区域

hi5

我想通过 sheet2 里 位置，在sheet1 里查找 到符合条件的单元格，同时选中 符合条件单元格上方 3个单元格区域！！

endupbkb

我觉得你的代码里rng2没有初始化，union（rng2，...）这句代码中rng2一开始是空的，但union定义的单元格区域至少2个的所以出错。

Sub Find_Error()
  Dim rng, rng2 As Range
  Dim I As Integer
For I = 2 To Sheet2.Range("a65536").End(xlUp).Row
     If I = 2 Then
    Set rng = Sheet1.UsedRange.Find(Sheet2.Range("d" & I).Value)
    Set rng2 = rng.Offset(-3, 0).Resize(3, 1)
    Else
     Set rng = Sheet1.UsedRange.Find(Sheet2.Range("d" & I).Value)
      Set rng2 = Application.Union(rng2, rng.Offset(-3, 0).Resize(3, 1))
    End If
Next
rng2.Select
End Sub

这里我用了个if i=2，然后给rng2一个初值，之后就可以了

hi5

endupbkb 发表于 2017-4-8 12:54
我觉得你的代码里rng2没有初始化，union（rng2，...）这句代码中rng2一开始是空的，但union定义的单元格区 ...

报错：对象变量或 with 块变量未设置

大灰狼1976

1. Sub Find_Error()
   
2.   Dim rng, rng2 As Range
   
3. 
   
4.   Dim I As Integer
   
5. 
   
6. For I = 2 To Sheet2.Range("a65536").End(xlUp).Row
   
7.     Set rng = Sheet1.UsedRange.Find(Sheet2.Range("d" & I).Value)
   
8.     If Not rng Is Nothing Then
   
9.       If rng2 Is Nothing Then
   
10.         Set rng2 = rng.Offset(-3, 0).Resize(3, 1)
    
11.       Else
    
12.         Set rng2 = Union(rng2, rng.Offset(-3, 0).Resize(3, 1))
    
13.       End If
    
14.     End If
    
15. Next
    
16. rng2.Select
    
17. End Sub

复制代码

endupbkb

hi5 发表于 2017-4-10 10:03
报错：对象变量或 with 块变量未设置

我在自己电脑上就可以啊

endupbkb

hi5 发表于 2017-4-10 10:03
报错：对象变量或 with 块变量未设置

我知道了，因为你sheet2里面[D4]里面的值（a4右）在sheet1里找不到，所以rng是nothing导致的。