主页 / coding / 问题 / 79200844
Accepted
AReubens
Asked: 2024-11-19 01:22:30 +0800 CST

在二维中平铺 Excel 数组，最好不要使用 VBA

  • 772

我正在寻找在二维中平铺 Excel 数组的方法，如另一个数组所定义，理想情况下不使用 VBA。

为了更好地解释，我想要一个 excel 公式f(A, B)

其中 A 是布尔值且 =

[[1, 0],
 [0, 1]

其中 B =

[[1, 2],
 [3, 4]

并f(A, B)根据 A 中的 bool 值对 B 进行平铺，在本例中，f(A, B) = 

[[1, 2, 0, 0],
 [3, 4, 0, 0],
 [0, 0, 1, 2],
 [0, 0, 3, 4]]

我最初的想法是=IF(MUNIT(2), {1, 2;3, 4}, {0, 0;0, 0})，但是输出扩展得不太好。

excel

5 个回答

  1. Best Answer

    这是我迄今为止的努力 - 希望它具有普遍性：

    =LET(A,A1:B2,B,D1:E2,DROP(REDUCE(SEQUENCE(1,COLUMNS(A)*COLUMNS(B)),SEQUENCE(ROWS(A)),LAMBDA(rowAcc,row,VSTACK(rowAcc,
   DROP(REDUCE(SEQUENCE(ROWS(B)),SEQUENCE(1,COLUMNS(A)),LAMBDA(colAcc,col,HSTACK(colAcc,B*INDEX(A,row,col)))),,1)))),1))

    在此处输入图片描述

    您还可以使用 Makearray：

    =LET(A,A1:B2,B,D1:E2,rA,ROWS(A),rB,ROWS(B),cA,COLUMNS(A),cB,COLUMNS(B),
MAKEARRAY(rA*rB,cA*cB,LAMBDA(r,c,INDEX(A,(r-1)/rB+1,(c-1)/cB+1)*INDEX(B,MOD(r-1,rB)+1,MOD(c-1,cB)+1))))

    （与@Scott Craner 的旧版本逻辑相同）

    • 6

  2. 与 Tom 的方法类似，但稍微简短一些：

    =LET(
    _t,A1:B2,
    _a,D1:E2,
    DROP(REDUCE("",SEQUENCE(ROWS(_t)),LAMBDA(_y,_z,VSTACK(_y,
        DROP(REDUCE("",CHOOSEROWS(_t,_z),LAMBDA(_x,_w,HSTACK(_x,
            IF(_w=1,_a,SEQUENCE(ROWS(_a),COLUMNS(_a),0,0))))),,1)))),1))

    在此处输入图片描述

    只是为了好玩，这将在旧版本中起作用：

    =IFERROR(
    IF(INDEX($A$1:$B$2,INT((ROW($A1)-1)/ROWS($D$1:$E$2))+1,INT((COLUMN(A$1)-1)/COLUMNS($D$1:$E$2))+1)=0,
        0,
        INDEX($D$1:$E$2,MOD((ROW($A1)-1),ROWS($D$1:$E$2))+1,MOD((COLUMN(A$1)-1),COLUMNS($D$1:$E$2))+1))
    ,"")

    将其拖动到足以容纳数组大小的位置。

    在此处输入图片描述

    • 5

  3. 要返回两个数组的克罗内克积，请尝试以下 Python 代码：

    a = xl("A1:B2")
b = xl("D1:E2")

np.kron(a,b)

    py_kronecker_product.png

    如果你以前从未在 Excel 中使用过 Python，请参阅：在 Excel 中开始使用 Python

    替代方法 1：

    为了提高更大数组的性能，您还可以尝试使用二分法：

    =LET(a,A1:C100,b,E1:I1000,BiROW(a,LAMBDA(r,BiCOL(r,LAMBDA(c,c*b)))))

    其中BiCOL和BiROW是在名称管理器中定义的自定义 lambda 函数：

    BiCOL:
=LAMBDA(array,function,IF(COLUMNS(array)=1,function(array),LET(n,QUOTIENT(COLUMNS(array),2),HSTACK(BiCOL(TAKE(array,,n),function),BiCOL(DROP(array,,n),function)))))

BiROW:
=LAMBDA(array,function,IF(ROWS(array)=1,function(array),LET(n,QUOTIENT(ROWS(array),2),VSTACK(BiROW(TAKE(array,n),function),BiROW(DROP(array,n),function)))))

    替代方法 2：

    如果您愿意使用一种REDUCE-VSTACK/HSTACK方法，也可以通过成对堆叠结果来提高性能，而不是线性堆叠：

    =LET(
    a, A1:C100, b, E1:I1000,
    kpλ, MAP(a,LAMBDA(n,LET(m,n*b,LAMBDA(m)))),
    i, SEQUENCE(CEILING.MATH(LOG(ROWS(kpλ),2),1)),
    j, SEQUENCE(CEILING.MATH(LOG(COLUMNS(kpλ),2),1)),
    λ, LAMBDA(fx,LAMBDA(l,k,LET(w,WRAPROWS(l,2),MAP(TAKE(w,,1),DROP(w,,1),LAMBDA(x,y,LET(z,IF(TYPE(y)=16,x(),fx(x(),y())),LAMBDA(z))))))),
    join_x, BYROW(kpλ,LAMBDA(r,REDUCE(r,j,λ(HSTACK)))),
    join_y, INDEX(REDUCE(join_x,i,λ(VSTACK)),1),
    join_y()
)

    有关此方法的通用版本，请参阅 Peter Bartholomew 的MAPλ功能：https ://gist.github.com/pbartxl

    替代方法 3：

    另一个相对有效的选择是使用TOCOL和SORTBY；WRAPROWS然而，由于以下限制，这种方法最多只能输出 1,048,576 个元素TOCOL：

    =LET(
    a, A1:D128, b, F1:M256,
    v, TOCOL(a)*TOROW(b),
    λ, LAMBDA(x,fx,TOCOL(IF({1},fx(IF({1},SEQUENCE(ROWS(x)),x)),v))),
    WRAPROWS(SORTBY(TOCOL(v),λ(a,TOCOL),1,λ(b,TOROW),1),COLUMNS(a)*COLUMNS(b))
)
    • 5

  4. 这是我在 Office 365 中的方法： =LET(f,LAMBDA(a,b,DROP(REDUCE("",SEQUENCE(COLUMNS(a)),LAMBDA(c,d,HSTACK(c,REDUCE("",SEQUENCE(ROWS(a)),LAMBDA(e,f,VSTACK(e,b*INDEX(a,f,d))))))),1,1)),f(B1:D3,F1#))

    编辑： 看 Tom Sharpe 的回答，我的回答有点类似。我整体使用了 DROP，而不是单个 REDUCE 函数，并将其包装在 LAMBDA 中以进行调用，f就像开篇帖子中那样。但除此之外，没有太大区别，所以如果你投票，至少也要投票给 Tom

    在此处输入图片描述

    • 0

  5. 没有新的逻辑，不用DROP而用INDEX，希望有更好的性能：

    =LAMBDA(a, b,
    LET(
        cols_a, SEQUENCE(, COLUMNS(a) - 1, 2),
        h_stack, LAMBDA(row,
            REDUCE(
                INDEX(a, row, 1) * b,
                INDEX(a, row, cols_a),
                LAMBDA(acc, a, HSTACK(acc, a * b))
            )
        ),
        REDUCE(
            h_stack(1),
            SEQUENCE(ROWS(a) - 1, , 2),
            LAMBDA(acc, row, VSTACK(acc, h_stack(row)))
        )
    )
)(Sheet2!A1:D128, Sheet2!F1:M256)

    在我的 Mac 上，这些范围大约需要 6 秒。

    • 0

相关问题