Vba区域各单元格相加

AK11:AN13,AP11:AS13,AU11:AX13,AZ11:BC13,各区域单元格相加除10余数放在BE11:BH13如：AK11+AP11+AU11+AZ11... AK11:AN13, AP11:AS13, AU11:AX13, AZ11:BC13,各区域单元格相加除10余数放在BE11:BH13
如：AK11+ AP11+ AU11+AZ11 mod 10= BE11
8+4+8+1=1 展开

 我来答

若以下回答无法解决问题，邀请你更新回答

1个回答

#热议# 上班途中天气原因受伤算工伤吗？

善良的猪头3
2014-02-09 · TA获得超过2933个赞

知道大有可为答主

回答量：2522

采纳率：71%

帮助的人：2808万

我也去答题访问个人页

关注

展开全部

直接用公式
BE11  =mod(ak11+ap11+au11+az11,10)
然后公式向右向下填充

VBA的话参考以下代码
m=4:n=36
for i=1 to 3
    for j=1 to 4
        cells(m+i,n+j+20)=cells(m+i,n+j) + cells(m+i,n+j+5)+cells(m+i,n+j+10)+cells(m+i,n+j+15) mod 10
   next
next

本回答被提问者采纳

已赞过已踩过<

你对这个回答的评价是？
评论收起