小编All*_*lyB的帖子

我正在 Excel VBA 中编写一个子程序，当尝试将 .Find() 的结果分配给 Range 变量时，它不断给出“类型不匹配”错误消息。我非常有信心我的类型是合适的，所以也许某个地方存在语法错误？

非常感谢您的帮助：（星号前面的行是抛出错误的地方）

Sub totalTiger(fCode As String, project As String, ttls() As Double)

    'Set shorcuts to Worksheets
    Dim this As Workbook:   Set this = ThisWorkbook
    Dim proj As Worksheet:  Set proj = this.Worksheets(project)

    'Dim req variables
    Dim tRng As Range:  Set tRng = proj.Range("A:A").Find(What:="Program Description")   'Establish where Staff data ends and Tiger data begins
    ***Dim rng As Range:   Set rng = proj.Range("C:C").Find(What:=fCode, After:=tRng)   'First fCode entry***

    'For each fCode entry BEFORE the Tiger data, …