Travis ezt kérdezi:
Néhány szöveget külön oszlopokba próbálok formázni. A szöveg egy oszlopban található a következőképpen:
A A cég neve PO Box 1 NEWARK NJ 07101 B vállalat neve PO BOX 2 1400 SANS SOUCI PARKWAY WILKES-BARRE PA 18703 C név PO BOX 3 CHICAGO IL 60694 Cég neve D PO Box 4 CLEARFIELD UT 84015 Cégnév E PO BOX 5 OGDEN UT 84401 Cégnév F PO BOX 6 BALTIMORE MD 21264-4351 Amikor a tesztet az excel formázására formáztam, elkészítettem ezt az oszlopot a fent bemutatott módon. Szeretnék tudni egy képletet, amelynek segítségével az adatokat egy sorban, nem pedig több sorban jeleníthetem meg, a vállalatnál a képletnek akkor kell eredményeznie, ha ezt egy sorban, de különböző oszlopokban adom meg:
Mind ugyanazon a soron
A B C A cég neve PO Box 1 NEWARK NJ 07101 Használok vlookups, hlookups és pivot táblázatokat, de nem tudom kitalálni, hogyan szerezzem meg a dátumot, ha soronként.
Sikerült elérnem, hogy a cégnevek sorba rendezéssel soronként jelenjenek meg egy oszlopban, és arra gondoltam, hogy a vlookup és a hlookup kombinációjával megadhatnám a kívánt eredményeket, de nem ismerem a megfelelő képlet az éterkeresésben való fészkeléshez. Néhány DSUM funkciót is teszteltem, de egyik sem működik nálam? Tehát kérem, tudassa velem, hogy mi vagy hogyan lehet megoldani a problémámat.
Azt hiszem, ezt makróval könnyen el lehet érni. Próbáld ki ezt.
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
