Разбить однострочную ячейку на многострочную ячейку с помощью разделителя в Excel

Question

У меня много данных, почти 500 ячеек данных в формате изображения ниже. Пожалуйста, помогите мне, дав несколько советов.

П.С .: Я начинающий в Excel Vba

Answer 1

До:

Код:

Sub FixThisSheet()
    Cells.Replace What:=";", replacement:=Chr(10)
    Cells.WrapText = True
End Sub

После: