Stránka 1 z 1
Hromadná úprva buněk Excel
Napsal: 05 bře 2013 17:22
od Duffíno
Ahoj, mám sloupec asi se třemi tisíci řádky, v každém řádku je buňka, kterou potřebuji upravit. Je v ní uveden datum a čas (2011 10 06_12:10:09,090), potřebuji, abych měl v buňce jen čas. Víte jak to upravit?
Moc díky za reakce
--- Doplnění předchozího příspěvku (05 Bře 2013 17:59) ---
Nikdo neví?
Re: Hromadná úprva buněk Excel
Napsal: 05 bře 2013 18:54
od Azuzula
Ahoj a vítej na PC-help
Šlo by to vzorcem a nebo makrem, záleží na tom co preferuješ.
Na vzorec bude třeba druhý sloupek kam se vše přepočítá, nebo makro to zvládne zapsat do stejného sloupku, nebo do vedlejšího dle potřeby.
Re: Hromadná úprva buněk Excel
Napsal: 05 bře 2013 19:08
od elaaos
Ahojky, pokud to může být do jiného sloupce, tak se nabízí složená funkce (kde slovo Buňka je odkaz na původní hodnotu)
česká verze:
=ČAS(ČÁST(Buňka;12;2);ČÁST(Buňka;15;2);ČÁST(Buňka;18;2))
anglická verze:
=TIME(MID(A1;12;2);MID(A1;15;2);MID(A1;18;2))
Re: Hromadná úprva buněk Excel
Napsal: 05 bře 2013 20:42
od Azuzula
Nebo taky:
=ČÁST(A1;NAJÍT(":";A1;1)-2;8) (do uňky B1 a rozkopírovat až na konec), za předpokladu, že jsou data v prvním sloupci od prvního řádku.
A makrem přímo nahrazení dat v prvním sloupci:
Kód: Vybrat vše
Sub zmen()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
On Error Resume Next
Cells(i, 1) = Mid(Cells(i, 1), InStr(1, Cells(i, 1), ":", vbTextCompare) - 2, 8)
On Error GoTo 0
Next
Application.ScreenUpdating = True
End Sub