Страницы: 1
RSS
Как убрать из ячейки "все лишнее"
 
Есть макрос, который заглядывает в одну папку на компьютере и формирует в 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 (Жарин Д.Е.)  
потом выделяем столбец и через замену - * ( заменить на пусто, потом ) заменить на пусто.  
запишите всё это макрорекодером и вставьте в совй код.
 
Текст по столбцам и ctrl-h.
Я сам - дурнее всякого примера! ...
 
{quote}{login=urfin0000}{date=12.01.2012 05:12}{thema=}{post}через замену - * ( заменить на пусто{/post}{/quote}  
звездочка открывающаяся скобка - пусто  
закрывающая скобка - пусто
Страницы: 1
Читают тему
Наверх