[已解决]求尾和

mmc998

尾和：就是各个号码的个位和。

最佳答案

月排行榜 / 总排行榜

qh8600

2014-12-29 20:26

mmc998 发表于 2014-12-29 19:35
要求写代码

Book尾和.rar (77.26 KB, 下载次数: 19)

2014-12-29 20:25 上传

点击文件名下载附件
楼主试试，点按钮

跳转到最佳答案楼层

mmc998

Book尾和.rar (58.66 KB, 下载次数: 8)

2014-12-29 19:26 上传

点击文件名下载附件

tgydslr

你要做什么呢？看你好像都写有公式了

mmc998

tgydslr 发表于 2014-12-29 19:31
你要做什么呢？看你好像都写有公式了

要求写代码

qh8600

mmc998 发表于 2014-12-29 19:35
要求写代码

1. Sub demo()
   
2.     Dim ar, br(), n, i, j
   
3.     ar = Range("b3:g" & Cells(Rows.Count, 2).End(3).Row)
   
4.     ReDim br(1 To UBound(ar), 1 To 1)
   
5.     For i = 1 To UBound(ar)
   
6.         n = 0
   
7.         For j = 1 To UBound(ar, 2)
   
8.             n = n + Right(ar(i, j), 1)
   
9.             br(i, 1) = n
   
10.         Next
    
11.     Next
    
12.     Range("j3").Resize(UBound(br), 1) = br
    
13. End Sub

复制代码

附件楼下

qh8600

mmc998 发表于 2014-12-29 19:35
要求写代码

Book尾和.rar (77.26 KB, 下载次数: 19)

2014-12-29 20:25 上传

点击文件名下载附件
楼主试试，点按钮