Sub benzersiz_ado_sql_59()
Dim conn As Object, rs As Object
Set conn = CreateObject("AdoDb.Connection")
Set rs = CreateObject("AdoDb.Recordset")
Application.ScreenUpdating = False
Range("C2:C65536").Clear
conn.Open ("Provider=microsoft.jet.oledb.4.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 8.0;hdr=yes""")
Set rs = conn.Execute("Select  distinct(baslik) from[Sayfa1$];")
Range("C2").CopyFromRecordset rs
Set rs = conn.Execute("Select  sum(sayi) from[Sayfa1$] group by baslik;")
Range("D2").CopyFromRecordset rs
Set rs = Nothing
conn.Close
Set conn = Nothing
Application.ScreenUpdating = True
MsgBox "Benzersizler C sütununa çıkarıldı" & vbLf _
& "evrengizlen@hotmail.com", vbOKOnly + vbInformation
End Sub

.....
...............
.................
conn.Open ("Provider=microsoft.jet.oledb.4.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 8.0;hdr=yes""")
Set rs = conn.Execute("Select baslik, sum(sayi)from[Sayfa1$] group by baslik")
Range("C2").CopyFromRecordset rs
Set rs = Nothing
conn.Close
..........
...............
......................

Set rs = conn.Execute("Select baslik, sum(sayi),renk from[Sayfa1$] group by baslik, renk;")

Set rs = conn.Execute("Select baslik, sum(sayi),first(renk) from[Sayfa1$] group by baslik;")