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

我正在嘗試整理來自多個電子表格的值。不幸的是，我感興趣的字段永遠不在同一個位置，並且可以在我想要的值和相應的參考號（將其標識爲我想要的號碼）之間有任意數量的空白單元格。儘管如此，它們總是在同一行。查找每次都不相同的工作表中的特定數據字段

例如，我需要找到所有與'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)

你可以看到我沒有得到很遠！在此先感謝。

來源

2017-02-24 user7618694

假設您需要的單元格是第一個非空白單元格，您可以在「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

來源

2017-02-24 20:07:49

謝謝！我也忘記了我可以使用'不'，這非常有幫助！ – user7618694

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

回答

相關問題