Excel IF语句宏执行位置偏移问题求助（附宏代码）

你的IFSTATEMENT宏第一行使用了ActiveCell，而执行该宏前，CLEAR或VLOOKUP宏最后都选中了G1单元格，导致激活单元格落在G列，公式直接写入了G列，后续的E3填充操作已经无法修正这个偏移，这就是结果出现在G列的核心原因。

替换原IFSTATEMENT宏为以下代码，直接指定目标单元格，彻底避免依赖ActiveCell的不稳定问题，同时自动匹配D列的数据末尾，不用固定填充到E42：

Sub IFSTATEMENT()
    ' 获取D列最后一行有数据的行号
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, "D").End(xlUp).Row
    
    ' 给E3写入公式并填充到数据末尾
    Range("E3").FormulaR1C1 = "=IF(RC[-1]=""""",""X"",""1"")"
    Range("E3:E" & lastRow).FillDown
End Sub

所有宏都应尽量避免使用Select和ActiveCell这类依赖当前选中状态的操作，它们很容易因操作顺序或当前选中位置变化导致错误，直接指定单元格或范围的写法更可靠。比如原CLEAR宏可以优化为：

Sub CLEAR()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, "E").End(xlUp).Row
    Range("E3:G" & lastRow).ClearContents
    Range("G1").Select ' 如果需要保留选中G1的操作可保留此行
End Sub

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