Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Перенос текста в строке ячейки по условию
 
#1
03.06.2018 14:42:29
Здравствуйте !

В ячейках таблицы находится текст содержащий символы "//" - двойной слеш
Надо перенести строки перед "//" - обработать текст
Текст всегда начинается с "//"  -  те вида ( "//"Мама мыла раму "//" олролролопоп "//" орпропропорп и тд )
Но как сделать так чтобы именно первый слеш "//" был без переноса, а остальные с переносом Chr(10) ?
В макросе то все слеши переносятся - а как исключить из переноса самый первый в начале текста ?
Код
Dim x As Range
    Set x = Range("J4:J" & Cells(Rows.Count, "J").End(xlUp).Row): x.Replace Chr(10), ""
    x.Replace "//", Chr(10) & "//"
 
 
 
#2
03.06.2018 14:57:22
См. вариант. Текст в ячейке А1.
Код
Sub qqq()
Dim i As Long, Arr
    Arr = Split(Range("A1"), """//""")
    For i = 1 To UBound(Arr)
        If Range("B1") = "" Then
            Range("B1") = Arr(i)
        Else
            Range("B1") = Range("B1") & Chr(10) & Trim(Arr(i))
        End If
    Next
End Sub
 
 
 
#3
03.06.2018 15:02:37
Спасибо Юрий - буду пробовать сейчас
 
 
 
#4
03.06.2018 15:13:41
Код
Sub iTwoSlesh()
Dim mo As Object
Dim n As Integer
 With CreateObject("VBScript.RegExp")
   .Global = True
   .MultiLine = True
   .Pattern = " ""//"" "
     If .test(Cells(1, 1)) Then
       Set mo = .Execute(Cells(1, 1))
         For n = 0 To mo.Count - 1
           Cells(1, 1) = .Replace(Cells(1, 1), mo(n) & Chr(10))
         Next
    End If
 End With
End Sub
Текст в А1
 
 
 
#5
03.06.2018 15:29:05
Код
Sub Repl_()
    Range("A1").Value = """//""" & Replace(Range("A1").Value, """//""", Chr$(10), 5)
End Sub
 
 
 
#6
03.06.2018 15:41:40
Код
Sub Replace2Slesh()
  Dim r&: r = 9
  Do While Not IsEmpty(Cells(r, 10))
    Cells(r, 10) = """//""" & Replace(Cells(r, 10), """//""", vbLf & """//""", 5):  r = r + 1
  Loop
End Sub
Изменено: Ігор Гончаренко - 03.06.2018 16:08:51
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#7
03.06.2018 16:24:39
Ничего не получается у меня приладить - лишние обрезания идут и прочее Пример во вложении - так работает но первый слеш тоже переносится в примере - надо чтоб не переносился первый
 
 
 
#8
03.06.2018 16:54:39
vikttur, а не проще замену начинать с третьего символа?
 
 
 
#9
03.06.2018 17:02:31
Цитата
Ничего не получается у меня приладить - лишние обрезания идут...
ясен-красен...Вы разницу улавливаете между строками:
"//"Мама мыла раму "//" олролролопоп "//" орпропропорп и тд )
и
//Мама мыла раму // олролролопоп // орпропропорп и тд )
???
Код
Sub Replace2Slesh()
  Dim r&: r = 4
  Do While Not IsEmpty(Cells(r, 10))
    Cells(r, 10) = "//" & Replace(Cells(r, 10), "//", vbLf & "//", 3):   r = r + 1
  Loop
End Sub
понимаете, кроме правил форума я пользуюсь собственными правилами
задумался - не пора-ли взять себе за правило: "нет примера - нечего даже пытаться отвечать", потому что в данных все может быть совсем не так как в тексте вопроса.
Изменено: Ігор Гончаренко - 03.06.2018 18:42:43
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#10
03.06.2018 17:14:33
Ігор Гончаренко благодарю за помощь - сейчас как надо заработало !
 
 
 
Страницы: 1
Наверх