我希望能够获取“大量”物料清单,并自动将其汇总为“总和”相同物料。
例如,是否有一种有效的方法来完成以下任务?
收件人
我目前从第一张照片中选择所有数据,并按以下顺序进行SORT:
1)种 2)尺寸(宽) 3)尺寸(高) 4)长度 5)PCS
然后,我选择“将任何看起来像数字的东西排序为数字”选项。 。
但是,经过这种排序后,我必须手动计算“喜欢”物品的总数,以便完整地汇总我的列表,以得出第二张照片的外观。 。
是否可以自动汇总照片1中的数据,使其看起来与照片2完全相同?
您的帮助将使我的生活更加轻松!谢谢您的时间!
答案 0 :(得分:1)
尝试一下:
此操作从第2行开始,根据大小(W),大小(H),长度和种类检查所有其他行是否匹配。如果所有这些都匹配,则将PCS和Order求和在一起,并删除其中一行。
Sub Consolidate()
Dim i As Long
For i = 8 To Cells(Rows.Count, 1).End(xlUp).Row
For j = Cells(Rows.Count, 1).End(xlUp).Row To 8 Step -1
If i <> j Then
If Cells(i, 6).Value = Cells(j, 6).Value And _
Cells(i, 8).Value = Cells(j, 8).Value And _
Cells(i, 9).Value = Cells(j, 9).Value And _
Cells(i, 10).Value = Cells(j, 10).Value And _
Cells(i, 11).Value = Cells(j, 11).Value Then
Cells(i, 2).Value = Cells(i, 2).Value + Cells(j, 2).Value
Rows(j).Delete
End If
End If
Next j
Next i
End Sub