Hromadná úprva buněk Excel

[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í?

[Reklama]

[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.

[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))

[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