Excel - คืนค่าหลายค่าสำหรับแต่ละรายการค่า

ฉันพยายามที่จะแก้ปัญหานี้ในไม่กี่ชั่วโมงตอนนี้ แต่ไม่มีผล ...

การตั้งค่าของฉัน:

• ฉันมีแผ่น Excel ของสูตรผลิตภัณฑ์เครื่องสำอาง

• แต่ละสูตรมีหลายสิบของส่วนผสมแต่ละที่กำหนดโดยตัวของมันชื่อทางการค้า

• ฉันมีรายชื่อยาวแปลชื่อทางการค้าของแต่ละคนที่จะชื่อ 'วิทยาศาสตร์'

ฉันจำเป็นต้องแปลชื่อทางการค้าแต่ละชื่อให้เป็นคู่ทางวิทยาศาสตร์ ส่วนนี้เป็นเรื่องง่ายมากที่จะทำกับ vlookup

แต่บางชื่อทางการค้าที่มีสูตรในตัวเองที่มีส่วนผสมหลายในตารางของชื่อวิทยาศาสตร์ ดังนั้นมันจึงไม่ใช่ความสัมพันธ์ 1: 1 บางครั้ง (ไม่เสมอไป) ก็คือ 1: มากมาย

ตัวอย่างเช่น:

เครื่องสำอางค์ A sheet

 IngredientA_trade_name

 IngredientB_trade_name

 IngredientC_trade_name

แลกเปลี่ยนไฟล์ต้นแบบของรายชื่อทางวิทยาศาสตร์:

 IngredientA_trade_name     Science1
 IngredientB_trade_name     Science2
 IngredientB_trade_name     Science3
 IngredientB_trade_name     Science4    
 IngredientC_trade_name     Science5
 IngredientC_trade_name     Science6

 ....etc, for lots and lots of ingredients.

ตอนนี้ฉันได้พบวิธีที่จะคืนค่าหลายค่า แต่ไม่มีสิ่งเหล่านี้ทำงานโดยอัตโนมัติ:

ฉันต้องใส่ชื่อส่วนผสมลงในเซลล์จากนั้นวางสูตรไว้ที่เซลล์ถัดจากนั้นและลากลงมาไม่กี่ที่เพื่อให้ป้อนอัตโนมัติสำหรับการแข่งขันที่เป็นไปได้ทั้งหมด โซลูชันอื่น ๆ นำค่าที่ส่งคืนมาไว้ในเซลล์เดียว (Science2, Science3, Science4) ซึ่งดีกว่าเล็กน้อย แต่ไม่ได้ผลสำหรับกระบวนการทำงานที่เหลือของฉัน ...

มีวิธีการผ่านรายการชื่อทางการค้าและแทรกแถวตามความจำเป็นที่มีชื่อวิทยาศาสตร์ทั้งหมดหรือไม่?

มาโครนี้ที่ใช้ VBA จะทำงาน:

Public Sub ingredients()
    Dim wkb As Workbook
    Dim wks, wks1 As Worksheet
    Set wkb = ThisWorkbook
    Set wks = ActiveSheet
    wks.Application.ScreenUpdating = False
    mastername = "Master"
    totalsheets = wkb.Worksheets.Count
    For i = 1 To totalsheets
        Set wks1 = wkb.Worksheets(i)
        wks1name = wks1.Name
        If wks1name = mastername Then
            i = totalsheets
        Else
            Set wks1 = Nothing
        End If
    Next i
    reviewing = True
    activerow = 1
    While reviewing
        tradename = wks.Cells(activerow, 1)
        If tradename = "" Then
            reviewing = False
        End If
        reviewingmaster = True
        activerowmaster = 1
        found = 0
        While reviewingmaster
            sciname = wks1.Cells(activerowmaster, 1)
            If sciname = "" Then
                reviewingmaster = False
            End If
            If sciname = tradename Then
                found = found + 1
                If found > 1 Then
                    activerow = activerow + 1
                    wks.Rows(activerow).Insert
                End If
                wks.Cells(activerow, 2) = wks1.Cells(activerowmaster, 2)
                wks.Cells(activerow, 3) = wks1.Cells(activerowmaster, 3)
            End If
            activerowmaster = activerowmaster + 1
        Wend
        activerow = activerow + 1
    Wend
    wks.Application.ScreenUpdating = True
    theend = MsgBox("Finished on " & wks.Name, vbInformation)
End Sub

คุณต้องเปิด Macros / VBA แทรกโมดูลภายใต้ThisWorkbookและวางรหัสทางด้านขวา

โปรดจำไว้ว่า:

• รหัสทำงานบนแผ่นงานที่ใช้งานอยู่
• ชื่อวิทยาศาสตร์ใหม่ทุกชื่อนอกเหนือจากชื่อแรกสำหรับชื่อทางการค้าจะถูกเพิ่มในแถวใหม่
• รหัสถูกเตรียมให้ทำงานตราบใดที่ไม่มีเซลล์ว่างในคอลัมน์ A ของแผ่นงาน
• เนื่องจากสมมติว่าชื่อของเวิร์กชีทรายการหลักคือปรมาจารย์คุณต้องเปลี่ยนบรรทัดmastername="Master"เป็นชื่อที่เหมาะสม
• การตั้งชื่อการค้า 500 ชื่อและชื่อทางวิทยาศาสตร์ 5,000 ชื่อใช้เวลา 23 วินาที

สำหรับ Excel 2010 หรือ 2013 ฉันจะใช้ Power Query Add-In สำหรับสิ่งนี้ จาก Excel 2016 Power Query จะถูกสร้างไว้ใน Ribbon ข้อมูลภายใต้ส่วน "รับและแปลง"

Power Query สามารถเริ่มต้นจากตาราง Excel มันมีคำสั่งผสานที่สามารถเข้าร่วมแบบสอบถามด้วยตัวเลือกเพื่อให้การแข่งขันเท่านั้น ผลการสืบค้นสามารถเขียนไปยังตาราง Excel

ความต้องการของคุณจะใช้เวลาสักครู่ในการออกแบบใน Power Query โดยไม่ต้องใช้รหัส

...

ฉันได้รับแรงบันดาลใจจากข้อเสนอแนะที่เป็นประโยชน์เพื่อขยายคำตอบนี้ อันที่จริงฉันสร้างโซลูชันที่ใช้งานได้ซึ่งคุณสามารถดาวน์โหลดได้จาก OneDrive ของฉันและลองใช้งาน:

http://1drv.ms/1AzPAZp

มันเป็นไฟล์: Power Query demo - คืนค่าหลายค่าสำหรับแต่ละรายการของค่า

ฉันใช้เวลาในการสร้างน้อยกว่า 2 นาที (ไม่นับการคัดลอกในข้อมูลอินพุตและเขียนแผ่น Read Me) และไม่ต้องการรหัส / ฟังก์ชั่นใด ๆ

เทคนิคสำคัญคือผสานและขยายดังที่อธิบายไว้ที่นี่:

https://support.office.com/en-us/article/Merge-queries-Power-Query-fd157620-5470-4c0f-b132-7ca2616d17f9