宏绑定命令按钮后执行异常：仅处理单行问题求助

嘿，这个情况我之前碰到过好几次，大概率是工作表上下文不一致搞的鬼，另外也得排查下宏绑定和公式的小细节，下面给你拆解清楚：

最可能的元凶：模糊的工作表上下文 #

你在VBA编辑器里直接运行宏时，默认是用当前激活的工作表当“基准”——比如你当时正看着Tabelle3，那代码里的Range都会指向这个表，所以计算lastrow、设置公式都正常。但把宏绑到命令按钮后，如果按钮不在Tabelle3上，代码里没指定工作表的Range("A" & Rows.Count)就会默认用按钮所在的工作表！要是那个表的A列只有1行数据，算出来的lastrow就是9，自然只会给O9这一行设公式。

你看你代码里虽然给Range("O9:O" & lastrow)指定了Tabelle3，但计算lastrow的Range("A" & Rows.Count)没指定工作表，这就是关键漏洞！

一步步解决问题 #

1. 给所有Range明确“归属”工作表 #

修改代码，把所有涉及Range的地方都指定好工作表，彻底摆脱对当前激活表的依赖：

Sub AutomaticallyCalculateted()
    Dim targetWs As Worksheet
    Dim lastRow As Long
    
    ' 明确指定要操作的工作表，避免上下文混乱
    Set targetWs = ThisWorkbook.Worksheets("Tabelle3")
    
    ' 基于Tabelle3的A列计算最后一行（这里的Rows.Count也要绑定到目标表）
    lastRow = targetWs.Range("A" & targetWs.Rows.Count).End(xlUp).Offset(8).Row
    
    ' 给O列批量设置公式（这里假设你原本的公式是完整的，补全了闭合部分，你可以根据实际需求调整）
    targetWs.Range("O9:O" & lastRow).FormulaLocal = "=WENN(ODER(K9="""";L9="""";M9="""";N9=""""),""未填写完整"",VERWEIS(2;1/(($A$2:$A$" & lastRow - 8 & "=K9)*($B$2:$B$" & lastRow - 8 & "=L9)*($C$2:$C$" & lastRow - 8 & "=M9)*($D$2:$D$" & lastRow - 8 & "=N9))*$E$2:$E$" & lastRow - 8 & "))"
End Sub

2. 确认命令按钮的宏绑定没搞错 #

右键点命令按钮 → 选「指定宏」，仔细看绑定的是不是AutomaticallyCalculateted——有时候不小心会把测试用的单行宏绑上去，自己还没注意到。

3. 检查公式是否完整 #

你贴的代码片段里公式没写完（最后是"=WENN(ODER(K9="""";L9="""";""..."），虽然编辑器里运行正常，但要确保公式的括号、引号都闭合了，不然可能导致部分行无法正常设置公式。

额外小建议 #

• 以后写VBA时，尽量别单独用Rows.Count或者Range，一定要指定工作表，不然换个激活表就容易出问题。
• 用ThisWorkbook.Worksheets("工作表名")比直接用Tabelle3更稳妥，万一哪天你改了工作表名称，代码也不会直接失效。

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