创建一个shellort程序

Question

我必须编写一个shell短程序，但我撞墙了。 我使用Jeliot来显示程序的流程，但是，我一直在收到此错误。

  

遇到＆＃34;：＆＃34;在第30行，第27列。期待以下之一：＆＃34; [＆＃34; ......＆＃34;;＆＃34; ......＆＃34;，＆＃34; ......＆＃34; =＆＃34; ...

我做错了什么，如何纠正这个

Sub NoZeroLeftBehind(lengthRow As Integer)
    ' 18 Oct 2017

    Dim lengthRow As Long
    Dim Tmp As Variant
    Dim C As Long

    lengthRow = 4
    For C = 2 To lengthRow
        ' bear in mind that the Cell is a Range
        ' and you want to refer to its Value & Formula property
        With Cells(1, C)
            Tmp = .Value
            ' using the Val() function will interpret a blank cell as zero value
            If Val(Tmp) = 0 Then
                .Value = "TBD"
            ElseIf IsError(Tmp) Then
                .Formula = "=INDEX(Forecast!L:L,MATCH('AA - Inbound Orders Weekly Rep'!H" & _
                           (113 + C - 2) & ",Forecast!A:A,0))"
            End If
        End With
    Next C
End Sub

任何帮助都将是apreciated