关于BON表整理

pengtao1314

大家好，我是在一家台资企业做产品工程师，主要负责BOM维护，其中BOM整理不太智能化，希望大家出谋划策能提高我们团队工作效率，预祝大家新年快乐。

大致流程：我们会从客户端下载BOM然后通过整理转化工厂BOM，并维护MRP系统生产

1.客户BOM结构是竖向排列我们需要提取里面有效物料
2.针对目前整理全是人工，基本两个人需要3-5天
3.后期维护进系统时间更长

维护提供效率特向朋友们求助：

由于公司及客户保密，所有资料均不能带出公司，只能拍照供参考，如下图片为一个客户成品BOM
截图，GB BOM也类型这样

一把小刀闯天下

'缺少了2个规则，根据结果给加上去了。另外这个"如果"工作表就是结果的吧

'看了你前面的几个主题帖都类似，只是在不停的改变条件，，，

Option Explicit

Sub test()
  Dim arr, i, j, k, kk, p, pp, m, flag As Boolean
  With Sheets("bom")
    arr = .Range("a2:e" & .Cells(Rows.Count, "a").End(xlUp).Row + 1)
  End With
  ReDim brr(1 To 2 * UBound(arr, 1), 8)
  For i = 1 To UBound(arr, 1) - 1
    For j = i To UBound(arr, 1) - 1
      If Len(arr(j, 1)) > 0 And Len(arr(j, 3)) = 0 Then p = j: Exit For
    Next
    For j = p To UBound(arr, 1) - 1
      If Len(arr(j + 1, 1)) + Len(arr(j + 1, 2)) = 0 Or Len(arr(j + 1, 1)) > 0 And Len(arr(j + 1, 3)) = 0 Then
        m = m + 1: brr(m, 0) = arr(p, 1): brr(m, 4) = arr(p, 2): brr(m, 6) = arr(p, 4)
        For k = p + 1 To j
          If arr(k, 1) = 1 Then
            m = m + 1
            brr(m, 0) = arr(p, 1): brr(m, 1) = 1: brr(m, 4) = arr(k, 2): brr(m, 5) = arr(k, 3)
            brr(m, 6) = arr(k, 4): brr(m, 7) = arr(k, 5)
          Else
            flag = False
            For kk = k To j
              If arr(k, 1) <> arr(kk, 1) Then pp = kk - 1: Exit For
              If arr(kk, 2) = "Z" Then flag = True
              If kk = j Then pp = kk
            Next
            If flag Or k = pp Then
              For kk = k To pp
                m = m + 1
                brr(m, 0) = arr(p, 1): brr(m, arr(kk, 1)) = arr(kk, 1): brr(m, 4) = arr(kk, 2): brr(m, 5) = arr(kk, 3)
                brr(m, 6) = arr(kk, 4): brr(m, 7) = arr(kk, 5)
              Next
            End If
            k = pp
          End If
        Next
        i = j: Exit For
      End If
    Next
  Next
  Sheets("如果").[a2].Resize(UBound(brr, 1), UBound(brr, 2) + 1) = brr
End Sub

y1983y

建议bOM分层显示，再进行筛选。

zpy2

整理成这样人工判断某颗物料保留下皆物料还是删除
整理成这样人工判断工作量也不少，一般都是结合库存自动计算的