指定区域内提取非空数据到合计工作表

你是那块小饼干

1. =LET(t,REDUCE({"工作表名","产品名","数量","负责人"},{"A1";"A2";"B1";"B2"},LAMBDA(X,Y,VSTACK(X,IFNA(HSTACK(Y,INDIRECT("'"&Y&"'!C6:E16")),Y)))),
   
2. FILTER(t,CHOOSECOLS(t,2)<>0,""))
   

复制代码

我要成为专家

这不是VBA该干的事儿吗

Sub shishi()
For Each ws In Sheets
    If ws.Name <> "合计" Then
        m = ws.[c5].CurrentRegion.Rows.Count
        n = [a1].CurrentRegion.Rows.Count
        ws.[c6].Resize(m - 1, 3).Copy Cells(n + 1, 2)
        Cells(n + 1, 1).Resize(m - 1) = ws.Name
    End If
Next ws
End Sub

longer10010

感谢各位！！！！！！！