求两数的和与差

xhcyi

求所有两数的和与差,在J列显示,

liulang0808

建议楼主结合附件举例说明下

一把小刀闯天下

'猜一个

Option Explicit

Sub test()
  Dim arr, brr, crr, i, j, k, n
  arr = Range("b2:h" & Cells(Rows.Count, "b").End(xlUp).Row)
  ReDim brr(1 To UBound(arr, 1), 1 To UBound(arr, 2) * (UBound(arr, 2) - 1) / 2)
  crr = brr
  For i = 1 To UBound(arr, 1)
    n = 0
    For j = 1 To UBound(arr, 2) - 1
      For k = j + 1 To UBound(arr, 2)
        n = n + 1
        brr(i, n) = arr(i, j) + arr(i, k)
        crr(i, n) = arr(i, j) - arr(i, k)
  Next k, j, i
  With [j2]
    .Resize(UBound(brr, 1), UBound(brr, 2)) = brr '+
    .Offset(, UBound(brr, 2) + 1).Resize(UBound(crr, 1), UBound(crr, 2)) = crr '-
  End With
End Sub