Как из кода вытащить 5,6,7 символы

[Romuald]

Добрый всем день!!
Помогите,пожалуйста!
В Sheet-e "Apgroz" в колонке А стоит код
В Sheet-e ''Group" в колонке А стоят первые четыре цифры этих кодов. а в колонке В - название группы

Надо в Sheet-e "Apgroz" из кода колонки А взять пятый.шестой и седьмой символ(валюта) и поставить в колонку ''I'' и в колонке ''J'' поставить название группы ,сравнив по первым четырем символам в Sheet-e Group.
Заранее благодарю

[SIV84]

У меня есть такой модуль:

Source$ = "mother milk" <или любая другая строкаЮ
For i = 1 To Len(Source$)
If i > 5 And i < 9 Then Reverse$ = Reverse$ + Mid$(Source$, i, 1)
Next i

может не идеально но 5,6,7 чимвол выводит

надеюсь что помог

[SIV84]

If i > 4 And i < 8 Then Reverse$ = Reverse$ + Mid$(Source$, i, 1)

ошибся в цифрах

[Romuald]

очень нужен макрос

[IgorGO]

дико извиняюсь, что без макроса

[SAS888]

Если нужно с помощью VBA, то можно, например так:

Sub Main()

    Application.ScreenUpdating = False
    Dim i As Long, x As Range
    Sheets("Apgroz.").Activate
    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        Cells(i, "I") = Mid(Cells(i, "A"), 5, 3)
        Set x = Sheets("Group").Columns("A").Find(What:=Left(Cells(i, "A"), 4), LookAt:=xlWhole)
        If Not x Is Nothing Then Cells(i, "J") = Sheets("Group").Cells(x.Row, "B")
    Next
    
End Sub

Если обновление значений должен осуществлять именно макрос, то это оправдано, а если нет, то лучше использовать формулы в ячейках листа от IgorGO.

[Romuald]

IgorGo,SAS888 !!!!
Спасибо Вам огромное!!!!
Макрос мне конечно нужнее
SAS888 ! - спасибо за помощь!
SAS888 у меня есть еще вопрос по этому файлу, я напишу новую тему, посмотрите,пожалуйста