VBA 代码优化：Excel 数据复制与计算

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 '完成' '--------------------------------------------------------------------