如何运用VBA将同一例中相同的数字统计出总数后，再按序号来排序.
商品号序号211955841-5211955842-5211955843-5211955844-5211955845-52119558621195586211955862...
商品号 序号
21195584 1-5
21195584 2-5
21195584 3-5
21195584 4-5
21195584 5-5
21195586
21195586
21195586
21195586
21195586
21195586
21195586
21195586
21195586
21195586
21195587
21195587
21195587
21195587
21195587
21195587
21195587
21195587
21195587
21195587 展开
21195584 1-5
21195584 2-5
21195584 3-5
21195584 4-5
21195584 5-5
21195586
21195586
21195586
21195586
21195586
21195586
21195586
21195586
21195586
21195586
21195587
21195587
21195587
21195587
21195587
21195587
21195587
21195587
21195587
21195587 展开
1个回答
展开全部
第一种用公式就可以办到
=COUNTIF($A$1:A$25,A1)-IF(A2<>"",COUNTIF(A2:A$25,A1),0)&"-"&COUNTIF($A$1:A$25,A1)
第二种用VBA（输出在C列)
Sub a()
Set d = CreateObject("scripting.dictionary")
arr = Range("A1:A25")
For i = 1 To UBound(arr)
d(arr(i, 1)) = d(arr(i, 1)) + 1
Next
For i = 1 To UBound(arr)
If Not d.exists(arr(i, 1) & " ") Then
d(arr(i, 1) & " ") = ""
n = 1
Cells(i, 3) = n & "-" & d(arr(i, 1))
Else
n = n + 1
Cells(i, 3) = n & "-" & d(arr(i, 1))
End If
Next
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
光点科技
2023-08-15 广告
通常情况下，我们会按照结构模型把系统产生的数据分为三种类型：结构化数据、半结构化数据和非结构化数据。结构化数据，即行数据，是存储在数据库里，可以用二维表结构来逻辑表达实现的数据。最常见的就是数字数据和文本数据，它们可以某种标准格式存在于文件...
点击进入详情页
本回答由光点科技提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
