ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 3396|回复: 19

[求助] 求大神解决一个工作中在难题困扰很久,或者给个思路学习也可以。

[复制链接]

TA的精华主题

TA的得分主题

发表于 2021-7-17 22:56 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
几天时间,在网络上找了很久没有什么代替方案,朋友介绍到这里,说这里在大神多,老哥也热心,求教如下。小弟这里每日有5家门店供货商,供应商品名称相同但是数量与金额不同菜品。每日手动填写费时费力,3个月后公司还要再开一家门店,工作量又要增加,实在吃不消了。求教一种方法或者函数公式,可以自动分析出结果。详情看图与附件。


360截图20210717221955494.jpg 4家门店当日采购数据
2.jpg 物品名称相同但是数量与单价不同
3.jpg 当然物品不是固定的有少许变换,没有对比项的不需要分析
5.jpg 老板要对比每日相同物品价格,单价最高与最低价,单价最高购买数乘单价最低价格对比原价格中间差额  
6.jpg 比如这样的。单价最高标红,单价最低标绿,算出高低差额,低价数量购买节省金额。

纯手动计算实在伤不起。求教求助。

求助.rar

31.92 KB, 下载次数: 24

表格对比

TA的精华主题

TA的得分主题

发表于 2021-7-18 00:05 | 显示全部楼层
先VBA代码,或者用我的excel工作圈小工具,完成合并到一个表中。然后数据透视表即可

TA的精华主题

TA的得分主题

发表于 2021-7-18 06:56 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
这是vba才能做的事情,数组+字典,遍历所有门店工作簿数据,

TA的精华主题

TA的得分主题

发表于 2021-7-18 07:15 来自手机 | 显示全部楼层
类似于BOM,名字相同而金额数量不同的,对成品菜和材料进行编号,规范数据源后一切都不是问题了

TA的精华主题

TA的得分主题

发表于 2021-7-18 09:29 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
Sub 汇总数据()
Application.ScreenUpdating = False
Dim ar As Variant, br As Variant
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheet1
    r = .Cells(Rows.Count, 1).End(xlUp).Row
     .Range("a3:p" & r + 2).Borders.LineStyle = 0
    .Range("a3:p" & r + 2) = Empty
    ar = .Range("a1:p10000")
    For j = 3 To UBound(ar, 2) - 2 Step 3
        If Trim(ar(1, j)) <> "" Then
            d(Trim(ar(1, j))) = j
        End If
    Next j
    k = 2
    f = Dir(ThisWorkbook.Path & "\*.xls*")
    Do While f <> ""
        If f <> ThisWorkbook.Name Then
            Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & f, 0)
            br = wb.Worksheets(1).[a1].CurrentRegion
            mc = Trim(Split(wb.Name, ".")(0))
            y = d(mc)
            wb.Close False
            For i = 2 To UBound(br)
                If Trim(br(i, 2)) <> "" Then
                    t = d(Trim(br(i, 2)))
                    If t = "" Then
                        k = k + 1
                        d(Trim(br(i, 2))) = k
                        t = k
                        ar(k, 1) = br(i, 2)
                        ar(k, 2) = br(i, 3)
                    End If
                    If y <> "" Then
                        ar(t, y) = ar(t, y) + br(i, 4)
                        ar(t, y + 1) = br(i, 5)
                        ar(t, y + 2) = ar(t, y + 2) + br(i, 6)
                    End If
                End If
            Next i
        End If
    f = Dir
    Loop
    For i = 3 To k
        n = 0
        ReDim rr(1 To 4, 1 To 1)
        For j = 4 To UBound(ar, 2) - 2 Step 3
            If IsNumeric(ar(i, j)) Then
                n = n + 1
                rr(n, 1) = ar(i, j)
            End If
        Next j
        zd = Application.Max(Application.Index(rr, 0, 1))
        zx = Application.Min(Application.Index(rr, 0, 1))
        ar(i, 15) = zd - zx
    Next i
        
    .[a1].Resize(k, UBound(ar, 2)) = ar
    .[a1].Resize(k, UBound(ar, 2)).Borders.LineStyle = 1
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

评分

2

查看全部评分

TA的精华主题

TA的得分主题

发表于 2021-7-18 09:30 | 显示全部楼层
求助.rar (46.67 KB, 下载次数: 20)

TA的精华主题

TA的得分主题

发表于 2021-7-18 09:30 | 显示全部楼层
节省金额没有写,自己搞定吧

TA的精华主题

TA的得分主题

发表于 2021-7-18 10:04 来自手机 | 显示全部楼层
with a as (select * from 一号店菜价明细表

union select * from 二号店菜价明细表 union select * from 三号店菜价明细表 order by 物品名称,单价)

select 物品名称,group_concat(店名||'<br>'||单价,'</td><td>') '一</td><td>二</td><td>三',(max(单价)-min(单价)) 高低差额 from a group by 物品名称 having count(店名)>2

节省 是 差价 * 那个数量?
収*O_20210718_100148.png

TA的精华主题

TA的得分主题

 楼主| 发表于 2021-7-18 11:03 来自手机 | 显示全部楼层
大神感谢,万分感谢我去试试

TA的精华主题

TA的得分主题

发表于 2021-7-18 12:53 来自手机 | 显示全部楼层
zpy2 发表于 2021-7-18 10:04
with a as (select * from 一号店菜价明细表

union select * from 二号店菜价明细表 union select * fr ...

with a as (select * from 一号店菜价明细表

union select * from 二号店菜价明细表 union

select * from 三号店菜价明细表 order by 物品名称,单价), b as (select 物品名称,group_concat(店名||'<br>'||单价||'*'||数量,'</td><td>') '一</td><td>二</td><td>三',(max(单价)-min(单价)) 高低差额,max(单价) 最高价,min(单价) 最低价 from a aa group by 物品名称 having count(店名)=3)
select *,(select 数量 from a where 物品名称=b.物品名称 and 单价=b.最高价)*高低差额 低价节省金额 from b
収*O_20210718_125240.png
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2025-1-16 06:01 , Processed in 0.027966 second(s), 14 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表