[已解决]相同数据量，数量相加

xmgao1021

把相同数据的盘点数量合计起来 最终要的结果是，盘点数量合计起来，其他编码，名称，库存的值都不变 test.rar (8.02 KB, 下载次数: 6)

2017-4-26 15:30 上传

点击文件名下载附件
数据

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-4-26 17:01

H列先设置文本格式。

1. Sub aaa()
   
2. Dim arr, brr, i&, j&, d As Object, r&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = [a1].CurrentRegion
   
5. ReDim brr(1 To UBound(arr), 1 To 4)
   
6. For i = 2 To UBound(arr)
   
7.   If Not d.exists(arr(i, 1) & arr(i, 2)) Then
   
8.     r = r + 1
   
9.     d(arr(i, 1) & arr(i, 2)) = r
   
10.     For j = 1 To 3
    
11.       brr(r, j) = CStr(arr(i, j))
    
12.     Next j
    
13.   End If
    
14.   brr(r, 4) = brr(r, 4) + arr(i, 4)
    
15. Next i
    
16. [h2].Resize(r, 4) = brr
    
17. End Sub

复制代码

跳转到最佳答案楼层

xmgao1021

哪位大神知道这个盘点数据怎么合计一起，麻烦指教下

zyouong

test.rar (8.52 KB, 下载次数: 6)

2017-4-26 15:46 上传

点击文件名下载附件

xmgao1021

zyouong 发表于 2017-4-26 15:46

你好，这个是原始数据，最终的格式是需要下面如图效果 ，刚我试下您帮忙操作的文件 好像是直接在下图结果操作，原始数据是没有下图这个结果数据的

大灰狼1976

H列先设置文本格式。

1. Sub aaa()
   
2. Dim arr, brr, i&, j&, d As Object, r&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = [a1].CurrentRegion
   
5. ReDim brr(1 To UBound(arr), 1 To 4)
   
6. For i = 2 To UBound(arr)
   
7.   If Not d.exists(arr(i, 1) & arr(i, 2)) Then
   
8.     r = r + 1
   
9.     d(arr(i, 1) & arr(i, 2)) = r
   
10.     For j = 1 To 3
    
11.       brr(r, j) = CStr(arr(i, j))
    
12.     Next j
    
13.   End If
    
14.   brr(r, 4) = brr(r, 4) + arr(i, 4)
    
15. Next i
    
16. [h2].Resize(r, 4) = brr
    
17. End Sub

复制代码

xmgao1021

大灰狼1976 发表于 2017-4-26 17:01
H列先设置文本格式。

非常感谢，刚那个代码可以了，但是我在C列加了一个规格，代码运行错误了，我是不是要改哪个值呢

阿铮

感觉好像可以，不知道是否符合要求？

zyouong

你的表中好像没有规格字段嘛
test.rar (9.74 KB, 下载次数: 5)

2017-4-27 09:37 上传

点击文件名下载附件

xmgao1021

zyouong 发表于 2017-4-27 09:37
你的表中好像没有规格字段嘛

规格字段是后面加上去的，之前忘记了 少加了一个字段，后面我试了你写的公式是可以使用，公式好长啊，没看懂公式的意思能不能麻烦你简单讲解下公式的意思 我好理解下，下次可以自己更改 谢谢

zyouong

xmgao1021 发表于 2017-4-28 09:24
规格字段是后面加上去的，之前忘记了 少加了一个字段，后面我试了你写的公式是可以使用，公式好长啊，没 ...

公式长主要是因为公式里面的offset函数，这个函数是动态选取A列有数据的区域。其他函数很短了。各个函数的意义，可以看具体函数的帮助。