拜请高手帮忙！数据源部分数据复制到目标表格匹配的对应位置

Mr吴贤明

数据如图，我需要实现的是，将工作表”菜品成本核算”中原料：五花肉，辅料：生姜，大蒜，鲜青辣椒，调味料：酱油，生抽 及对应的  （这些材料都是变化的），提交保存到不同工作簿的工作表“菜品基本信息”中去，菜品工作表的辅料，调味料，都是固定的，需要自动去找到对应位置，填充数据源D列的重量内容。  比如：数据源辅料生姜 重量20克， 点击提交后自动在菜品基本信息表的生姜列下填上20
图一  数据源     图二  希望数据源内数据复制效果
vba小白， 实在搞不好，但又要这样的效果和vba方式，请高手帮帮忙，可以的话写个说明。

3190496160

说了一大通，却忘了最关键的东西：上传你的相应文件，写代码是要看具体的表格结构，写出来还得测试代码正确与否，只上传几张图片，任何人都帮不了你的

Mr吴贤明

表结构有点乱，高手顺便帮我检查下自己写的几个代码看行不行。

Mr吴贤明

3190496160 发表于 2022-12-24 09:06
说了一大通，却忘了最关键的东西：上传你的相应文件，写代码是要看具体的表格结构，写出来还得测试代码正确 ...

谢谢提醒，附件已上传

3190496160

最关键一点：主料每个菜品是只有一种主料还是可能有多种？如果有多种，那在目标表中如何呈现？因为，你的目标表中主料值留了一个位置而已

3190496160

Sub 提交菜品()
Application.ScreenUpdating = False
Dim ar As Variant
Dim d As Object
Set d = CreateObject("scripting.dictionary")
lj = ThisWorkbook.Path & "\"
f = Dir(lj & "基础信息表.xls*")
If f = "" Then MsgBox "找不到基础信息表": End
With Sheets("菜品成本核算")
    ar = .Range("a1:l76")
End With
Set wb = Workbooks.Open(lj & f, 0)
With wb.Worksheets("菜品基本信息")
    h = UBound(ar)
    br = .Range("a1:aj" & h)
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    For j = 8 To UBound(br, 2)
        If Trim(br(4, j)) <> "" Then
            d(Trim(br(4, j))) = j
        End If
    Next j
    n = r
    For i = 15 To 35
        If Trim(ar(i, 4)) <> "" Then
            n = n + 1
            br(n, 1) = ar(3, 10)
            br(n, 3) = ar(5, 10)
            br(n, 4) = ar(6, 10)
            br(n, 5) = ar(i, 2)
            br(n, 6) = ar(i, 4)
            br(n, 7) = ar(i, 6)
        End If
    Next i
    For i = 36 To 54
        If Trim(ar(i, 4)) <> "" Then
            lh = d(Trim(ar(i, 2)))
            If lh <> "" Then
                br(n, lh) = ar(i, 4)
                br(n, lh + 1) = ar(i, 6)
            End If
        End If
    Next i
    For i = 55 To 76
        If Trim(ar(i, 4)) <> "" Then
            lh = d(Trim(ar(i, 2)))
            If lh <> "" Then
                br(n, lh) = ar(i, 4)
            End If
        End If
    Next i
    .[a1].Resize(n, UBound(br, 2)) = br
End With
Set d = Nothing
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

菜品工作台.rar (57.25 KB, 下载次数: 8)

2022-12-25 10:22 上传

点击文件名下载附件

Mr吴贤明

3190496160 发表于 2022-12-25 10:22

非常感谢，需求基本实现，但有点点问题，不懂。
1. 输出工作表5行为空时，提交的内容直接覆盖表头了
2.行右侧调味料内容只显示重量，出成率怎么不能像行前面一样自动添加上去。

本人小白，不太懂VBA,Excel也只略微，硬着头皮帮餐厅做个简单管理系统，都是网上找了自己钻，很多都看不懂，方便的话，高手再帮我写个说明吧，让我更好消化。 另外我想加几个功能
1.如果提交的菜品到“菜品信息表”如果有重复，则提醒是否更换原有的重名菜品
2.如果提交的菜品中材料在菜品信息表里所列举的里面没有，则自动添加上去。

3190496160

只解决了行问题，其他的不懂

菜品工作台.rar (59.04 KB, 下载次数: 2)

2022-12-26 14:29 上传

点击文件名下载附件

Mr吴贤明

3190496160 发表于 2022-12-26 14:29
只解决了行问题，其他的不懂

非常感谢您的帮助