分别取+号前，后的型号、及纸张按A4纸的对应关系换算

hxj119

B-E列，4列公式，弄成一个公式：

1. =LET(be,TEXTBEFORE(A2,"+"),af,TEXTAFTER(A2,"+"),f,LAMBDA(f,s,REGEXP(s,"\d+(?=G|双)")&"G"),g,LAMBDA(g,z,SUMPRODUCT(SIGN(BYROW(N(TEXTSPLIT(z,"/")=$I$3:$I$8),SUM))*$K$3:$K$8)),j,LAMBDA(j,r,REGEXP(r,"\d+(?=张)")),HSTACK(f(f,be),g(g,be)*j(j,be),f(f,af),IF(g(g,af)>0,g(g,af),g(g,be))*j(j,af)))

复制代码

zzf1113

谢谢各位大神的指导

那天的月亮

=LET(
    x,
    IFNA(
        REGEXP(
            A24:A36,
            {"\d+(?=(G|\pL{2,}))","\d+(\.\d+)?.\d+.M|A\d","\d+?(?=张)","\+.*?\K\d+(?=(G|\pL{2,}))","\+.*?\K((\d+(\.\d+)?.\d+.M)|A\d)","\d+(?=张(?!.*张))"}
        ),
        REGEXP(A24:A36, "\d+(\.\d+)?.\d+.M|A\d")
    ),
    f,
    LAMBDA(a, CHOOSECOLS(x, a)),
    HSTACK(
        f(1) & "G",
        VLOOKUP(f(2), I3:K8, 3, ) * f(3),
        f(4) & "G",
        VLOOKUP(f(5), I3:K8, 3, ) * f(6)
    )
)


垃圾题！模拟结果都是错的！

ggmmlol

VBA逻辑清晰
规格纸张分解.rar (17.45 KB, 下载次数: 0)

2025-12-20 05:58 上传

点击文件名下载附件