Så här använder du Visual Basic för program för att räkna förekomster av ett tecken i en markering i Excel

  • Artikel
  • Gäller för:
    Microsoft Office Excel 2007

Sammanfattning

I Microsoft Excel kan du använda ett makro för att räkna förekomster av ett visst tecken i en cell eller ett cellområde. Den här artikeln innehåller ett exempelmakrot för att räkna förekomster av ett visst tecken i en cell eller ett cellområde.

Du kan också använda en formel för att utföra uppgiften. Om du föredrar att inte använda ett makro klickar du på följande artikelnummer för att visa artiklarna i Microsoft Knowledge Base:

187667 formler för att räkna förekomster av text, tecken eller ord i Excel för Mac

Mer information

Microsoft tillhandahåller programmeringsexempel enbart i förklarande syfte och gör inga utfästelser, varken uttryckligen eller underförstått. Detta omfattar men begränsas inte till underförstådd garanti för säljbarhet eller lämplighet för ett visst syfte. I denna artikel förutsätts att du känner till det programmeringsspråk som demonstreras och de verktyg som används för att skapa och felsöka procedurer. Microsofts supportexperter kan hjälpa till att förklara funktionerna i en viss procedur, men de kommer inte att ändra dessa exempel för att tillhandahålla extra funktioner eller konstruera procedurer för att uppfylla dina specifika behov.

Exempel på Visual Basic-procedur

Följande Visual Basic-procedur frågar efter ett tecken (eller tecken), söker sedan igenom den markerade cellen eller cellområdet och visar en meddelanderuta som visar det totala antalet förekomster av det tecknet eller teckensträngen. Detta fungerar för alla alfanumeriska tecken.

Dim Count As Integer
Dim Target As String
Dim Cell As Object
Dim N As Integer

Sub Target_Count()
   Count = 0
   Target = InputBox("character(s) to find?")
   If Target = "" Then GoTo Done
      For Each Cell In Selection
         N = InStr(1, cell.Value, target)
         While N <> 0
            Count = count + 1
            N = InStr(n + 1, cell.Value, target)
         Wend
      Next Cell
   MsgBox count & " Occurrences of " & target
Done:
End Sub