Excel: Každý řádek buňky do sam. buňky Vyřešeno

[Florin]

Zdravim,

řešim teď opačný problém a nikde jsem nic nedohledal....
Potřeboval bych každý řádek buňky vložit do samostatné buňky přes VBA, s tím, že počet řádků v buňce je neznámý.
Díky za každou radu
Petr

[Reklama]

[Pic]

Přečti si pravidla tohoto fóra a nevkládej dotaz do cizího tématu a založ si vlastní. Dotaz vložen jako samostatné téma pod upraveným názvem.

[mmmartin]

Počet řádků v buňce je známý za všech okolností - je to jeden řádek. Pravděpodobně si pleteš pojmy buňka a blok. Pokud ne, zkus svůj problém popsat lépe.

[cmuch]

Tazatel to myslí takto,
Zalomený text v bunce pomocí alt+enter
Takže tady je makro co ten text rozdělí za buňku po jednotlivých řádcích.
Text ve sloupci A

Kód: Vybrat vše

Sub RozdelText()
  'rozdel zalomeny text do sloupcu za bunku
 
  Dim znak As Integer, OffsetCells As Integer
  Dim radek As Integer, ZalomeniKde As Integer
 
  Application.ScreenUpdating = False
 
  For radek = 1 To Cells(Rows.Count, "A").End(xlUp).Row

    OffsetCells = 1
    With Cells(radek, "A")
      For znak = 1 To Len(.Text)

        ZalomeniKde = InStr(znak, .Text, Chr(10))
         
        If ZalomeniKde > 1 Then
     
          .Offset(0, OffsetCells) = Mid(.Text, znak, ZalomeniKde - znak)
          znak = ZalomeniKde
          OffsetCells = OffsetCells + 1
        Else
          .Offset(0, OffsetCells) = Mid(.Text, znak, Len(.Text) - znak + 1)
          Exit For
        End If
      Next znak
    End With
  Next radek
  Application.ScreenUpdating = True
End Sub


[Florin]

Přečti si pravidla tohoto fóra a nevkládej dotaz do cizího tématu a založ si vlastní. Dotaz vložen jako samostatné téma pod upraveným názvem.

Omlouvám se, v rámci sběsilého hledání se přiznávám, že jsem pravidla nečetl.

cmuch jsi bůh, thx moc!!!