Использование функции MID для диапазона данных

[NikolayGVB]

Добрый день, Коллеги,

помогите, пожалуйста, с грамотным макросом для решения следующей задачи: имеется столбец с данными (комбинация букв и цифр, длина комбинации всегда одинакова). Требуется в каждой ячейке всего диапазона данных оставить только 2 первых символа. Я так понимаю, что для решения задачи можно использовать MID, но не знаю, как грамотно записать все возвращаемые функцией значения обратно в те же ячейки.

Заранее благодарен за помощь,
с уважением,
Николай

[SAS888]

MID - это "середина". А если "слева", то LEFT.
Следующий код оставит в столбце "A" только два первых символа.

Sub Main()

    Application.ScreenUpdating = False
    Dim i As Long
    On Error Resume Next 'На случай, если в ячейке менее 2-х символов
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        Cells(i, "A") = Left(Cells(i, "A"), 2)
    Next

End Sub

Если требуется, можно сделать и функцию. Можно при вводе значения в ячейку столбца "A" запускать вышеприведенную процедуру. Тогда сразу, после ввода будет оставлено только два "левых" символа.

[NikolayGVB]

Все проще оказалось, чем я пытался изобразить

Спасибо ОГРОМНОЕ за науку!

С уважением,
Николай