Новости:

Прикрепить к сообщению можно только файлы xls, gif, jpg, rar, zip,7z, bas, frm, cls, doc размером до 150 Кб.

Главное меню

Разбивка ячейки на строки с сохранением соседних ячеек, need help!

Автор Groom, 10.11.2008, 13:53

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

Groom

Здравствуйте уважаемые!
Прошу помощи, озадачен табличкой с тарифами, телефонный провайдер присылает тарифы, мы должны проконтроллировать расходы своим биллингом, беда в том, что присылают в одном виде (см вложение 1), а наш биллинг понимает в другом (см вложение 1).
Ума не приложу как это реализовать, кроме как руками, проблема ещё в том, что они меняют тарифы часто, каждый раз руками обрабатывать никакого времени не хватит.
Буду благодарен за любую помощь.

Шпец Докапыч

Цитата: Groom от 10.11.2008, 13:53
Ума не приложу как это реализовать, кроме как руками...

Сотрите в ячейке "A2" первые четыре символа ("502 "). Эти "502" и прочий повторяющийся текст можете потом добавить формулами. Вот код, чтобы преобразовать формат:
Sub SHD_ZPTvVert()
  Iskh = Split([A2], ",")
  For i = 0 To UBound(Iskh)
    If InStr(1, Iskh(i), "-") > 0 Then
      MSmall = Split(Iskh(i), "-")
      Iskh(i) = ""
      For n = CLng(MSmall(0)) To CLng(MSmall(UBound(MSmall)))
        Iskh(i) = Iskh(i) & "," & n
      Next
    End If
  Next
  strOut = Replace(Replace(Join(Iskh, ","), ",,", ","), " ", "")
  MOut = Split(strOut, ",")
  Range("E1:E" & UBound(MOut) + 1).Value = Application.Transpose(MOut)
End Sub
Знания недостаточно, необходимо применение. Желания недостаточно, необходимо действие. (с) Брюс Ли