循环求合写入指定位置

天地一相

感谢帮助！详见截图附件。

沈默00

不需要VBA吧，

沈默00

非要VBA就把这句写入代码，循环行，再写入数组

天地一相

沈默00 发表于 2024-4-7 10:40
非要VBA就把这句写入代码，循环行，再写入数组

谢谢，看你公式，你理解的不对。使用公式我会的，也会使用VBA写入公式处理我的想法。但不想这样，就想弄个VBA循环法的，偶尔计算下瞅瞅。

鄂龙蒙

循环求合.rar (19.75 KB, 下载次数: 2)

2024-4-7 11:14 上传

点击文件名下载附件

baofa2

1. Sub test0()
   
2.   Dim ar, br()
   
3.   Dim i As Long, j As Long, k As Long, p As Long
   
4.   ar = Sheet1.Range("B1").CurrentRegion.Value
   
5.   ReDim br(1 To UBound(ar), 1 To UBound(ar, 2) ^ 2)
   
6.   For i = 2 To UBound(ar)
   
7.     p = 0
   
8.     For j = 1 To UBound(ar, 2)
   
9.       For k = 1 To UBound(ar, 2)
   
10.         p = p + 1
    
11.         br(i, p) = (ar(i, j) + ar(i - 1, k)) Mod 10
    
12.       Next
    
13.     Next
    
14.   Next
    
15.   Sheet2.Range("B1").Resize(UBound(br), UBound(br, 2)) = br
    
16. End Sub

复制代码

cnmlgb9998

PQ  !!!!!!!!!!!!!!!!!!!! 简单，方便，即时更新，不香？？？？？？？？？

limonet

关键字：xyz循环，k=0

limonet

Sub limonet()
    Dim Arr As Variant, i%, j%, k%, Brr(1 To 11, 1 To 25) As Variant
    Arr = Sheet1.Range("B1:F12")
    For i = 2 To UBound(Arr)
        k = 0
        For j = 1 To UBound(Arr, 2)
            For l = 1 To UBound(Arr, 2)
                k = k + 1
                Brr(i - 1, k) = Val(Right(Arr(i, j) + Arr(i - 1, l), 1))
            Next l
        Next j
    Next i
    Sheet2.Range("B2").Resize(11, 25) = Brr
End Sub