还是那个excel问题，做了个宏，麻烦帮忙检查一下，谢谢了。# Joke - 肚皮舞运动
q*n
1 楼
实在是不好意思，这么个问题老是麻烦大家，都怪自己没好好学习：（
我今天一边翻书一边学着做，总算做出来了一个所谓的宏：内层do-loop循环可以运行
，可是外层的do-loop循环只走了一步，就不循环了（根据表格里的数据看，外层循环
是应该走很多步的）。麻烦大家看看是怎么回事？先谢谢了。
-------------------------
Sub ShuJuChuanShu()
注：我觉得大家的建议都很有道理，一组7800个数值，只靠手输入，真的累死人了。我
都已经想办法把它们导进excel表格里了。
Dim CodeR As String
Dim CodeS As String
i = 9 注：数据在excel中的起始位置
j = 2 注：数据在excel中的起始位置
Do
Do
CodeR = Sheet3.Cells(i, 1) 注：表三种第一列的温度值。
CodeS = Sheet2.Cells(j, 1) 注：表二中第一列的温度值。
If CodeS = CodeR Then
Sheet3.Cells(i, 5) = Sheet2.Cells(j, 2) 注：把试验结果值读取到表三中
的相应位置上。
Else
End If
j = j + 1
Loop While Sheet2.Cells(j, 1) <> "" 注：当表二中的第一列的数值（温度）
全部读完，就退出该循环
i = i + 1
Loop While Sheet3.Cells(i, 1) <> "" 注：当表三中的第一列的数值（温度）全部读
完，就退出该循环
End Sub
--------------------------------------------------------
内层循环可以走通，外层循环只走了一步，就不在向下走了（Sheet3中有很多温度数据
都没有读到），麻烦大家看看问题出在哪里了？谢谢了。
我今天一边翻书一边学着做，总算做出来了一个所谓的宏：内层do-loop循环可以运行
，可是外层的do-loop循环只走了一步，就不循环了（根据表格里的数据看，外层循环
是应该走很多步的）。麻烦大家看看是怎么回事？先谢谢了。
-------------------------
Sub ShuJuChuanShu()
注：我觉得大家的建议都很有道理，一组7800个数值，只靠手输入，真的累死人了。我
都已经想办法把它们导进excel表格里了。
Dim CodeR As String
Dim CodeS As String
i = 9 注：数据在excel中的起始位置
j = 2 注：数据在excel中的起始位置
Do
Do
CodeR = Sheet3.Cells(i, 1) 注：表三种第一列的温度值。
CodeS = Sheet2.Cells(j, 1) 注：表二中第一列的温度值。
If CodeS = CodeR Then
Sheet3.Cells(i, 5) = Sheet2.Cells(j, 2) 注：把试验结果值读取到表三中
的相应位置上。
Else
End If
j = j + 1
Loop While Sheet2.Cells(j, 1) <> "" 注：当表二中的第一列的数值（温度）
全部读完，就退出该循环
i = i + 1
Loop While Sheet3.Cells(i, 1) <> "" 注：当表三中的第一列的数值（温度）全部读
完，就退出该循环
End Sub
--------------------------------------------------------
内层循环可以走通，外层循环只走了一步，就不在向下走了（Sheet3中有很多温度数据
都没有读到），麻烦大家看看问题出在哪里了？谢谢了。
