Excel makro - kopírování buněk
Excel makro - kopírování buněk
Ahoj, chtěl bych se zeptat na dotaz pro vás asi naprosto rychlý a jednoduchý. Potřebuji z listu List1 v sešitu v excelu vypsat všechny neprázdné buňky ve sloupci B do listu List2. První buňka je B6 a nevím si rady. Zkoušel jsem různé kódy pomocí Range... Copy a pak Paste, ale to vždy zkopírovalo i s formátem takže například B6 s textem pak B7 bez textu až do B10 poté B11 text atd ... . V mém případu jde o kopírování neprázdných buněk pod sebe. Přikládám Excel a výsledkem by mělo být na listu List2 pouze Vypsane pod sebou ODD1, ODD2, ODD3, ODD4, .... . Předem děkuji za odpověď a jakoukoliv radu.
Re: Excel makro - kopírování buněk
Máš to pro prvních 1000 řádků, Pokud by jsi chtěl více, tak si přepiš hodnotu. Je to makro bez jakýkoliv kontrol a ošetření.
Kód: Vybrat vše
Sub radky()
pocetradku = 1000 'hodnotu si můžeš zvětšit
radkylist2 = 1
Application.ScreenUpdating = False
Sheets("List1").Select
For i = 4 To pocetradku
If IsEmpty(Cells(i, 2)) Then
Else
Worksheets("List2").Cells(radkylist2, 1) = Cells(i, 2)
radkylist2 = radkylist2 + 1
End If
Next i
Sheets("List2").Select
Application.ScreenUpdating = False
End Sub
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 1
- 1807
-
od atari
Zobrazit poslední příspěvek
28 dub 2023 12:08
-
- 3
- 1968
-
od Melvidor
Zobrazit poslední příspěvek
21 črc 2023 08:41
-
-
Obnoveni ztracenych fotek z telefonu pri kopirovani do pc
od Dizzy66 » 21 led 2024 17:08 » v Vše ostatní (sw) - 2
- 1155
-
od šulda
Zobrazit poslední příspěvek
23 úno 2024 07:12
-
-
- 9
- 1126
-
od mmmartin
Zobrazit poslední příspěvek
29 srp 2023 16:47
-
-
Libre Office Calc - Divné chování při kopírování textu Příloha(y)
od EZumrova » 02 dub 2024 08:12 » v Kancelářské balíky - 14
- 2136
-
od kecalek
Zobrazit poslední příspěvek
05 dub 2024 19:11
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 3 hosti