Блог

использование VBA в MS Word. в настоящее время у меня есть группа чисел в списке массивов (пожалуйста, порекомендуйте лучший вариант для хранения списка значений). Я хочу получить отдельное количество каждого значения (так что 10 =1 и 10,5 = 4). Я попытался отфильтровать список массивов, но я не думаю, что он точно соответствует значению просто «содержит», поэтому фильтрация массива и подсчет не сработали для меня (все возвращенные значения). я попробовал другое решение, которое нашел, но не смог заставить его работать. кто-нибудь порекомендует решение.

примеры данных: 10, 10.5, 10.5, 10.5, 10.5

 arr = myarrayList.toarray
filteredArray = Filter(arr, 10, True, vbTextCompare) // does not filter, since all values 'contain' 10

count10 = Application.Count(Application.Match(arr, Array(10), 0)) //i dont think vba has Match 

occurrences = arr.lastIndexOf(10) - arr.IndexOf(10, 0)   1  //i dont think vba has lastIndexof
 

Пожалуйста, попробуйте следующий код:

 Sub filterArray()
   Dim arr, dict As Object, El
   'to exemplify, I build the array as:
   arr = Split("10, 10.5, 10.5, 10.5, 10.5", ", ")
   'you should use the array extracted from your ArrayList...

   Set dict = CreateObject("Scripting.Dictionary")
   For Each El In arr
        If Not dict.Exists(El) Then
            dict.Add El, 1
        Else
            dict(El) = dict(El)   1
        End If
   Next
   Debug.Print dict(CStr(10))     'the dictionary keys are strings...
   Debug.Print dict(CStr(10.5))
End Sub
 

Отредактированный:

Пожалуйста, попробуйте следующую версию, используя целые числа (в массиве и как ключи словаря).:

 Sub filterArrayX()
   Dim arr, dict As Object, El
   arr = Array(10, 10.5, 10.5, 10.5, 10.5)
   Set dict = CreateObject("Scripting.Dictionary")
   For Each El In arr
        If Not dict.Exists(El) Then
            dict.Add El, 1
        Else
            dict(El) = dict(El)   1
        End If
   Next
   Debug.Print dict(10)   
   Debug.Print dict(10.5)
End Sub