< návrat zpět

MS Excel

Téma: Replace and copy rss

Zaslal/a laco_atc 11.7.2014 12:35

Ahojte, mam takyto problem. V exceli mam v bunke A1 okolo 6000mailovych adries, ktore su oddelene bodkouciarkou, zial su vsetky v tej bunke A1. Chel by som sa opytat ci by mi vedel niekto poradit ako by som mohol vsetky adresy premiestnit kazdu zvlast do jednej bunky, teda budem mat v stlpci A 6000 riadkov s adresami. Dakujem

Zaslat odpověď >
Strana:  1 2   další »
kp57(11.7.2014 19:24)#020471
avatar
Co to je "bodkouciarkou"? Myslíš buď tečkou, nebo čárkou ? Nebo tečkou a zároveň čárkou ".,"? Nebo středník, nebo co ?citovat
cmuch(11.7.2014 20:10)#020472
avatar
to je přece jasnéj ;citovat
kp57(11.7.2014 20:19)#020473
avatar
No pokud ano, tak je to snadné. Myslím, že adresa středník obsahovat nemůže. Potom tedy Instr(), Trim(Left()), Mid() a je to.citovat
Pavlus(11.7.2014 20:46)#020475
avatar
Pokud jsi to tam kopíroval ty sám, a máš zdrojový soubor, tak můžeš využít možnosti importu, kterou Excel nabízí.
Např. Data/"Z textu"...
P.citovat
marjankaj(11.7.2014 20:59)#020477
avatar
Skús toto makro

Sub rozdel()
a = Split(Range("A1"), ";")
For i = LBound(a) To UBound(a)
Cells(5 + i, 1) = a(i)
Next i
End Subcitovat
icon AL(12.7.2014 17:06)#020481
avatar
Trochu rýchlejší kód než riešenie od marjankaja, ktorý navyše odstraňuje prípadné medzery:Sub Rozdel()
Dim myArr As Variant, myRng As Range, i As Integer, myStr As String
myStr = WorksheetFunction.Substitute([A1], " ", "")
myArr = Split(myStr, ";")
Set myRng = [A3].Resize(UBound(myArr) + 1, 1)
myRng = WorksheetFunction.Transpose(myArr)
Erase myArr
Set myRng = Nothing
End Subcitovat
lubo(13.7.2014 11:10)#020487
avatar
Text do sloupců, oddělovač ;

Vybrat v7sledcek, ctrl-c, vlo6it jinak, transponovatcitovat
marjankaj(13.7.2014 13:58)#020489
avatar

lubo napsal/a:

Text do sloupců, oddělovač ;

Vybrat v7sledcek, ctrl-c, vlo6it jinak, transponovat

6000 stlpcov?citovat
Dingo(13.7.2014 22:14)#020499
avatar
6000 nešťastníků, co dostanou nějaký spam? Sory, já bych tady nepomáhal.citovat
lubo(13.7.2014 22:45)#020502
avatar
@marjankaj

Excel má něco přes 16tis. sloupců

ale délka textu v buňce podle specifikace je 32k
to dává cca při 6tis. adresách 4-5 znaků na jednu adresu?citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje