组合SKU成本计算

42921783

根据FG列的SKU成本数据，算出A列组合SKU对应的总成本，用VBA怎么计算，结果如B列所示。

约定的童话

这种不好计算，建议表格改下，名称+数量分成两列

42921783

约定的童话 发表于 2018-11-9 10:30
这种不好计算，建议表格改下，名称+数量分成两列

规律还是有的啊，VBA大神应该有办法的。

一把小刀闯天下

Option Explicit

Sub test()
  Dim arr, mark, i, j, t
  mark = [f2:g5]
  For i = 1 To UBound(mark) - 1
    For j = i + 1 To UBound(mark)
      If Len(mark(i, 1)) < Len(mark(j, 1)) Then
        t = mark(i, 1): mark(i, 1) = mark(j, 1): mark(j, 1) = t
        t = mark(i, 2): mark(i, 2) = mark(j, 2): mark(j, 2) = t
      End If
  Next j, i
  arr = [a1].CurrentRegion.Offset(1)
  For i = 1 To UBound(arr, 1) - 1
    For j = 1 To UBound(mark)
      arr(i, 1) = Replace(arr(i, 1), mark(j, 1), mark(j, 2))
    Next
    arr(i, 1) = Evaluate(arr(i, 1))
  Next
  [b2].Resize(UBound(arr, 1) - 1) = arr
End Sub