以前运行无误，现在运行提示缺少for或next

cgp603

各位论坛高手，有一代码，以前运行无误，现在运行提示缺少for或next,什么原因？请高手相助。谢谢。
Public Sub 添加部门名称及合计()
    For n = Range("b65536").End(xlUp).Row To 3 Step -1
        If Cells(n, 2) <> Cells(n + 1, 2) Then
            If i <> 0 Then
            Cells(i, 8) = Hj
            Cells(i, 4) = Hj
            Cells(i, 6) = Hj
            Cells(i, 7) = Hj
            Hj = 0
            i = n + 1
            If Range("b" & i) <> "" Then
                Rows(i & ":" & i + 2).Insert Shift:=xlDown
                Range("A1:y1").Copy Range("A" & i + 2)
            End If
            Cells(i, 2) = Cells(n, 2)
            Cells(i, 2) = "合计"

        End If
        Hj = Hj + Cells(n, 8)
        Hj = Hj + Cells(n, 4)
        Hj = Hj + Cells(n, 6)
        Hj = Hj + Cells(n, 7)
    Next
    Cells(i, 8) = Hj
    Cells(i, 4) = Hj
    Cells(i, 6) = Hj
    Cells(i, 7) = Hj
End Sub

lss001

Public Sub 添加部门名称及合计()
    For n = Range("b65536").End(xlUp).Row To 3 Step -1
        If Cells(n, 2) <> Cells(n + 1, 2) Then
            If i <> 0 Then
            Cells(i, 8) = Hj
            Cells(i, 4) = Hj
            Cells(i, 6) = Hj
            Cells(i, 7) = Hj
            Hj = 0
            End If'←此处缺少
            i = n + 1
            If Range("b" & i) <> "" Then
                Rows(i & ":" & i + 2).Insert Shift:=xlDown
                Range("A1:y1").Copy Range("A" & i + 2)
            End If
            Cells(i, 2) = Cells(n, 2)
            Cells(i, 2) = "合计"
        End If
        Hj = Hj + Cells(n, 8)
        Hj = Hj + Cells(n, 4)
        Hj = Hj + Cells(n, 6)
        Hj = Hj + Cells(n, 7)
    Next
    Cells(i, 8) = Hj
    Cells(i, 4) = Hj
    Cells(i, 6) = Hj
    Cells(i, 7) = Hj
End Sub

cgp603

lss001 发表于 2020-8-14 21:06
Public Sub 添加部门名称及合计()
    For n = Range("b65536").End(xlUp).Row To 3 Step -1
        If  ...

按您的办法添加后，运行提示此对话框。e:\20200815

cgp603

cgp603 发表于 2020-8-15 09:46
按您的办法添加后，运行提示此对话框。

运行时错误：‘1004’应用程序定义或对象定义错误。

lss001

cgp603 发表于 2020-8-15 09:47
运行时错误：‘1004’应用程序定义或对象定义错误。

实际缺少→End If
因为没有附件，2楼只是推测而已！
您可以把→End If放到适当地方！

cgp603

lss001 发表于 2020-8-15 11:39
实际缺少→End If
因为没有附件，2楼只是推测而已！
您可以把→End If放到适当地方！

谢lss001及时出手相助，现传附件给您，在添加合计列的，4，6，7，8，9，10也有分组合计金额。费心了。

lss001

cgp603 发表于 2020-8-15 19:19
谢lss001及时出手相助，现传附件给您，在添加合计列的，4，6，7，8，9，10也有分组合计金额。费心了。

Hj = 0→下面添加→End If
见2楼更改！！！！！！！

cgp603

lss001 发表于 2020-8-16 08:18
Hj = 0→下面添加→End If
见2楼更改！！！！！！！

谢您的指点，但合计数又不对了，能否给改之？多谢。

lss001

cgp603 发表于 2020-8-16 10:27
谢您的指点，但合计数又不对了，能否给改之？多谢。

合计不对
也不知道您的要求是什么？

cgp603

lss001 发表于 2020-8-16 11:39
合计不对
也不知道您的要求是什么？

就是几个分类合计统计合计金额，总是少第一行的数据，如何精简此代码，做到更便捷？谢谢。