如何在Excel VBA中获取唯一值计数？

我需要找到使用VBA SQL方法，下面我所提供的所有信息的多个字段唯一值的数量。

我的数据是看起来像一个*

VC  SMP# JDEStyle PO#   QTY 
ARU  10176 AM7619  F117849OG 64 
ARU  10176 AM7619  F118215OG 192 
ARU  10176 AM7619  F248062OD 336 
ARU  653  AE7968  F114004O6 1 
ARU  653  AE7968  F241623O4 18 
ARU  653  AE7968  F8340O4  1 
GOK  2061 SM8360  F248018OD 246 
GOK  2061 SM8360  F248019OD 360 
GOK  2061 SM8360  F248020OD 774 
GOK  2061 SM8360  F248021OD 66 
GOK  2061 SM8360  F248022OD 372 
GOK  2061 SM8360  F256233OD 120 
GOK  2061 SM8360  F256234OD 360 
GOK  2061 SM8360  F256235OD 120 
GOK  2061 SM8360  F256236OD 360 
IND  10176 AB7049  F118324OG 217 
IND  10176 AB7049  F258738OD 87 
IND  10176 AB7049  F258739OD 540 
IND  2068 AB7011  F114006O6 5 
IND  2068 AB7011  F241625O4 3 
SEP  10313 AL4596  F117270OG 4005 
SEP  10313 AL4596  F118173OG 7911 
SEP  10313 AL4596  F254362OD 540 
SEP  10313 AL4596  F254365OD 150

和我的期望输出

VC SMP # JDEStyle PO # QTY 
ARU 10176 1   3  592 
ARU 653 1   3  20 
GOK 2061 1   9  2778 
IND 10176 1   3  844 
IND 2068 1   2  8 
SEP 10313 1   4  12606

但我越来越喜欢

VC SMP #  JDE Style Count of PO # Sum of QTY 
ARU 10176  3   3    592 
ARU 653  3   3    20 
GOK 2061  9   9    2778 
IND 10176  3   3    844 
IND 2068  2   2    8 
SEP 10313  4   4    12606

输出0

和我的代码是

Sub Quality_audit() 
Dim query1 As String 
Dim path As String 
Dim i As Integer 
Dim n As Integer 
Dim m As Long 
Dim wks As Worksheet 
path = "U:\BA\Testing\QA\2014.09.29 SP 15 PROD FLW UP RAW DATA.xlsx" 
query1 = "Select distinct [VC], [SMP #], Count([JDEStyle]) as 'JDE', Count ([PO #]) as PO, Sum ([Quantity]) as QTY from [Page 1$] where [SMP #] is not null AND ([VC] <> 'HEA' AND [VC] <> 'JMS' AND [VC] <> 'SJL') group by [VC], [SMP #]" 

Set conn = New ADODB.Connection 
With conn 
.Provider = "microsoft.ace.oledb.12.0;" 
.ConnectionString = "Data source = " & path & ";" & _ 
"extended properties = excel 12.0;" 
.Open 
End With 

Set rs = New ADODB.Recordset 
Set rs = conn.Execute(query1) 

Workbooks.Add 

Range("a2").CopyFromRecordset rs 
n = 1 
For i = 0 To rs.Fields.Count - 1 
Cells(1, n).Value = rs.Fields(i).Name 
n = n + 1 
Next 
rs.Close 
conn.Close 
end sub

您的帮助将不胜感激

来源

2014-10-08 user2066958

您不需要VBA。数据透视表将做你需要的。 – 2014-10-08 12:44:36

我认为在数据透视表中我们有np选项可以在excel 2010中获得唯一的值计数 – user2066958 2014-10-08 12:47:29

这取决于 - 您是否拥有PowerPivot？ – Rory 2014-10-08 13:00:01

问题是你没有得到独特的计数是否正确？那么问题将出现在SQL中，是的？我认为你的DISTINCT是在错误的地方。

Select 
    vc, 
    smp, 
    Count(distinct jdestyle) as 'JDE', 
    Count (distinct po) as 'PO', 
    Sum (qty) as 'QTY' 
from stuff 
group by VC, SMP;

来源

2014-10-08 13:55:18 steegness

在VBA SQl中不支持Steegness，Count（Distinct）函数。 – user2066958 2014-10-09 03:57:18

嗯，这里是你不妨探讨，如果你的返回的记录少于几千一个替代的解决方案。

enter image description here

的分子式为：

G2 - =IF(LEN(G1),IFERROR(INDEX(A$2:A$999, MATCH(0, IF(LEN(A$2:A$999), COUNTIFS($G$1:$G1,$A$2:$A$999,$H$1:$H1,$B$2:$B$999), 1),0)),""),"") 阵列式（CTRL + SHIFT +删除），复制到H2。

I2 - =IF(LEN($G2),SUMPRODUCT(($A$2:$A$999=$G2)*($B$2:$B$999=$H2)/COUNTIF(C$2:C$999, C$2:C$999&"")),"") 标准配方，复制到J2。

K2 - =IF(LEN(G2),SUMIFS($E$2:$E$999,$A$2:$A$999,$G2,$B$2:$B$999,$H2),"") 标准配方。根据需要填写所有五个公式，以获得您需要的记录。

正如您所知道的，数组公式和SUMPRODUCT毫不费力地咀嚼计算资源。但是，如果一个数据透视表被考虑过，这可能是一个可行的选择。

来源

2014-10-08 13:33:07 Jeeped

如何在Excel VBA中获取唯一值计数？

回答

相关问题