Samansisältöisten solujen yhteenlasku

Oletetaan aluksi, että käytät Exceliä vaikka et sitä erikseen maininnutkaan. (Muitakin taulukkolaskentaohjelmia on, ihan vaan muistutuksena kaikille. :)

Jos Excelisi juttelee englantia, niin hae ohjeesta avainsanalla (keyword) "count" ja valitse aiheeksi (topic) "Count unique entries in a list". Sieltä löytyvät ohjeet tuohon tarvitsemaasi temppuun. Ja sama varmaan suomeksi.

lisää valikkoon oma painike ja liitä siihen makro

Sub Lkm()
Dim x As Range
Dim vika As Double
On Error Resume Next
Set x = Application.InputBox("Valitse sarake", "Uniikkiarvot", Type:=8)
x.AdvancedFilter Action:=xlFilterInPlace, Unique:=True
vika = Application.WorksheetFunction.Subtotal(3, x)
MsgBox vika
ActiveSheet.ShowAllData
End Sub

Jos solualue on yhtenäinen (ei yhtään tyhjää solua välillä), onnistunee tällä matriisikaavalla:
{=SUMMA(JOS(VASTINE(A1:SIIRTYMÄ(A1;LASKE.A(A:A)-1;0);A1:SIIRTYMÄ(A1;LASKE.A(A:A)-1;0);0)=RIVI(A1:SIIRTYMÄ(A1;LASKE.A(A:A)-1;0));1;0))}

Kaava laskee montako eri arvoa löytyy A-sarakkeesta, jos välissä on tyhjiä soluja ei onnistu.