Travis küsib:
Proovin vormistada osa tekstist eraldi veergudeks. Tekst on ühes veerus järgmine:
A Ettevõtte nimi A Postkast 1 NEWARK NJ 07101 Ettevõtte nimi B Postkast 2 1400 SANS SOUCI PARKWAY WILKES-BARRE PA 18703 Ettevõtte nimi C Postkast 3 CHICAGO IL 60694 Ettevõtte nimi D Postkast 4 CLEARFIELD UT 84015 Ettevõtte nimi E Postkast 5 OGDEN UT 84401 Ettevõtte nimi F Postkast 6 BALTIMORE MD 21264-4351 Kui vormistasin testi paremaks muutmiseks, tegin selle veeru nagu ülalpool illustreeritud. Tahaksin teada valemit, mille abil saan ettevõtte andmed kuvada ühel real, mitte mitmes reas, kui valem peaks tulema, kui annaksin selle järgmiseks ühes reas, kuid erinevates veergudes:
Kõik samal real
A B C Ettevõtte nimi A Postkast 1 NEWARK NJ 07101 Mul on kasutusel vlookups, hlookups ja pivot tabelid, kuid ma ei saa aru, kuidas saada kuupäeva, kui rida-realt.
Mul on õnnestunud saada ettevõtte nimesid sorteerimisel rea kaupa ühte veergu ja arvasin, et võiksin otsitud tulemuste saamiseks kasutada vlookupi ja hlookupi kombinatsiooni, kuid ma ei tea õige valem eetriotsingus pesitsemiseks. Olen katsetanud ka mõnda DSUM-i funktsiooni, kuid ükski neist ei tööta minu jaoks? Nii et palun andke mulle teada, mida või kuidas minu probleem lahendada.
Ma arvan, et seda saab makro abil hõlpsasti saavutada. Proovige seda.
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
