VBA中ColAInsertrow子程序无法跳转至aMoveHTotals问题求助

1. 核心问题分析 #

你的ColAInsertrow子程序无法跳转到aMoveHTotals，是两个低级错误导致的：

• 标签拼写不匹配：跳转语句写的是GoTo moveHTotalsexit，但实际定义的标签是moveHTotalsxit（少了一个字母e），触发Start条件时找不到对应标签。
• Exit Sub位置错误：Exit Sub写在了Call aMoveHTotals前面，执行到这里会直接退出子程序，后续调用代码永远不会运行。

2. 修复后的ColAInsertrow代码 #

Sub ColAInsertrow() '===================================yay
    
    'Declare Variables
    Dim LastRow As Long, FirstRow As Long
    Dim Row As Long
    ' 注：原代码中moveHTotalsexit变量无实际用途，已删除
    
    With ActiveSheet
        'Define First and Last Rows
        FirstRow = 1
        LastRow = .UsedRange.Rows(.UsedRange.Rows.Count).Row
        
        'Loop Through Rows (Bottom to Top)
        For Row = LastRow To FirstRow Step -1
            If .Range("A" & Row).Value <> "" Then
                If InStr(.Range("A" & Row).Value, "Transactions for") > 0 Then
                    .Range("A" & Row).EntireRow.Insert
                ElseIf .Range("A" & Row).Value = ("Start") Then GoTo moveHTotalsxit ' 修正标签拼写
                    
                End If
            End If
        Next Row
        
    End With
    
moveHTotalsxit:
    Call aMoveHTotals ' 先执行调用，再退出子程序
    Exit Sub
End Sub

额外注意点 #

• 你存在两个同名的aMoveHTotals子程序（无参数/带参数），VBA会优先匹配参数对应的版本，当前无参数的aMoveHTotals调用的是aMoveHTotalsx（注意结尾是x），需确保这个子程序已完整实现且无语法错误。

内容的提问来源于stack exchange，提问作者jamesrnz