Excel宏为何将=TRIM(F2)公式写入E1单元格而非E2？

• 问题根源：你计算lastRow时用了E列，但插入E列后，E列只有表头E1有值，Range("E2:E" & Rows.Count).End(xlUp).Row会返回1，导致Range("E2:E" & lastRow)变成Range("E2:E1")，Excel会自动将这个反向范围调整为E1:E2，所以公式被写入了E1单元格。

• 修正方案：基于**F列（原Contract列）**的最后一行数据确定填充范围，同时简化冗余操作，直接批量设置公式更高效：

'Insert TRIM Contract Column & formula
Dim rngHeaders As Range
Dim rngUsernameHeader As Range
Dim lastRow As Long

Set rngHeaders = Range("1:1") 'Looks in entire first row
Set rngUsernameHeader = rngHeaders.Find(what:="Contract", After:=Cells(1, 1))

'插入新列并设置表头
rngUsernameHeader.EntireColumn.Insert
With Cells(1, "E")
    .Value = "TRIM CONTRACT"
    .Font.Bold = True
End With

'基于F列获取最后一行数据行号
lastRow = Range("F" & Rows.Count).End(xlUp).Row

'批量写入公式（Excel自动处理相对引用）
Range("E2:E" & lastRow).Formula = "=TRIM(F2)"

• 修正关键点：
  • 改用F列计算lastRow，F列是原Contract列，包含实际数据，能准确获取最后一行位置。
  • 直接用.Formula批量设置公式，无需FillDown，Excel会自动将公式中的F2对应到每行的F列单元格（如E3对应F3）。
  • 用With语句简化表头设置，避免重复引用单元格。
  • 移除不必要的Select操作，提升代码效率和稳定性。

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