Excel VBA中Me.Range返回矛盾结果的原因是什么？

先直接点出你代码里的核心问题：两段代码里的Range("o" & Rows.Count).End(xlUp)和Range("p" & Rows.Count).End(xlUp)都没指定父工作表（缺少Me.前缀），这种隐式引用很容易导致范围判断错误，进而出现你说的矛盾结果。

具体原因拆解 #

• 在VBA中，如果你直接写Range()或者Rows.Count却不指定父对象（比如Me.），它会默认绑定到当前活动工作表，而不是Me代表的代码所在工作表。
• 举个例子：如果运行代码时，你刚好切换到了其他工作表，那么Range("o" & Rows.Count).End(xlUp)找的是活动表的O列最后一行，而不是你要操作的那个表的O列，这就导致With块的范围要么是跨表的无效范围，要么大小完全不符合预期，自然会出现奇怪的结果。
• 哪怕第一段代码碰巧正常工作，也只是因为当时活动表刚好和Me指向的表一致，属于运气好，但这种写法本身就埋了坑，第二段代码刚好触发了这个问题。

修正后的代码 #

给所有的Range和Rows.Count都加上Me.前缀，强制所有引用都指向当前代码所在的工作表：

With Me.Range("O4", Me.Range("O" & Me.Rows.Count).End(xlUp))
    .Formula = "=IF(OR(ISBLANK(A4), ISBLANK(E4), ISBLANK(F4), ISBLANK(G4), ISBLANK(H4)), """", ""1"")"
    '.Value = .Value
End With
With Me.Range("P4", Me.Range("P" & Me.Rows.Count).End(xlUp))
    .Formula = "=IF(OR(ISBLANK(A4), ISBLANK(E4), ISBLANK(F4), ISBLANK(G4), ISBLANK(H4)), """", ""1"")"
    '.Value = .Value
End With

额外优化建议 #

既然两段代码的公式完全一样，不如合并成一个操作，既简洁又能保证O、P两列的范围完全一致：

' 先获取数据的最后一行（假设A列是数据的基准列，确保取到正确的行号）
Dim lastRow As Long
lastRow = Me.Range("A" & Me.Rows.Count).End(xlUp).Row

With Me.Range("O4:P" & lastRow)
    .Formula = "=IF(OR(ISBLANK(A4), ISBLANK(E4), ISBLANK(F4), ISBLANK(G4), ISBLANK(H4)), """", ""1"")"
    '.Value = .Value
End With

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