读取列最后单元格值并对比行数以运行AddProj宏的问题

嘿，我来帮你拆解并解决这两个问题——首先是插入新行触发不了宏，然后是你写的判断逻辑失效的问题，一步一步来：

一、先搞定插入新行的触发问题 #

你之前把触发逻辑放在普通模块（模块1）里是行不通的，普通模块的代码不会自动响应工作表的操作事件。要让插入新行时自动触发宏，得用工作表事件，步骤如下：

1. 右键你要监控的工作表标签（比如Sheet1），选择「查看代码」，打开工作表的代码窗口。
2. 粘贴下面的代码，它会在工作表内容变化时（包括插入新行）触发检查：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 防止代码循环触发事件
    Application.EnableEvents = False
    
    ' 判断是否是插入了新行：Target是整行，且行号在A列最后一个非空单元格的下方
    If Target.Rows.Count = 1 And Target.Row > Me.Range("A" & Me.Rows.Count).End(xlUp).Row Then
        ' 调用你写的检查逻辑
        Call CheckAndRunAddProj
    End If
    
    ' 恢复事件监听
    Application.EnableEvents = True
End Sub

这里要注意：如果之前你不小心在代码里设置过Application.EnableEvents = False但没恢复，事件会被禁用，你可以在立即窗口（Ctrl+G）输入Application.EnableEvents = True回车来恢复。

二、修复你模块1里的判断逻辑 #

你说的读取某列最后一个单元格赋值给X、对比行数的逻辑，大概率是这几个地方出了问题：读取最后单元格的方式不对、“行数”的定义模糊、判断条件逻辑错误。我给你重写并优化这个逻辑，放在模块1里：

' 你的AddProj宏，保留你原来的代码就行
Sub AddProj()
    ' 这里替换成你原来的AddProj代码
    MsgBox "AddProj宏成功运行啦！"
End Sub

' 优化后的检查逻辑
Sub CheckAndRunAddProj()
    Dim ws As Worksheet
    Dim lastCellInA As Range
    Dim X As Long
    Dim newRowNum As Long
    
    ' 指定要操作的工作表，别写错名称
    Set ws = ThisWorkbook.Sheets("Sheet1")
    ' 获取A列最后一个非空单元格（避免读到中间的空值）
    Set lastCellInA = ws.Range("A" & ws.Rows.Count).End(xlUp)
    ' 新插入的行号就是最后非空单元格的行号+1
    newRowNum = lastCellInA.Row + 1
    
    ' 先确保A列最后一个值是数字，避免类型错误
    If IsNumeric(lastCellInA.Value) Then
        X = CLng(lastCellInA.Value)
        
        ' 你的原逻辑：行数小于X则运行宏
        ' 这里明确是新插入的行号小于X时运行
        If newRowNum < X Then
            Call AddProj
        End If
    Else
        MsgBox "A列最后一个单元格不是数字，没法判断哦！"
    End If
End Sub

三、测试和注意事项 #

1. 保存文件为「启用宏的工作簿（.xlsm）」，否则宏会失效。
2. 插入新行后，如果A列最后一个单元格是数字，且新行号小于这个数字，AddProj宏就会自动运行。
3. 如果还是没触发，检查Excel的宏设置：文件→选项→信任中心→信任中心设置→宏设置，选择「启用所有宏（不推荐；可能会运行有潜在危险的代码）」或者「启用带数字签署的所有宏」。

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