把Sheet2对应的自编码和特供单价复制到Sheet1

hongsonjj

把Sheet2对应的自编码和特供单价跟Sheet1的自编码和特供单价能匹配就把Sheet2的C、D、E、F、G、H、I、J复制到Sheet1的H至Q

用vba解决

wodewan

直接Vlookup吧，
I2单元格输入=VLOOKUP($D2,Sheet2!$A:$J,COLUMN(A$1)+3,0)
右拉，下拉

orr89

Sub 表2赋值给表1()
    Application.ScreenUpdating = False
    On Error Resume Next
    For a = 2 To Sheet2.[a60000].End(3).Row
        查找值 = Cells(a, "A")
        arr = Range("c" & a & ":j" & a)
        Sheet1.Activate
        Columns("D:D").Select
        Selection.Find(What:=查找值, After:=ActiveCell, LookIn:=xlFormulas, _
            LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=False, MatchByte:=False, SearchFormat:=False).Select
        行号 = Selection.Row
        Range("h" & 行号).Resize(1, UBound(arr, 2)) = arr
        Erase arr
        Sheet2.Activate
    Next
   
    Application.ScreenUpdating = True
End Sub
对了请给朵小花