Travis pita:
Pokušavam formatirati neki tekst u zasebne stupce. Tekst je u jednom stupcu kako slijedi:
A Naziv tvrtke A POŠIRANI KUTIJU 1 NEWARK NJ 07101 Naziv tvrtke B PO Box 2 1400 SANS SOUCI PARKING WILKES-BARRE PA 18703 Naziv tvrtke C PO Box 3 CHICAGO IL 60694 Naziv tvrtke D PO Box 4 ČISTO POLJE UT 84015 Naziv tvrtke E PO Box 5 OGDEN UT 84401 Naziv tvrtke F PO Box 6 BALTIMORE MD 21264-4351 Kad sam formatirao test da bi se pokazao izvrsnim, napravio sam ovaj stupac kako je gore prikazano. Želio bih znati za formulu prema kojoj mogu učiniti da se podaci prikazuju u jednom retku, a ne u više redaka, jer bi u tvrtki formula trebala rezultirati ako mi daje sljedeće u jednom retku, ali u različitim stupcima:
Sve na istom REDU
A B C Naziv tvrtke A POŠIRANI KUTIJU 1 NEWARK NJ 07101 Imam upotrebu vlookupa i hlookupa i zaokretne tablice, ali ne mogu shvatiti kako doći do datuma redom po redu.
Razvrstavanjem sam uspio postići da se nazivi tvrtki pojavljuju red po red u jednom stupcu i zaključio sam da bih mogao koristiti kombinaciju vlookupa i hlookupa kako bih dobio rezultate koje sam tražio, ali ne znam odgovarajuća formula za gniježđenje u traženju etera. Također sam testirao neke DSUM funkcije, ali nijedna mi ne ide? Stoga mi javite što ili kako da riješim svoj problem.
Mislim da se to lako može postići pomoću makronaredbe. Probaj ovu.
Sub CopyAcross() Dim i As Long Dim NRow As Long Dim LastRow As Long NRow = 2 'First Row TO COPY, change this if you want i = 2 'First Row where the data appears, I assumed it started in A2 LastRow = Range("A65536").End(xlUp).Row While i <= LastRow Range(Cells(i, 1), Cells(i, 1).End(xlDown)).Copy Cells(NRow, 2).PasteSpecial Transpose:=True 'In here, I'm copying to Column 2, Next availabe Row. You can change the 2 if you want. NRow = NRow + 1 i = Cells(i, 1).End(xlDown).End(xlDown).Row Wend End Sub