Нужно разделить текст по ячейкам

Тема в разделе "Visual Basic", создана пользователем SoFuWa, 19 май 2009.

  1. SoFuWa

    SoFuWa Гость

    Есть БД с улицами, в каждой ячейке улицы вот в таком формате:
    40-рiччя Жовтня ( 40-летия Октября )

    на русском и украинсокм, это всё в одной ячейке, нужно чтобы это было в двух разных. Незнаю с помошью каких команд можно пермещатся по ячейке с текстом =). Если несложно накидайте примерно как это будет выглядеть, чтоб потом вставить в цикл и все строки прогнать.
    Все улицы на русском в скобках, поэтому их легко определить и скопировать например в ячейку справа от текущей, точнее не скопировать а вырезать.
     
  2. SoFuWa

    SoFuWa Гость

    в екселе оказывается вообще мастер такой есть =))
     
  3. Jumpy

    Jumpy Гость

    проблему то решили ?

    на всякий случай макрось:

    dim a as integer

    M = 10 'первая строка с улицей
    N = 100 'последняя строка с улицей
    for a = M to N
    If InStr(1, Range("A" & a), "(") <> 0 Then
    Range("B" & a) = Mid(Range("A" & a), 1, InStr(1, Range("A" & a), "(") - 1)
    Range("C" & a) = Mid(Range("A" & a), InStr(1, Range("A" & a), "("))
    End If

    next a

    ВНИМАНИЕ:
    данные должны быть в колонке A (первой)
    она ее разнесет по колонкам B и С (2 и 3ий), если в B и С чото было - оно затрется.
     
Загрузка...

Поделиться этой страницей