PQ-ben oszlopokból 1 oszlop létrehozása

Szia Imi,

Egy feladat szerint az A oszlop celláiban több mondatból álló szövegek vannak, ” – Sortörés – ” elválasztóval.
Pl. az A1 tartalma:
Ez itt az első mondat. – Sortörés – Ez már a második. – Sortörés – A harmadik mondatnál járunk? – Sortörés – Nem, ez a negyedik.

Ezeket a mondatokat kellene folyamatosan 1 oszlopba tenni, természetesen az elválasztó szöveg nélkül. Makróval egyszerű:

`Sub Mondatok_Sorokba()
Dim CV As Range, ter As Range, tomb As Variant
Dim sor As Long, i As Integer

Set ter = Range(„A1”).CurrentRegion
sor = 0
For Each CV In ter.Cells
If CV <> „” Then
tomb = Split(CV, ” – Sortörés – „)
For i = LBound(tomb) To UBound(tomb)
Cells(sor + 1, ter.Column + 1) = tomb(i)
sor = sor + 1
Next i
End If
Next
End Sub

PQ-vel addig jutottam, hogy minden cella mondatait egymás melletti oszlopokba írattam pár kattintással, de tudom-e ezt a tartományt egyetlen oszlopba helyezni?

Üdv,
Kati

Szerk: hogy lehet tabulátorokkal tagolt makrót ide bevinni?

• A témakör módosításra került: 7 years, 7 months telt el-delila.
• A témakör módosításra került: 7 years, 7 months telt el-delila.