文件名称：沉降观测数据excel程序
文件大小：734B
文件格式：TXT
更新时间：2015-10-26 09:03:00
程序
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