Excel VBA Range函数数据写入错误行问题排查请求

这个问题的核心是**UsedRange的相对引用特性加上未限定工作表的Cells操作**共同导致的，我来拆解一下：

关键原因1：UsedRange的偏移问题 #

你在Climate工作表的代码块里用了With Clim.UsedRange，这里的.Range("H1")并不是指向工作表的H1单元格，而是指向UsedRange范围里的第1行H列。如果Clim工作表的UsedRange起始行不是第1行（比如之前删除过第1行的内容，Excel的UsedRange不会自动重置），那.Range("H1")就会对应工作表的H(UsedRange.Row)——比如UsedRange从第2行开始，那就是H2，正好匹配你遇到的问题。

而Calcs工作表的代码正常，是因为它的UsedRange起始行就是第1行，所以.Range("A1")对应工作表的A1。

关键原因2：未限定工作表的Cells操作 #

另外，你在With Clim.UsedRange块里写了：

LRow = Cells(Rows.Count, "A").End(xlUp).Row

这里的Cells和Rows没有指定所属工作表，默认会使用当前活动工作表，而不是Clim！这可能导致LRow的值不符合预期，甚至进一步干扰后续的范围计算。

解决方案：修正代码的两个核心问题 #

这里给你修改后的代码，彻底解决上述问题：

Sub CalcGDD()
'Initialize
Dim nb As Workbook
Dim Clim As Worksheet, Vars As Worksheet, CC As Worksheet, Calcs As Worksheet
Dim LRow As Long, RowL As Long
'Setup
Set nb = ActiveWorkbook
Application.ScreenUpdating = False
Set Vars = nb.Sheets("Variables")
Set CC = nb.Sheets("CoverCrop")
Set Calcs = nb.Sheets("Summary")
Set Clim = nb.Sheets("Climate")
'Calculations in Climate Sheet
' 直接绑定到Clim工作表，避免UsedRange的相对引用问题
With Clim
    ' 用.限定Cells和Rows，确保操作的是Clim工作表
    LRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    .Range("H1") = "Plant Day"
    .Range("I1") = "Harv Day"
    .Range("J1") = "Fall GDDs"
    .Range("K1") = "Spring GDDs"
    .Range("H2:H" & LRow).FormulaR1C1 = (...calculations elided...)
End With
'Summarize
' 同样限定CC工作表的Cells和Rows
RowL = CC.Cells(CC.Rows.Count, "A").End(xlUp).Row
With Calcs
    .Range("A1") = "Year"
    .Range("B1") = "Fall GDD"
    .Range("C1") = "Spring GDD"
    .Range("D1") = "Total GDD"
    .Range("A2:A" & RowL).FormulaR1C1 = (...calculations elided...)
End With
' 记得恢复屏幕更新，提升操作体验
Application.ScreenUpdating = True
End Sub

额外说明：关于UsedRange的重置 #

如果你非要保留UsedRange的用法，可以先重置Clim工作表的UsedRange：

• 手动方式：删除Clim表中所有空白行/列，保存关闭文件后重新打开，Excel会自动重置UsedRange。
• 代码方式：在操作前加入Clim.UsedRange（触发Excel重新计算UsedRange），不过更可靠的还是直接绑定工作表对象，从根源避免这类问题。

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