Editování mnoha buněk Vyřešeno

[cmuch]

Ahoj,
Mám vyexportovaný list do excelu kde jsou všechny hodnoty jako text, ale já potřebuji s daty dál pracovat.
Zatím dělám tak, že si buňky naformátuji na formát OBECNÉ a pak musím každou projet F2 + ENTER

Nešlo by nějak jednodušeji to provést?

Zkoušel jsem přes makro načíst hodnotu buňky a pak ji zase do buňky vložit, ale to tu buňku needituje.

[Reklama]

[Mirdad69]

Co takhle:

Kód: Vybrat vše

Sub format_number()
Last_Row = Cells(65000, 1).End(xlUp).Row
For J = 4 To 7      'procházené sloupce
    For I = 2 To Last_Row    ' prohledávané řádky
       ' Cells(I, J) = Format(Cells(I, J), "#0.00") * 1 nebo by stačilo
        Cells(I, J) = Cells(I, J) * 1
        Cells(I, J).NumberFormat = "0.00"
    Next I
Next J
End Sub


Pro velký počet buněk je to celkem pomalé (aspoň u mě).

--- Doplnění předchozího příspěvku (07 Lis 2012 14:16) ---

Jiná varianta by mohla být - udělat makro, které ten list uloží jako txt a znovu načte.

[cmuch]

Děkuji,
to mě mohlo taky napadnou to vynásobit 1

U mě pro cca 100000 buněk trvá cca 30s a to se dá jednou za čas vydržet.