Подсчитайте количество цифр в ячейке с помощью VBA

Question

Я получаю таблицу, но иногда они не дают мне всех цифр, которые мне нужны при запуске моего макроса. Поэтому я пытаюсь найти способ подсчета количества цифр в ячейке, а затем использовать msgbox, чтобы сказать мне добавить цифру в ячейку.

If Len(A2) <> 7 Then 
MsgBox ("Add # to the end ") 
Exit Sub 
End If 

Я был также интересно, если есть способ, чтобы использовать поле ввода, чтобы добавить номер в конце значения в Excel. Как если цифры 123456 я могу поставить 7 в поле ввода и изменяет значение ячейки 1234567

Answer 1

Это должно работать для персонажей, но если другие персонажи находятся в клетке, кроме всего числа он считает все:

If Len([A2]) <> 7 Then 
    [A2] = [A2].Value & InputBox("Add # to the end ") 
End If