在合併單元格中查找值

Question

我在合併單元格上搜索值時遇到問題。第9行和第10行合併標記爲灰色。現在，我想搜索一個文本「TOTAL」並轉到它的「2812」的拉斯特羅值。有沒有辦法做到這一點，而不取消單元格？另外，「TOTAL」這個詞不是唯一的。另外20列還有「TOTAL」，但我想選擇第一個有這個詞的專欄。

Answer 1

下面假定標題是在activesheet的1行

Sub t() 
Dim rng As Range 
With ActiveSheet 
    Set rng = .Range("A9:" & .Range("ZZ9").End(xlToRight).Address) 
    col = Application.WorksheetFunction.Match("TOTAL", rng, 0) 
    lastrow = .Cells(1000000, col).End(xlUp).Row 
    Debug.Print Cells(lastrow, col).Value 

End With 
End Sub 

爲了找到一個第二次出現，複製代碼，並從 「A9」 到.Cells（9更改開始範圍內，山坳+ 1）。地址，這將啓動新的範圍上下一列

Sub t() 
Dim rng As Range 
With ActiveSheet 
    Set rng = .Range("A9:" & .Range("ZZ9").End(xlToRight).Address) 
    col = Application.WorksheetFunction.Match("TOTAL", rng, 0) 
    lastrow = .Cells(1000000, col).End(xlUp).Row 
    Debug.Print Cells(lastrow, col).Value 

    Set rng = .Range(.Cells(9, col + 1).Address & ":" & .Range("ZZ9").End(xlToRight).Address) 
    col2 = Application.WorksheetFunction.Match("TOTAL", rng, 0) 
    Debug.Print Cells(lastrow, col + col2).Value 

End With 
End Sub