Новости:

Теперь на форум можно залогиниться / зарегистрироваться с помощью ВКонтакте. Уже существующие пользователи могут связать свою учетную запись с аккаунтом ВКонтакте одним кликом в профиле пользователя http://forum.msexcel.ru/index.php?action=profile;area=account

Главное меню

Корректировка тестового файла в Excel

Автор Maxumus, 16.01.2012, 16:48

« назад - далее »

Maxumus

Добрый день.
Прошу помочь в решении следующей задачи.

Первоначально информация находиться в текстовом формате.
При копировании ее в Excel информация помещаеется в несколько ячеек (гораздо меньше чем необходимо) + есть знаки препинания и постоянно ее оттуда доставать в ручную проблематично.
Вся информация находится в отдельных файлах, но структура почти одинакова.

Пример перенесенного файла и пример того что нужно во вложении.

Как сделать помогите.
Заранее спасибо за помощь.

exceleved

После импорта запустите макрос:Sub bb()
Dim a As Range, c As Range, d$(), i&
For Each a In [C:C].SpecialCells(xlCellTypeConstants, xlTextValues).Areas
    For Each c In a(2).Resize(a.Rows.Count - 1).Cells
        i = InStr(c, "(")
        d = Split(Mid(c, i + 1, Len(c) - i - 1), ", ")
        c(, 2).Resize(, UBound(d) + 1).Value = d
    Next
Next
End Sub
Макрос заполняет ячейки текстом, а не числами, соответствующими времени - в большинстве ячеек примера так.

Maxumus

Спасибо за помощь.
Я ни разу этого не делал.
Я не знаю как?

Подскажите плиз чайнику что за чем и куда

ShAM

См.файл. Жмите кнопку. Код, связанный с кнопкой и написанный выше ув. exceleved, можете посмотреть нажав Alt/F11.

Maxumus

Огромное спасибо!!!

exceleved - за помощь в создании файла
ShAM - за консультацию.

Всё работает, просто превосходно.

Это просто супер - нет слов.