Excel 新手求助：vba里怎么取余数 用 a mod b就行了。比如a=5，b=3a mod b就等于2.
为什么用VBA取余数，结果却总是整数呢？ 你用什么运算符取余数的！用MOD运算符就可以了呀Option ExplicitSub test()Debug.Print Int(1/3)'取整Debug.Print 1 Mod 3 '取余End Sub结果：
求助一段VBA代码（合并、相减除10取余数） Sub iTest()Dim r&，rF&，rI&，arrF，arrI，s$，ss$，S1$，S2$，D，tmp，tmp2With ActiveSheetS1=\"偶S2=\"奇rF=.Cells(65536，\"F\").End(xlUp).RowrI=.Cells(65536，\"I\").End(xlUp).Rowr=IIf(rF，rF，rI)If r无数据！vbCritical：Exit SubarrF=.Range(.Cells(2，\"F\")，.Cells(r，\"F\"))arrI=.Range(.Cells(2，\"I\")，.Cells(r，\"I\"))Set D=CreateObject(\"Scripting.Dictionary\")For r=LBound(arrF)To UBound(arrF)s=CStr(arrF(r，1))ss=CStr(arrI(r，1))If s<；>；\"\"And(ss=S1 Or ss=S2)ThenD(s)=D(s)&IIf(ss=S1，S1，S2)End IfNextIf D.Count=0 Then MsgBox\"无统计数据！vbCritical：Exit SubWith.Range(\"P1\")tmp=D.keystmp2=D.itemsResize(1，D.Count)=tmpFor r=LBound(tmp)To UBound(tmp)Cells(2，r+1)=Len(Replace(tmp2(r)，S2，\"\"))Cells(3，r+1)=Len(Replace(tmp2(r)，S1，\"\"))NextEnd WithEnd WithMsgBox\"ok！End Sub
