关于数据处理问题求助大神帮忙解决下，感谢！！！！

luojiakun

数据处理，求大神指点

jkshen3

vlookup函数就可以实现,还是说 必须要用vba去实现?

luojiakun

jkshen3 发表于 2023-3-29 11:32
vlookup函数就可以实现,还是说 必须要用vba去实现?

用函数应该不好操作，只能用VBA

于箱长

一个物料号对应多个子物料号的怎么办？

于箱长

luojiakun

于箱长 发表于 2023-3-29 11:48

是的，困难的就在这里，需要在前面展示出来

于箱长

luojiakun 发表于 2023-3-29 13:40
是的，困难的就在这里，需要在前面展示出来

人工判断的话，知道选哪个吗？

gwjkkkkk

Option Explicit
Sub TEST()
    Dim ar, br, cr, i&, j&, m&, n&
   
    Application.ScreenUpdating = False
    br = Sheets(2).[A1].CurrentRegion
    cr = Array(2, 10, 6, 7)
   
    With [A1].CurrentRegion
        .Offset(1, 1).ClearContents
        ar = .Value
        For i = 2 To UBound(ar)
            For j = 2 To UBound(br)
                If br(j, 1) = ar(i, 1) Then
                    For m = j + 1 To UBound(br)
                        If br(m, 1) = "" Then
                            For n = 0 To UBound(cr)
                                If ar(i, n + 2) = "" Then
                                    ar(i, n + 2) = br(m, cr(n))
                                Else
                                    ar(i, n + 2) = ar(i, n + 2) & "、" & br(m, cr(n))
                                End If
                            Next n
                        Else
                            Exit For
                        End If
                    Next m
                    Exit For
                End If
            Next j
        Next i
        .Value = ar
    End With

    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

请参考。。。