Vba 在工作表中查找每次都不同的特定数据字段
我正试图从我收到的多张电子表格中整理出数值。不幸的是,我感兴趣的字段从不在同一位置,并且可以在我想要的值和将其标识为我想要的数字的相应参考号之间有任意数量的空白单元格。但他们总是在同一排 例如,我需要查找与“1”相关的所有值。人数'。在工作表1'1中。“人数”在单元格B2中,值在单元格B6中。在工作表2中,这些分别位于C4和C7中 我正在使用“查找”指定“1”的位置。人的数量在一定范围内,但在那之后就被卡住了。 我想我需要激活该单元格,然后进行偏移,直到找到下一个非空白单元格并选择要复制的单元格,但我无法确定如何执行此操作 到目前为止,我只知道:Vba 在工作表中查找每次都不同的特定数据字段,vba,excel,Vba,Excel,我正试图从我收到的多张电子表格中整理出数值。不幸的是,我感兴趣的字段从不在同一位置,并且可以在我想要的值和将其标识为我想要的数字的相应参考号之间有任意数量的空白单元格。但他们总是在同一排 例如,我需要查找与“1”相关的所有值。人数'。在工作表1'1中。“人数”在单元格B2中,值在单元格B6中。在工作表2中,这些分别位于C4和C7中 我正在使用“查找”指定“1”的位置。人的数量在一定范围内,但在那之后就被卡住了。 我想我需要激活该单元格,然后进行偏移,直到找到下一个非空白单元格并选择要复制的单元格
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
如果您需要的单元格是第一个非空白单元格,则可以使用rgFound.EndxlToRight查找下一个非空白单元格。谢谢!非常有用。我已经很久没有这样做了,它正在慢慢地回到我的脑海中……谢谢!我也忘了我可以使用“Not”,这是非常有用的!