请教excel宏代码

时间：2014.06.08 发布人：lwjcwt

已解决问题

谷歌lwjcwt用户在2014.06.08提交了关于“大话西游请教excel宏代码”的提问，欢迎大家涌跃发表自己的观点。目前共有1个回答，最后更新于2024-09-08T15:23:23。希望大家能够帮助她。

详细问题描述及疑问：期待您的答案，千言万语,表达不了我的感激之情,我已铭记在心！

希望以下的回答，能够帮助你。

第1个回答

用户名：voagxl36159 时间：2014.06.08

'按新的要求重写。
预协吧背常能副月晚沉Sub不进位加法每含练达系杂()
DimA,BAsInteger
DimI,J,XAsInteger
sheets("sheet2").select
Range("A:A")=""
X=1
DoWhilesheets("she来自et1").Cells(X,1)<>""
X=X+1
Loop
ForJ=1ToX-1
ForI=1To5
Ifsheets("sheet1").Cells(J+1,1)331215问答=""ThenExitFor
A=Val(Mid(sheets("sheet1").Cells(J,1),I,1客))
B=Val(Mid(sheets("sheet1").Cells(J+1,1),I,1))
Cells(J+1,1)=Cells(J+1,1)&(A+B)-Int((A+B)/10)*10
NextI
NextJ

EndSub