Travis sa pýta:
Snažím sa naformátovať nejaký text do samostatných stĺpcov. Text je v jednom stĺpci nasledovne:
A Názov spoločnosti A PO BOX 1 NEWARK NJ 07101 Názov spoločnosti B PO BOX 2 1400 SANS SOUCI PARKWAY WILKES-BARRE PA 18703 Názov spoločnosti C PO BOX 3 CHICAGO IL 60694 Názov spoločnosti D PO BOX 4 CLEARFIELD UT 84015 Názov spoločnosti E PO BOX 5 OGDEN UT 84401 Názov spoločnosti F PO BOX 6 BALTIMORE MD 21264-4351 Keď som naformátoval test tak, aby exceloval, vytvoril som tento stĺpec, ako je to znázornené vyššie. Chcel by som vedieť o vzorci, podľa ktorého môžem vytvoriť údaje, ktoré sa zobrazia v jednom riadku a nie vo viacerých riadkoch pre spoločnosť. Vzorec by mal vzniknúť, ak mi dá nasledujúce v jednom riadku, ale v rôznych stĺpcoch:
Všetko na rovnakom riadku
A B C. Názov spoločnosti A PO BOX 1 NEWARK NJ 07101 Použil som vlookups a hlookups a kontingenčné tabuľky, ale nemôžem prísť na to, ako získať dátum, ak je riadok po riadku.
Podarilo sa mi dosiahnuť, aby sa názvy spoločností zobrazovali po riadkoch v jednom stĺpci zoradením, a domyslel som si, že by som pomocou kombinácie vlookup a hlookup mohol získať výsledky, ktoré som hľadal, ale neviem správny vzorec na vloženie do vyhľadávania éteru. Tiež som testoval niektoré funkcie DSUM, ale žiadna nefunguje pre mňa? Dajte mi preto vedieť, čo alebo ako vyriešiť môj problém.
Myslím si, že sa to dá ľahko dosiahnuť pomocou makra. Vyskúšaj tento.
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
