0
s-pc
11.01.12
✎
12:11
|
В ячейке 1 есть текст вида "112-12 Иванов И.И." Нужно, чтобы в ячейку 2 попали только первые несколько символов, конкретно, цифры "112-12".
В самом листе ввел в нужную ячейку нужную формулу - =ЛЕВСИМВ(A1;6) - получил то, что нужно. А как правильное тоже самое в код (в макрос) вставить?
вот фрагмент кода
===
r = Range("A65536").End(xlUp).Row + 1 'находим первую пустую строку
'выводим данные по файлу
For Each f1 In fc
Cells(r, 1) = f1.Name
r = r + 1
Next
===
|
|