Excel VBA 代码修复：循环复制数据到过程数据工作表

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 k