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, 8 months telt el-delila.
-
A témakör módosításra került: 7 years, 8 months telt el-delila.