优化代码： Dim valueA As Double ValueB As Double ValueC As Double Dim Xha As Integer Xhb As Integer Xhc As Integer valueA = RangeB8Value Sheets参考数据RangeD948Value 计算过程结果与参数结果之间的商以备后面用这个商来做倍数 Xh

Dim valueA As Double, ValueB As Double, ValueC As Double Dim Xha As Integer, Xhb As Integer, Xhc As Integer valueA = Range("B8").Value / Sheets("参考数据").Range("D948").Value '计算过程结果与参数结果之间的商，以备后面用这个商来做倍数 Xha = Range("J3").Value + 1 'TestNo ValueB = Range("B9").Value / Sheets("参考数据").Range("D948").Value ValueC = Range("B10").Value / Sheets("参考数据").Range("J949").Value

Dim i As Long, j As Long, k As Long For i = 1 To 2845 Dim rowOffset As Long If i <= 948 Then rowOffset = 0 Xha = Range("J3").Value + 1 valueA = Range("B8").Value / Sheets("参考数据").Range("D948").Value ElseIf i <= 1896 Then rowOffset = 948 Xha = Xhb + 1 valueA = ValueB Else rowOffset = 1896 Xha = Xhc + 1 valueA = ValueC End If

Sheets("过程数据").Range("A" & i + rowOffset).Value = Sheets("参考数据").Range("A" & i + rowOffset).Value   '复制序号
Sheets("过程数据").Range("B" & i + rowOffset).Value = Xha                                       '复制TestNo
Sheets("过程数据").Range("C" & i + rowOffset).Value = Val(Sheets("参考数据").Range("C" & i + rowOffset).Value) + (i Mod 2 + 1) / 100 '复制时间
Sheets("过程数据").Range("D" & i + rowOffset).Value = valueA * Val(Sheets("参考数据").Range("D" & i + rowOffset).Value) '复制力
Sheets("过程数据").Range("E" & i + rowOffset).Value = Val(Sheets("参考数据").Range("E" & i + rowOffset).Value) + (i Mod 2 + 1) / 100 '复制位移

Next i MsgBox "完成" '-------------------------------------------------------------------