Найти все неверные ID в столбце и в MsgBox показать номера всех строк

@blackcat1024 · Регистрация: 08.04.2016

Author24 — интернет-сервис помощи студентам

Помогите написать Vba код. Найти все неверные ID в столбце и MsgBox показать номера всех строк. Файл с примером и сам вопрос приложен.

@Narimanych · 21.03.2022, 11:31

blackcat1024,
Именно для вашего файла , для столбца "H" , начиная с 7 строки вот этот код:

Visual Basic

Sub MMM()
LR = Cells(Rows.Count, 8).End(xlUp).Row
SS = "Ошибка "
Set RR = CreateObject("VBScript.RegExp")
RR.Pattern = "^[A,B,C,D,E,F]M*\d{3}$"
For i = 7 To LR
    If Not RR.Test(Cells(i, 8).Value) Then SS = SS & i & ", "
Next
If Len(SS) <= 7 Then MsgBox "Всё ОК" Else MsgBox SS
End Sub

	21.03.2022, 11:31