查找每次都不相同的工作表中的特定数据字段

问题描述：

我正在尝试整理来自多个电子表格的值。不幸的是，我感兴趣的字段永远不在同一个位置，并且可以在我想要的值和相应的参考号（将其标识为我想要的号码）之间有任意数量的空白单元格。尽管如此，它们总是在同一行。查找每次都不相同的工作表中的特定数据字段

例如，我需要找到所有与'1相关的值。人数'。在工作表1'1。人数'在单元格B2中，值在单元格B6中。在工作表2中，这些分别在C4和C7中。

我正在使用'find'来指定'1'的位置。在一定范围内的人数，但在此之后卡住。我想我需要激活该单元格，然后抵消，直到我找到下一个非空白单元格并选择该复制，但无法解决如何执行此操作。

到目前为止，所有我拥有的是：

Dim rgFound As Range 

Set rgFound = Range("A1:E6").Find("1.Number of people", lookat:=xlWhole)

你可以看到我没有得到很远！在此先感谢。

假设您需要的单元格是第一个非空白单元格，您可以在“rgFound.End（xlToRight）”中找到下一个非空白单元格。 –

谢谢！很有用。自从我做完这件事以来已经过了很多年了，它正在慢慢地回到我身边。 – user7618694

答

给这个镜头。

Dim rgFound As Range 
Set rgFound = Range("A1:E6").Find("1.Number of people", lookat:=xlWhole) 

Dim rgValue as Range 

If Not rgFound is Nothing Then 
    If Len(rgFound.Offset(1)) Then 'if the very next row is the next non-blank cell 
     Set rgValue = rgFound.Offset(1) 
    Else 'if blanks appear between found and value 
     Set rgValue = rgFound.End(xlDown) 
    End If 
End If

谢谢！我也忘记了我可以使用'不'，这非常有帮助！ – user7618694

查找每次都不相同的工作表中的特定数据字段

相关推荐