如何使用VBA代码统计相同规格的元件个数，并把相同名称的元件放在相邻行

zhangjianan2010

请教各位老师和大神们，如何使用VBA代码把左边表格中的元器件BOM转换成右边表格的BOM格式？感谢感谢！
1.左边的元件名称capacitor对应右边的元件名称贴片电容，resistor对应贴片电阻……，当然写代码的时候可以不用把英文元件名称转换成中文元件名称。
2.需要把左边value对应的列中相同规格的元件的数量累加起来，并把相同元件名称的元件放在相邻的行，如右边表格所示。

keyjohnco

最好是传原文档，方便处理

一把小刀闯天下

'不止电阻、电容，其它的看不太清楚，不然全给你定义好

'自己在mark数组中添加其它类的，3个为1组用逗号分隔，，，

Option Explicit

Sub test()
  Dim arr, mark, i, j
  arr = Range("a3:d" & [c3].End(xlDown).Row)
  mark = Split("capacitor,电容,C,resistor,电阻,R", ",")'3个为一组
  For i = 1 To UBound(arr, 1)
    For j = 0 To UBound(mark) Step 3
      If LCase(arr(i, 3)) = LCase(mark(j)) Then Exit For
    Next
    If j < UBound(mark) + 1 Then
      arr(i, 1) = mark(j + 1): arr(i, 4) = mark(j + 2)
    Else
      arr(i, 1) = vbNullString: arr(i, 4) = arr(i, 1)
    End If
  Next
  [a3].Resize(UBound(arr, 1), UBound(arr, 2)) = arr
End Sub

zhangjianan2010

keyjohnco 发表于 2019-8-14 06:26
最好是传原文档，方便处理

不好意思，平时比较忙只有周有空，原文档稍作整理，我是打算用字典的方法来处理，但因是新手，刚接触字典，只能稍微看懂别人的代码，自己写起来就无从下手，还请大神和各位老师多多指教，感谢感谢。