Разбивать HTML-теги и текст одной ячейки на несколько строк - PullRequest
Новая
       3

Разбивать HTML-теги и текст одной ячейки на несколько строк

0 голосов
/ 24 сентября 2019

Я пытаюсь найти функцию, которая возвращает все теги HTML и текстовые строки нескольких выбранных ячеек в отдельные строки нового листа, чтобы я мог редактировать текстовые строки и затем вставлять все обратно в выбранную ячейку.

У меня есть этот код, но, к сожалению, он слишком прост для моей задачи. 

Sub SplitCell ()
    Dim txt As String
    Dim i As Integer
    Dim fullname As Variant

    txt = ActiveCell.Value
    fullname = Split(txt, "<p>; <b>; <i>; </p>; </b>; </i>;")
        For i = 0 To UBound(fullname)
        Cells(1, i + 1).Value = fullname(i)
    Next i
End Sub

Вот ссылка на образец рабочего листа, чтобы дать вам лучшее представление о том, что я хотел быдостижения.

Пример листа

Sample Sheet

Ожидаемый результат

Expected Result

Спасибо,

1 Ответ

2 голосов
/ 24 сентября 2019

Будет разделено на "<", что не соответствует вашим потребностям, затем разделится на ">" результата, что-то вроде этого.

Sub test()

    Dim s As String
    Dim s1() As String
    Dim v As Variant

    s = "<td>test one</td><b>test two</b>"

    s1 = Split(s, "<")

    For Each v In s1        
        If Len(v) > 0 And Right(v, 1) <> ">" Then        
            Debug.Print Split(v, ">")(1)        
        End If        
    Next v        

End Sub
...