求大佬帮我指点迷津，修正一下代码，感谢不尽！

易经爱好者

数字1 数字2 数字3 数字4 数字5 数字6
10        11        12        13        26        28
4        9        19        20        21        26
1        7        10        23        28        32
4        6        7        10        13        25
4        6        15        17        30        31
假设在excel表格中A1~F6区域中，我希望A3~F3中6个数字每个数字都减去A2~F2中的每个数字，；以此类推A4~F4都减去A2~F2中的每个数字，A5~F5都减去A2~F2中的每个数字；A6~F6中的每个数字都减去A2~F2中的每个数字，减去的差异值依次填写在G3~AP3单元格中，我自己理解的代码达不到效果，请大佬路过指正，感谢之至！

shiruiqiang

^星^

test.zip (15.84 KB, 下载次数: 5)

2024-3-2 22:43 上传

点击文件名下载附件

半百

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, br, i&, j&
   
    ar = Range("A1", Cells(Rows.Count, "F").End(xlUp)).Value
    ReDim br(1 To UBound(ar) - 2, 1 To UBound(ar, 2))
   
    For i = 3 To UBound(ar)
        For j = 1 To UBound(ar, 2)
            br(i - 2, j) = ar(i, j) - ar(2, j)
        Next j
    Next i
   
    [G3].Resize(UBound(br), UBound(br, 2)) = br
    Beep
End Sub

gwjkkkkk

请参考。。。

易经爱好者

谢谢，大佬们

易经爱好者

各位老师，你们的代码运行，好像没有达到目的，可能是我表达的问题，我用了公式做了一行数据代表，希望代码可以依照这个结果运行填写在G3~AP6区域，目前好像没弄成

半百

易经爱好者 发表于 2024-3-3 11:43
各位老师，你们的代码运行，好像没有达到目的，可能是我表达的问题，我用了公式做了一行数据代表，希望代码 ...

4楼的代码试了码？

易经爱好者

4楼的刚试了，是可以的，谢谢提醒