告诉find函数查找第36行之后的第一个匹配项吗？

试试这个：

startingRow = 36
With wksDreamSheet
    Set rng = .Range(startingRow & ":" & .Rows.Count).Find("Summa/Snitt", , , , xlByRows, xlNext)
End With

或更可靠：

Dim rng As Range
startingRow = 36

With wksDreamSheet
    Set rng = .Range(startingRow & ":" & .Rows.Count).Find("Summa/Snitt", , , , xlByRows, xlNext)
End With
If Not rng Is Nothing Then
    foundRow = rng.Row
Else
    foundRow = 1 ' or any other number (or msgbox with error)
End If