Travis vpraša:
Nekaj besedila poskušam oblikovati v ločene stolpce. Besedilo je v enem stolpcu, kot sledi:
A Ime podjetja A PO Box 1 NEWARK NJ 07101 Ime podjetja B PO Box 2 1400 PARK PARK SANS SOUCI WILKES-BARRE PA 18703 Ime podjetja C PO Box 3 CHICAGO IL 60694 Ime podjetja D PO Box 4 CLEARFIELD UT 84015 Ime podjetja E PO Box 5 OGDEN UT 84401 Ime podjetja F PO Box 6 BALTIMORE MD 21264-4351 Ko sem test formatiral v excel, sem naredil ta stolpec, kot je prikazano zgoraj. Želel bi vedeti za formulo, za katero lahko omogočim, da se podatki prikazujejo v eni vrstici in ne v več vrsticah, saj bi v podjetju morala izhajati formula, če bi mi v naslednji vrstici dali naslednje, vendar v različnih stolpcih:
Vse v istem REDU
A B C Ime podjetja A PO Box 1 NEWARK NJ 07101 Uporabljam vlookupe in hlookupe ter vrtilne tabele, vendar ne morem ugotoviti, kako naj dobim datum, če gre vrstni red za vrstico.
Z razvrščanjem sem lahko dosegel, da so imena podjetij prikazana vrstica za vrstico v enem stolpcu in ugotovil sem, da bi lahko uporabil kombinacijo vlookupa in hlookupa, da bi mi dal rezultate, ki sem jih iskal, vendar ne poznam pravilna formula za gnezdenje v iskanju etra. Preizkusil sem tudi nekaj funkcij DSUM, vendar nobena ne deluje zame? Zato mi sporočite, kaj ali kako odpraviti težavo.
Mislim, da je to mogoče enostavno pridobiti z uporabo makra. Poskusite to.
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