修复代码：For k = 1897 To 2845 For j = 1 To 949 Sheets过程数据RangeA & kValue = Sheets参考数据RangeG & jValue Sheets过程数据RangeB & kValue = Xhc Sheets过程数据RangeC & kValue = ValSheets参考数据RangeI

For k = 1897 To 2845 For j = 1 To 949 Sheets("过程数据").Range("A" & k + (j-1)*949).Value = Sheets("参考数据").Range("G" & j).Value Sheets("过程数据").Range("B" & k + (j-1)*949).Value = Xhc Sheets("过程数据").Range("C" & k + (j-1)*949).Value = Val(Sheets("参考数据").Range("I" & j).Value) + 0.06 Sheets("过程数据").Range("D" & k + (j-1)*949).Value = ValueC * Val(Sheets("参考数据").Range("J" & j).Value) Sheets("过程数据").Range("E" & k + (j-1)*949).Value = Val(Sheets("参考数据").Range("K" & j).Value) + 0.06 Next j Next