Есть макрос, который заглядывает в одну папку на компьютере и формирует в Excele список имеющихся там папок.
Папки у меня называются примерно так:
196-11 (Мунипов Р.)
197-11(Шарафутдинов А.Ф.)
198-11(Камалов С.Н.)
200-11 (Жарин Д.Е.)
Мне нужно, чтобы в первый столбец попадали только цифры, а во второй имена, но без скобок
С первой частью разобрался, а вот как быть со вторым столбцом? Как можно убрать из него уже имеющиеся в пером столбце цифры и ненужные здесь скобки, чтобы получилось что-то вида:
196-11 | Мунипов Р.
197-11 | Шарафутдинов А.Ф.
198-11 | Камалов С.Н.
200-11 | Жарин Д.Е.
Фрагмент кода у меня пака такой:
===
For Each f1 In fc
Cells(r, 1) = f1.Name
Cells(r, 2).Formula = "=LEFT(R[]C[-1],6)"
Cells(r, 3) = 'нужно убрать 6 символов, уже попавших в столбец 2, а также начальный пробел и скобки, если есть
===
r = r + 1
Next
Папки у меня называются примерно так:
196-11 (Мунипов Р.)
197-11(Шарафутдинов А.Ф.)
198-11(Камалов С.Н.)
200-11 (Жарин Д.Е.)
Мне нужно, чтобы в первый столбец попадали только цифры, а во второй имена, но без скобок
С первой частью разобрался, а вот как быть со вторым столбцом? Как можно убрать из него уже имеющиеся в пером столбце цифры и ненужные здесь скобки, чтобы получилось что-то вида:
196-11 | Мунипов Р.
197-11 | Шарафутдинов А.Ф.
198-11 | Камалов С.Н.
200-11 | Жарин Д.Е.
Фрагмент кода у меня пака такой:
===
For Each f1 In fc
Cells(r, 1) = f1.Name
Cells(r, 2).Formula = "=LEFT(R[]C[-1],6)"
Cells(r, 3) = 'нужно убрать 6 символов, уже попавших в столбец 2, а также начальный пробел и скобки, если есть
===
r = r + 1
Next