在两个链接列之间的两个工作表之间需要 Vlookup 帮助

Question

我有以下格式的 sheet1 数据

我需要 VBA 代码在 sheet2 中的 Group Id 和 Product ID 中的 vlookup，并插入以黄色突出显示的新行，称为 BT 订单，并根据 Wk8 和 Wk9 列填充 DMD 列中的 400 和 600 值 vlookup第二张纸的第几周的值。

Dim i As Long 

For i = 2 To Range("E" & Rows.Count).End(xlUp).Row 
    If Trim(Range("E" & i).Value) = RTrim("CMT") Then 
        Rows(i + 1).Insert shift:=xlShiftDown 
        Range("A" & i + 1 & ":D" & i + 1).Value = Range("A" & i - 1 & ":D" & i - 1).Value 
        Range("E" & i + 1).Value = "BT/Order" 
    End If 
Next i

Answer 1

试试这个：

Sub Tester()

    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim i As Long, i2 As Long, grp, prod, amt, wk
    
    Set ws1 = ThisWorkbook.Worksheets("Sheet1")
    Set ws2 = ThisWorkbook.Worksheets("Sheet2")
    
    i = 2
    Do While i <= ws1.Cells(Rows.Count, "E").End(xlUp).Row
        If Trim(ws1.Range("E" & i).Value) = RTrim("CMT") Then
            
            ws1.Rows(i + 1).Insert shift:=xlShiftDown
            ws1.Cells(i + 1, "A").Resize(1, 4).Value = ws1.Cells(i, "A").Resize(1, 4).Value
            ws1.Cells(i + 1, "E").Value = "BT/Order"
            
            'current group/product id's
            grp = ws1.Cells(i, "A").Value
            prod = ws1.Cells(i, "C").Value
            
            'loop sheet2 and find matches
            For i2 = 2 To ws2.Cells(Rows.Count, 1).End(xlUp).Row
                If ws2.Cells(i2, "A").Value = grp Then
                    If ws2.Cells(i2, "B").Value = prod Then
                        'got match - check amount and week
                        amt = ws2.Cells(i2, "D").Value
                        wk = ws2.Cells(i2, "E").Value
                        If amt > 0 Then
                            'insert amount in relevant column  
                            ws1.Cells(i + 1, "F").Offset(0, wk).Value = amt
                        End If
                    End If
                End If
            Next i2
        
        End If
        i = i + 1
    Loop

End Sub