Sub 录入数据()
Dim i As Integer, j As Integer, k As Integer
Dim m As Integer, n As Integer
m = InputBox("请输入：", "输入")
n = m - 1
j = 5
i = 8
k = 6
Do While i <= 38
i = i + 3
j = j + 1
Sheets(m).Cells(j, 3) = Right(Sheet1.Cells(i, 4), 5) / 100000
If m = 2 Then
Sheets(m).Cells(j, 2) = Sheets(m).Cells(j, 3)
End If
If n >= 2 Then
Sheets(m).Cells(j, 4) = Sheets(m).Cells(j, 3) - Sheets(n).Cells(j, 3)
Else
Sheets(m).Cells(j, 4) = Sheets(m).Cells(j, 3) - Sheets(m).Cells(j, 2)
End If
Sheets(m).Cells(j, 2) = Sheets(2).Cells(j, 2)
Sheets(m).Cells(j, 5) = Sheets(m).Cells(j, 3) - Sheets(2).Cells(j, 2)
Sheets(m).Cells(j, 6) = -Sheets(m).Cells(j, 5) / (m - 1)
Sheets(m).Cells(j, 7) = "测试数据正常"
Loop
End Sub
