MS Excel

Téma: prevod dat pod sebe

Zaslal/a lachatol 14.3.2011 10:40

Zdravím všechny, dají se tato data nějak dostat do sloupce pod sebe - co hodnota to buňka? Hodnota je oddělena čárkou.
Díky

Příloha:

4331_prevod_pod_sebe.7z (2kB, staženo 23x)

Zaslat odpověď >

Roman(14.3.2011 14:27)#004333

Sub Konv()
A = Range("A1")
i = 1
j = 0
x = 1
On Error Resume Next
Do
j = InStr(i, A, ",")
Range("A1").Offset(x, 0) = Mid(A, i, j - i)
x = x + 1
If Not j = 0 Then i = j + 1
Loop While Err = 0
Range("A1").Offset(x, 0) = Mid(A, i, Len(A) - i)
End Sub
citovat

lachatol(14.3.2011 15:57)#004334

Dobrý, díky.citovat