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
Excel: Každý řádek buňky do sam. buňky Vyřešeno
- Pic
- Moderátor
-
Guru Level 13
- Příspěvky: 23292
- Registrován: září 06
- Bydliště: Východní Čechy
- Pohlaví:
- Stav:
Offline
Re: Excel: Každý řádek buňky do sam. buňky
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.
Přečti si pravidla tohoto fóra! Přečetl jsi si nejprve manuál? Piš tak, abychom Ti rozuměli! Na SZ neodpovídám na požadavky řešení Vašich problémů s PC!
Nic není dokonalé, ani člověk!
Nic není dokonalé, ani člověk!
- mmmartin
- Moderátor
-
Elite Level 10
- Příspěvky: 9504
- Registrován: srpen 04
- Bydliště: Praha
- Pohlaví:
- Stav:
Offline
Re: Excel: Každý řádek buňky do sam. buňky
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.
ASUS Prime Z390-P / Hexa Core Intel core i5 Coffee Lake-S / Gigabyte GeForce GTX 650 Ti / FORTRON BlueStorm Bronze 80PLUS / W 11
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: Excel: Každý řádek buňky do sam. buňky Vyřešeno
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
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
Re: Excel: Každý řádek buňky do sam. buňky
Pic píše: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!!!
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
Excel - filtr na formát buňky + obsah Příloha(y)
od popcorn » 19 zář 2023 17:07 » v Kancelářské balíky - 0
- 2088
-
od popcorn
Zobrazit poslední příspěvek
19 zář 2023 17:07
-
-
- 16
- 6324
-
od mirekol
Zobrazit poslední příspěvek
20 říj 2023 08:31
-
-
Excel komparacedvou soborů Příloha(y)
od teichmann.ondrej » 15 dub 2024 17:26 » v Kancelářské balíky - 11
- 3374
-
od teichmann.ondrej
Zobrazit poslední příspěvek
22 dub 2024 15:45
-
-
- 3
- 2014
-
od Story-Long
Zobrazit poslední příspěvek
14 srp 2023 10:11
-
- 1
- 420
-
od Grimm
Zobrazit poslední příspěvek
12 bře 2024 21:43
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 6 hostů