Как да извлечете липсващите стойности чрез VBA

В тази статия ще създадем дефинирана от потребителя функция, за да открием липсващия номер в диапазон чрез VBA в Microsoft Excel.

Потребителска функция: Microsoft Excel ви позволява да създадете своя собствена функция според изискването, ние го наричаме User Defined Function. Можем да използваме и функции, дефинирани от потребителя, както и други функции, работещи в Excel.

Нека вземем един пример, за да разберем:-

Имаме данни, в които имаме стойности за всеки код на код и искаме да проверим липсващата стойност между 1 до 99, ако в диапазона липсват стойности, кои стойности липсват и ако всички стойности са налични, тогава резултатът трябва да бъде всички стойности са налични.

Ще напишем VBA кода, за да разберем липсващите числа, като следвате следните стъпки:

Отворете VBA страница, натиснете клавиша Alt+F11
Поставете модул
След това отидете отново в менюто за вмъкване и кликнете върху процедура, където ще получите процедурата, ако не знаете как трябва да стартирате макроса
Напишете кода по -долу:

Функция Missing_Number (Myrange As Range) Dim Number (1 to 99) As Integer On Error Resume Next за всяка клетка в Myrange Number (Cell.Value) = 1 Next On Error GoTo 0 Missing_Number = "Missing:" For I = 1 To 99 Ако не е число (I) = 1 Тогава Missing_Number = Missing_Number & I & "," End If Next I If Len (Missing_Number) = 9 Then Missing_Number = Left (Missing_Number, Len (Missing_Number) - 2) End If End Function