Страницы: 1
RSS
Добавить тег к каждому переносу
 
Добрый вечер, подскажите, пожалуйста, как решить данную задачу:
Есть ячейка с текстом:
Цитата
Производитель: Тест
Номинальный ток, А: 50
Характеристика эл.магнитного расцепителя: C
Номинальная отключающая способность, кA: 6
Номинальное напряжение, В: 400
Количество силовых полюсов: 2P
Способ монтажа: DIN-рейка
Степень защиты: IP20
Необходимо перед каждым переносом (в конце каждой строчки) вставить тег <br />

Т.е. должно получиться так:
Цитата
Производитель: Тест<br />
Номинальный ток, А: 50<br />
Характеристика эл.магнитного расцепителя: C<br />
Номинальная отключающая способность, кA: 6<br />
Номинальное напряжение, В: 400<br />
Количество силовых полюсов: 2P<br />
Способ монтажа: DIN-рейка<br />
Степень защиты: IP20<br />
 
Код
Sub InsTeg()
Dim arr
Dim j As Integer
  arr = Split(Cells(1, 1), Chr(10))
  For j = 0 To UBound(arr)
    arr(j) = arr(j) & "<br />"
  Next
  Cells(1, 2) = Join(arr, Chr(10))
End Sub
 
Kuzmich, спасибо! Я из-за своей неграмотности забыл сообщить, что необходимо так выполнить для радиуса А1:А1001 и вставить, например рядом. Я пытался:
Код
Sub Кнопка1_Щелчок()
Dim arr
Dim j As Integer
  arr = Split(Range(Cells(1, 1), Cells(1001, 1)), Chr(10))
  For j = 0 To UBound(arr)
    arr(j) = arr(j) & "<br />"
  Next
  Cells(1, 2) = Join(arr, Chr(10))
  Range(Cells(1, 2), Cells(1001, 2)) = Join(arr, Chr(10))
End Sub
 
suvmsh, Вы лучше покажите небольшой файл-пример с исходными данными и с желаемым результатом. А то всё "на пальцах"...
 
может нужна просто формула
=SUBSTITUTE(A1;CHAR(10);"<br\>"&CHAR(10))&"<br\>"
Изменено: БМВ - 06.08.2018 23:23:10
По вопросам из тем форума, личку не читаю.
 
Цитата
Юрий М написал:
А то всё "на пальцах"...
Ну кому на пальцах, а нам на лапах :-)
По вопросам из тем форума, личку не читаю.
 
Но, но, но! Я бы попросил лапы не трогать!
 
Спасибо всем за участие!

Отдельное спасибо БМВ, Ваша формула решила мою задачу.  
Страницы: 1
Наверх