请问如何用SQL语句编写非重复计数

landercandy

请教各位大神，我想要对销售负责人、医生和患者列根据区域聚合求不重复计数，我尝试用
select count(distinct 销售人数) from table
但提示出错，请问应该怎么写呢？谢谢

wp231957

贴出 你期望的结果   图片也可

landercandy

wp231957 发表于 2020-6-15 14:37
贴出 你期望的结果   图片也可

亲，贴好了哦，谢谢

zpy2

select 区域,count(distinct 销售负责人),count(distinct 医生),count(distinct 患者) from 非重复计数显示明细表 GROUP BY 区域

landercandy

zpy2 发表于 2020-6-15 14:52
select 区域,count(distinct 销售负责人),count(distinct 医生),count(distinct 患者) from 非重复计数显示 ...

谢谢亲的帮助，可是我运行下来不行呢，顺便问下亲，你这什么网站啊，可以在线编辑SQL，太牛了！

wp231957

landercandy 发表于 2020-6-15 15:00
谢谢亲的帮助，可是我运行下来不行呢，顺便问下亲，你这什么网站啊，可以在线编辑SQL，太牛了！

ACCESS数据库（也就是vba自带的SQL语法）不支持   count(distinct 医生)  这样的写法

zpy2

landercandy 发表于 2020-6-15 15:00
谢谢亲的帮助，可是我运行下来不行呢，顺便问下亲，你这什么网站啊，可以在线编辑SQL，太牛了！

3楼说的是对的。
网页是我自己的博客用来在线练习sql的，是sqlite的。
在线sql

donghui2363

    Sql = "select distinct 区域,销售负责人 from[sheet1$]"
    Sql = "select 区域,count(销售负责人) from (" & Sql & ") group by 区域"
销售负责人的，其他的你改改就行了

donghui2363

结果写到K列了，这样循环感觉很慢
Sub 计数()
Set cnn = CreateObject("adodb.connection")
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
    Sql = "select distinct 区域 from [sheet1$]"
    arr = Application.Transpose(cnn.Execute(Sql).GetRows)
    crr = Array("区域", "销售", "医生", "患者")
    ReDim brr(1 To UBound(arr), 1 To 4)
    For i = 1 To UBound(arr)
        s = arr(i, 1)
        k = k + 1
        brr(k, 1) = s
            Sql = "select distinct 区域,销售负责人 from [sheet1$]"
            Sql = "select count(销售负责人) from (" & Sql & ") where 区域='" & s & "'"
            brr(i, 2) = cnn.Execute(Sql).Fields(0)
            Sql = "select distinct 区域,医生 from [sheet1$]"
            Sql = "select count(医生) from (" & Sql & ") where 区域='" & s & "'"
            brr(i, 3) = cnn.Execute(Sql).Fields(0)
            Sql = "select distinct 区域,患者 from [sheet1$]"
            Sql = "select count(患者) from (" & Sql & ") where 区域='" & s & "'"
            brr(i, 4) = cnn.Execute(Sql).Fields(0)
    Next i
    Range("k1:n1") = crr
    Range("k2").Resize(k, 4) = brr
    cnn.Close
    Set cnn = Nothing
End Sub

wp231957

landercandy 发表于 2020-6-15 14:43
亲，贴好了哦，谢谢

我这里可以变通实现，结果和4楼一致，和你1楼 并不一致，所以不知道对错

Sub wp()
    Set Cnn = CreateObject("ADODB.Connection")
    Cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
   
    Sql = "select 区域,count(销售负责人) from (select distinct 区域,销售负责人 from [sheet1$a:g]) group by 区域"
    Sheets("sheet1").Range("j1").CopyFromRecordset Cnn.Execute(Sql)
   
    Sql = "select count(医生) from (select distinct 区域,医生 from [sheet1$a:g]) group by 区域"
    Sheets("sheet1").Range("l1").CopyFromRecordset Cnn.Execute(Sql)
   
    Sql = "select count(患者) from (select distinct 区域,患者 from [sheet1$a:g]) group by 区域"
    Sheets("sheet1").Range("m1").CopyFromRecordset Cnn.Execute(Sql)
   
  
End Sub