Travis vraagt:
Ik probeer wat tekst op te maken in afzonderlijke kolommen. De tekst staat als volgt in één kolom:
EEN Bedrijfsnaam A PO DOOS 1 NEWARK NJ 07101 Bedrijfsnaam B PO DOOS 2 1400 SANS SOUCI PARKWAY WILKES-BARRE PA 18703 Bedrijfsnaam C PO DOOS 3 CHICAGO IL 60694 Bedrijfsnaam D PO DOOS 4 CLEARFIELD UT 84015 Bedrijfsnaam E PO DOOS 5 OGDEN UT 84401 Bedrijfsnaam F PO DOOS 6 BALTIMORE MD 21264-4351 Toen ik de test formatteerde om uit te blinken, heb ik deze column gemaakt zoals hierboven geïllustreerd. Ik zou graag een formule willen weten waarmee ik de gegevens in één rij kan laten verschijnen in plaats van in meerdere rijen, want voor het bedrijf zou de formule moeten resulteren als ik dat volgende in één rij maar in verschillende kolommen krijg:
Allemaal op dezelfde RIJ
EEN B C Bedrijfsnaam A PO DOOS 1 NEWARK NJ 07101 Ik heb vlookups en hlookups en draaitabellen gebruikt, maar ik kan niet achterhalen hoe ik de datum kan krijgen als een rij-voor-rij-manier.
Ik heb bedrijfsnamen rij voor rij in één kolom kunnen laten verschijnen door te sorteren en ik dacht dat ik een combinatie van een vlookup met een hlookup kon gebruiken om me de resultaten te geven waarnaar ik op zoek was, maar ik weet de juiste formule om in de ether-lookup te nestelen. Ik heb ook een aantal DSUM-functies getest, maar geen enkele werkt voor mij? Dus laat me alsjeblieft weten wat en hoe ik mijn probleem kan oplossen.
Ik denk dat dit gemakkelijk kan worden bereikt met een macro. Probeer deze.
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
