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

  • Автор темы SoFuWa
  • Дата начала
S

SoFuWa

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

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

SoFuWa

#2
в екселе оказывается вообще мастер такой есть =))
 
J

Jumpy

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

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

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

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 и С чото было - оно затрется.