[已解决]做进销存管理系统遇到一个难题，求教大神

glory2099

现在在做一个进销存管理软件，需要将一列中重复出现的项目名称显示出来，比如：
A
B
A
B
C
C
A
A
显示结果就是
A
B
C
请问大神用什么代码或者函数可以实现吗？{:041:}

最佳答案

月排行榜 / 总排行榜

E路人

2013-12-11 14:55

glory2099 发表于 2013-12-11 14:11
这是我已经完成的部分，现在入库统计手动调

附件三.rar (35.6 KB, 下载次数: 29)

2013-12-11 15:07 上传

点击文件名下载附件

跳转到最佳答案楼层

E路人

glory2099 发表于 2013-12-11 14:11
这是我已经完成的部分，现在入库统计手动调

附件三.rar (35.6 KB, 下载次数: 29)

2013-12-11 15:07 上传

点击文件名下载附件

E路人

1. Sub aa()
   
2. Dim i As Long, d As Object
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. With Sheets("Sheet1")
   
5. For i = 1 To .[A65536].End(3).Row
   
6. If Not d.exists(.Cells(i, 1)) Then d(.Cells(i, 1) & "") = i
   
7. Next i
   
8. .[B2].Resize(d.Count, 1) = Application.Transpose(d.keys)
   
9. End With
   
10. End Sub
    

复制代码

提取不重复

E路人

1. =IFERROR(INDEX(A:A,SMALL(IF(MATCH($A$1:$A$34,$A$1:$A$34,)=ROW($1:$34),ROW($1:$34)),ROW(A1))),"")

复制代码

数组不重复:B1下拉公式完成,按ctrl+shift+enter三键数组公式

E路人

glory2099

E路人 发表于 2013-12-11 12:49

刚才发现自己设想的思路不行，是这样子的，我现在在做进销存管理，现在入库已经做好了，可以逐笔进行录入
现在需要统计每种产品的实时件数、吨位和金额，之前通过sumif函数进行统计，但是没增加一个品种就得重新加函数，能否用VBA实现库存统计功能呢{:041:}

729923765

学习了！

E路人

glory2099 发表于 2013-12-11 13:47
刚才发现自己设想的思路不行，是这样子的，我现在在做进销存管理，现在入库已经做好了，可以逐笔进行录入 ...

日期也不规范,录入带窗体,还没有单元格好录入,库存也没有表怎么统计,会用窗体,数组也会用应该吧

glory2099

E路人 发表于 2013-12-11 13:55
日期也不规范,录入带窗体,还没有单元格好录入,库存也没有表怎么统计,会用窗体,数组也会用应该吧

日期确实不规范，做这个主要是给我爸用的，他计算机不是很会，现在搞仓库管理，每天录入的进货单和出库单很多张，我害怕他录错了，于是就用窗体录入的方式。以前没学过VBA，也是最近买了几本书在自学，代码什么的基本都是书上的基础代码+自己琢磨的东西，数组目前一无所知，哎~~~

glory2099

E路人 发表于 2013-12-11 13:55
日期也不规范,录入带窗体,还没有单元格好录入,库存也没有表怎么统计,会用窗体,数组也会用应该吧

这是我已经完成的部分，现在入库统计手动调