Как отсечь слева 5 знаков в каждой ячейки диапазона

Что делает макрос: Почтовые индексы США состоят из 5 или 10 цифр. Некоторые системы выводят 10-значный почтовый индекс, который слишком длинный. Общей задачей стандартизации данных является усечение ZIP коды к левым пяти цифрам. Многие из нас используют формулы, чтобы сделать это, но, если вы постоянно очищаете свои почтовые коды, макрос изложенные в данном разделе может помочь автоматизировать эту задачу. Важно отметить, что этот макрос решает конкретную проблему.

Как макрос работает

Этот макрос использует функцию LEFT, чтобы извлечь оставшиеся пять символов каждого почтового индекса в заданном диапазоне.

Код макроса

Sub Otsech5Znakov()
'Шаг 1: Объявляем переменные
Dim MyRange As Range
Dim MyCell As Range
'Шаг 2: Сохранить книгу прежде, чем изменить ячейки?
Select Case MsgBox("Перед изменением ячеек. " & _
"Сохранить книгу?", vbYesNoCancel)
Case Is = vbYes
ThisWorkbook.Save
Case Is = vbCancel
Exit Sub
End Select
'Шаг 3: определяем целевой диапазон
Set MyRange = Selection
'Шаг 4: запускаем цикл по диапазону
For Each MyCell In MyRange
'Шаг 5: отсекаем 5 левых символов
If Not IsEmpty(MyCell) Then
MyCell = Left(MyCell, 5)
End If
'Шаг 6: Получаем следующую ячейку в диапазоне
Next MyCell
End Sub

Как этот код работает

  1. Шаг 1 объявляет две переменные объекта Range.
  2. Мы должны сохранить книгу перед запуском макроса.
  3. Шаг 3 заполняет переменную MyRange с целевым диапазоном.
  4. Шаг 4 начинает цикл через каждую ячейку в целевом диапазоне.
  5. После того, как клетка активируется, Шаг 5 использует функцию для отсечения 5 символов слева
  6. Шаг 6 повторяет цикл, чтобы получить следующую ячейку. После просмотра всех ячеек в целевом диапазоне макрос заканчивается.

Как вы уже догадались, вы также можете использовать функцию RIGHT, чтобы отсечь правые символы в строке.

Как использовать

Для реализации этого макроса, вы можете скопировать и вставить его в стандартный модуль:

  1. Активируйте редактор Visual Basic, нажав ALT + F11.
  2. Щелкните правой кнопкой мыши проект / имя рабочей книги в окне Project.
  3. Выберите Insert➜Module.
  4. Введите или вставьте код в только что созданный модуль.
Оцените статью
Добавить комментарий