搜搜做题作业网求助一段VBA代码（合并、相减除10取余数）
来源：学生作业帮 编辑：搜搜做题作业网作业帮 分类：综合作业 时间：2024/07/17 15:11:48
求助一段VBA代码（合并、相减除10取余数）
要求：1、把F2和F3合并,（F1为标题）,结果放在F2.如1和2,合并为12,同时删除F3内容.接着把F4和F5合并（同上）直至F列为空.
2、把I2减I3除10取余数,（I1为标题）,如4减6除10取余数8,结果放在I2）同时删除I3内容,接着把I4减I5除10取余数（同上）直至I列为空.
要求：1、把F2和F3合并,（F1为标题）,结果放在F2.如1和2,合并为12,同时删除F3内容.接着把F4和F5合并（同上）直至F列为空.
2、把I2减I3除10取余数,（I1为标题）,如4减6除10取余数8,结果放在I2）同时删除I3内容,接着把I4减I5除10取余数（同上）直至I列为空.
Sub iTest()
Dim r&, rF&, rI&, arrF, arrI, s$, ss$, S1$, S2$, D, tmp, tmp2
With ActiveSheet
S1 = "偶"
S2 = "奇"
rF = .Cells(65536, "F").End(xlUp).Row
rI = .Cells(65536, "I").End(xlUp).Row
r = IIf(rF
Dim r&, rF&, rI&, arrF, arrI, s$, ss$, S1$, S2$, D, tmp, tmp2
With ActiveSheet
S1 = "偶"
S2 = "奇"
rF = .Cells(65536, "F").End(xlUp).Row
rI = .Cells(65536, "I").End(xlUp).Row
r = IIf(rF