تابع شمارش تعداد تکرار کلمات در اکسل

تابع شمارش تعداد تکرار کلمات در اکسل تابع ارائه شده در این مقاله یک تابع برداری است و کار آن به این صورت است که تعداد دفعات تکرار کلمات در یک محدوده را شمارش می کند. این تابع برداری است و بنابراین برای اجرای آن باید به جای Enter کلیدهای Ctrl+ Shift + Enter را فشار دهید. همچنین برای اجرا چون نمیدانیم چند کلمه منحصر به فرد در متن وجود دارد باید به طور حدسی یک محدوده بزرگتر از تعداد کلمات منحصر به فرد را انتخاب کنید. این تابع دو آرگومان دارد که اولی همان محدوده و دومی یکی از مقادیر 1 یا 2 است. با عدد 1 لیست کلمات منحصر به فرد و با عدد 2 تعداد تکرار هر کلمه ارائه می شود. در تصویر زیر کارکرد این تابع به شما نشان داده شده است :   این هم کد تابع :

Function WordCount(tbl_array As Range, pos As Integer) As Variant()
               
               Dim cell As Variant, wrds As Variant, i As Integer
               Dim a As Integer, j As Integer
               Dim tmp() As String, nr() As Integer
               ReDim tmp(0), nr(0)
               
               nr(0) = 1
               For Each cell In tbl_array
               wrds = Split(cell)
               For i = 0 To UBound(wrds)
               For j = 0 To UBound(tmp)
               If wrds(i) = tmp(j) Then
               nr(j) = nr(j) + 1
               a = 1
               Exit For
               End If
               Next j
               
               If a <> 1 Then
               tmp(UBound(tmp)) = wrds(i)
               ReDim Preserve tmp(UBound(tmp) + 1)
               ReDim Preserve nr(UBound(tmp))
               nr(UBound(tmp)) = 1
               End If
               a = 0
               Next i
               Next cell
               
               If pos = 1 Then
               ReDim Preserve tmp(UBound(tmp) - 1)
               WordCount = Application.Transpose(tmp)
               Else
               ReDim Preserve nr(UBound(nr) - 1)
               WordCount = Application.Transpose(nr)
               End If
               End Function