vba find does not work on merged cells

Question

美好的一天，我發現的功能作品發現沒有合併的單元格，但不能與列A中的合併單元格一起工作。它拋出運行時錯誤'91'，對象變量或塊變量不是組。

Ret1 = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*", _ 
, "Please select file") 
If Ret1 = False Then Exit Sub 

Set wb2 = Workbooks.Open(Ret1) 


With wb2.Sheets(1) 
    firstrow = .Range("A:A").find(what:="Total", after:=.Range("A1")).Row + 1 
End With 

Answer 1

下面應該爲你解決這個問題：

With wb2.Sheets(1) 
    firstrow = .Range("A:A").find(what:="Total", after:=.Range("A1")).MergeArea.Cells(1,1).Row + 1 
End With