某一个数除10的余数,用VBA如何表达,

某一个数除10的余数,用VBA如何表达,

a = arr(r,1) - arr(r + 1,1) '获得两数
c = 1
Do While k < a '循环,使用自然数乘以10,直到所得数k>a的时候,跳出循环
k = c * 10
c = c + 1
Loop
m = a + 10 - k '获得余数m
或者使用mod函数即可直接得到余数
m=mod(arr(r,1) - arr(r + 1,1) ,10)
再问： 我有如下题，已请求，是同一问题，你帮助做好，一并给分，多谢！ 求助一段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列为空。
再答： Sub aa() maxr = Range("F65535").End(xlUp).Row maxr2 = Range("I65535").End(xlUp).Row For i = 2 To maxr Step 2 Cells(i, 6).Value = Cells(i, 6).Value & Cells(i + 1, 6).Value Cells(i + 1, 6).Value = "" Range(Cells(i, 6), Cells(i + 1, 6)).Merge Next For i = 2 To maxr2 Step 2 Cells(i, "I").Value = (Cells(i, "I").Value - Cells(i + 1, "I").Value) - 10 * Int((Cells(i, "I").Value - Cells(i + 1, "I").Value) / 10) Cells(i + 1, "I").Value = "" Range(Cells(i, "I"), Cells(i + 1, "I")).Merge Next End Sub
再问： 结果测算准确，但把F2和F3、I2和I3单元格合并了，不要合并单元格，把结果放在2，删除3内容。
再答： 好了 Sub aa() maxr = Range("F65535").End(xlUp).Row maxr2 = Range("I65535").End(xlUp).Row For i = 2 To maxr Step 2 Cells(i, 6).Value = Cells(i, 6).Value & Cells(i + 1, 6).Value Cells(i + 1, 6).Value = "" Next For i = 2 To maxr2 Step 2 Cells(i, "I").Value = (Cells(i, "I").Value - Cells(i + 1, "I").Value) - 10 * Int((Cells(i, "I").Value - Cells(i + 1, "I").Value) / 10) Cells(i + 1, "I").Value = "" Next End Sub