Як витягнути з рядка тільки цифри в excel

Нещодавно ми розглянули як можна повернути з рядка тільки букви, виключивши цифри. Тепер же ми розглянемо зворотну ситуацію, коли з рядка нам необхідно повернути тільки цифри, виключивши текстову інформацію.

Завдання все та ж - у нас є стовпець з даними (і текс і цифри) і нам потрібно розбити окремо текст і окремо цифри. Як ми писали вище з текстом ми вже розібралися, залишилося витягнути цифри.

Вбудованої функції для цих цілей в Excel так само немає, тому ми будемо писати призначену для користувача.

Public Function GetNumbers (TargetCell As Range) As StringDim LenStr As LongFor LenStr = 1 To Len (TargetCell) Select Case Asc (Mid (TargetCell, LenStr, 1)) Case 48 To 57GetNumbers = GetNumbers Mid (TargetCell, LenStr, 1) End SelectNextEnd Function

Як користуватися?

Відкриваємо редактор VBA в Excel (Alt + F11), або правою кнопкою по листу і вибираємо пункт «Вихідний текст».

Створюємо новий модуль → Insert → Module

Перемикається на російську розкладку клавіатури, копіюємо код, вказаний вище і вставляємо в модуль

Далі в потрібному осередку, де необхідно вивести тільки букви, прописуємо формулу:

= GetNumbers (A1)

і простягаємо її вниз