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

我正在尝试整理来自多个电子表格的值。 不幸的是,我感兴趣的领域永远不在相同的位置,并且可以在我想要的值和相应的参考数字(将其标识为我想要的数字)之间具有任意数量的空白单元格。 尽pipe他们总是在同一排。

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

我正在使用“查找”来分配“1”的位置。 在一定范围内的人数,但在此之后卡住。 我想我需要激活该单元格,然后抵消,直到我find下一个非空白单元格,并select要复制,但不能解决如何做到这一点。

到目前为止,我所拥有的是:

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

你可以看到我还没有很远! 提前致谢。

给这个一个镜头。

 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