Добрый день! Помогите написать фрагмент макроса.
Есть столбец с текстом в ячейках, вида А-Б-В-Г-Д-1-Е-Ж-З и А-Б-В-Г-Д-Е-Ж-З. Нужно разбить текст по разделителю "-". Общее количество символов в ячейке, а также количество символов между разделителями может быть разное. Количество разделителей всегда семь или восемь. "Лишний" фрагмент всегда шестой. Написал такой макрос:
Теперь нужно в него вставить условие: если в ячейке семь разделителей, то ячейку в шестом столбце оставляем пустой.
Все мои попытки вставить условие, в виде кода, в макрос нагло пресекаются компьютером. Наверное компьютер тупой.
Помогите довести код макроса до рабочего состояния. Спасибо.
Есть столбец с текстом в ячейках, вида А-Б-В-Г-Д-1-Е-Ж-З и А-Б-В-Г-Д-Е-Ж-З. Нужно разбить текст по разделителю "-". Общее количество символов в ячейке, а также количество символов между разделителями может быть разное. Количество разделителей всегда семь или восемь. "Лишний" фрагмент всегда шестой. Написал такой макрос:
Код |
---|
Sub мак() Dim lLastRow As Long lLastRow = Cells(Rows.Count, 1).End(xlUp).Row Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).TextToColumns Destination:=Range("C2"), _ OtherChar:="-", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _ 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1)) End Sub |
Теперь нужно в него вставить условие: если в ячейке семь разделителей, то ячейку в шестом столбце оставляем пустой.
Все мои попытки вставить условие, в виде кода, в макрос нагло пресекаются компьютером. Наверное компьютер тупой.
Помогите довести код макроса до рабочего состояния. Спасибо.