[已解决]请教，这个公式用VBA要什么处理

爷们679

用  D列   乘   11   减   B列最后三位数(用黄色填充单元格) 加   2,    最后   除   11   ,得出的余数填在   K列   .
特殊情况  如果   K列  等 于   0   那么变成  16 。
用VBA一直循环到数据处理完

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-10-28 12:40

1. Sub aaa()
   
2. Dim arr, brr, i&
   
3. arr = [b6].CurrentRegion
   
4. ReDim brr(1 To UBound(arr) - 2, 1 To 1)
   
5. For i = 2 To UBound(arr) - 1
   
6.   brr(i - 1, 1) = (arr(i, 3) * 11 - Val(Right(arr(i + 1, 1), 3)) + 2) Mod 11
   
7.   If brr(i - 1, 1) = 0 Then brr(i - 1, 1) = 16
   
8. Next i
   
9. [k8].Resize(UBound(brr)) = brr
   
10. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Sub aaa()
   
2. Dim arr, brr, i&
   
3. arr = [b6].CurrentRegion
   
4. ReDim brr(1 To UBound(arr) - 2, 1 To 1)
   
5. For i = 2 To UBound(arr) - 1
   
6.   brr(i - 1, 1) = (arr(i, 3) * 11 - Val(Right(arr(i + 1, 1), 3)) + 2) Mod 11
   
7.   If brr(i - 1, 1) = 0 Then brr(i - 1, 1) = 16
   
8. Next i
   
9. [k8].Resize(UBound(brr)) = brr
   
10. End Sub

复制代码