主要是公式里座,输入不进去,LOOKUP(""座"")在加个双引号就可以了,但是会出现@
SUB SS
Dim s As String
s = "LET(A,TAKE(入库!$A$5:$B$10000,MATCH(LOOKUP(""座"",入库!$A:$A),入库!$A:$A)-4,2),B,TAKE(出库!$A$14:$B$10000,XLOOKUP(LOOKUP(""座"",出库!$A$14:$A$10000),出库!$A$14:$A$10000,ROW($14:$10000),,,-1)-13,2),GROUPBY(INDEX(VSTACK(A,B),,1),INDEX(VSTACK(A,B),,2),SUM,,-1))"
Sheet5.Range("a1").Formula = "=" & s
END SUB
SUB SS
Dim s As String
s = "LET(A,TAKE(入库!$A$5:$B$10000,MATCH(LOOKUP(""座"",入库!$A:$A),入库!$A:$A)-4,2),B,TAKE(出库!$A$14:$B$10000,XLOOKUP(LOOKUP(""座"",出库!$A$14:$A$10000),出库!$A$14:$A$10000,ROW($14:$10000),,,-1)-13,2),GROUPBY(INDEX(VSTACK(A,B),,1),INDEX(VSTACK(A,B),,2),SUM,,-1))"
Sheet5.Range("a1").Formula = "=" & s
END SUB