Jak pomocí jazyka Visual Basic for Applications spočítat výskyty znaku ve výběru v aplikaci Excel

Souhrn

V aplikaci Microsoft Excel můžete pomocí makra spočítat výskyty určitého znaku v buňce nebo oblasti buněk. Tento článek obsahuje ukázkové makro pro počítání výskytů určitého znaku v buňce nebo oblasti buněk.

K provedení úkolu můžete použít také vzorec. Pokud nechcete používat makro, klikněte na následující čísla článků znalostní báze Microsoft Knowledge Base:

187667 vzorce pro počítání výskytů textu, znaků nebo slov v Excel pro Mac

Další informace

Společnost Microsoft poskytuje ukázky programování pouze pro ilustraci, bez žádné záruky výslovně uvedené nebo odvozené, včetně, bez omezení, odvozených záruk vztahujících se k obchodovatelnosti nebo vhodnosti pro určitý účel. Tento článek předpokládá, že uživatel je obeznámen s programovacím jazykem, který je předmětem ukázky, a s nástroji použitými pro vytvoření a ladění skriptu. Pracovníci technické podpory společnosti Microsoft mohou vysvětlit funkce určitého postupu, nemohou však následující příklady rozšířit o další funkce nebo konstrukce podle konkrétních požadavků uživatele.

Ukázková procedura Visual Basic

Následující procedura jazyka Visual Basic vás vyzve k zadání znaku (nebo znaků), prohledá aktuálně vybranou buňku nebo oblast buněk a zobrazí okno se zprávou zobrazující celkový počet výskytů tohoto znaku nebo řetězce znaků. To funguje pro všechny alfanumerické znaky.

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