如何引用find函数查找到的单元格的位置。

allwin88

各位老师好！

附件已上传。

有个问题费解中。

首先用find函数找到"客户料号"
Dim ar, Rng As Range, rg As Range, i&
ar = Array("客户料号", "CD_PRODUCT", "ITEM")
For i = 0 To 2
  Set Rng = Cells.find(what:=ar(i))
  If Not Rng Is Nothing Then
    If rg Is Nothing Then Set rg = Rng Else Set rg = Union(rg, Rng)
  End If
Next
If Not rg Is Nothing Then rg.Select Else MsgBox "无匹配单元格"

查找到客户料号之后，需要用if函数判断客户料号单元格再往下第2个单元格是否为空，如何引用这个单元格？
如果不为空，则执行后续代码，如果为空则不执行。

麻烦老师指导赐教，谢谢！^^

LMY123

参考
http://club.excelhome.net/thread-1303940-1-1.html

allwin88

LMY123 发表于 2016-10-9 17:28
参考
http://club.excelhome.net/thread-1303940-1-1.html

看不懂啊。。晕。

LMY123

allwin88 发表于 2016-10-10 10:03
看不懂啊。。晕。

分别上传一个原始表格和你想达到的结果表格吧

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim rng As Range
   
4.   With Worksheets("sheet1")
   
5.     Set rng = .UsedRange.Find(what:="客户料号", LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByRows, searchdirection:=xlPrevious)
   
6.     If rng Is Nothing Then
   
7.       MsgBox "不存在[客户料号]"
   
8.     Else
   
9.       If Len(rng.Offset(1, 0)) = 0 Then
   
10.         MsgBox 1
    
11.       Else
    
12.         MsgBox 2
    
13.       End If
    
14.     End If
    
15.   End With
    
16. End Sub
    

复制代码

chxw68

使用offset()就可以实现。

allwin88

LMY123 发表于 2016-10-10 10:37
分别上传一个原始表格和你想达到的结果表格吧

您好！
如主楼附件，我就想判断A3单元格（当然这个A3单元格的位置，是随着find查找的结果变化的）是否为空，如果为空则不执行下一个代码，如果不为空，则执行下一个代码。