Travis spørger:
Jeg prøver at formatere noget tekst i separate kolonner. Teksten er i en kolonne som følger:
EN Firmanavn A PO BOX 1 NEWARK NJ 07101 Firmanavn B PO BOX 2 1400 SANS SOUCI PARKWAY WILKES-BARRE PA 18703 Firmanavn C PO BOX 3 CHICAGO IL 60694 Firmanavn D PO BOX 4 CLEARFIELD UT 84015 Firmanavn E PO BOX 5 OGDEN UT 84401 Firmanavn F PO BOX 6 BALTIMORE MD 21264-4351 Da jeg formaterede testen til at udmærke mig, lavede jeg denne kolonne som illustreret ovenfor. Jeg vil gerne vide om en formel, som jeg kan få dataene til at vises på en række i stedet for i flere rækker, for formel skal være på firma, hvis det giver mig følgende i en række, men i forskellige kolonner:
Alt på samme række
EN B C Firmanavn A PO BOX 1 NEWARK NJ 07101 Jeg har brugt vlookups og hlookups og pivottabeller, men jeg kan ikke finde ud af, hvordan jeg får datoen, hvis en række for række.
Jeg har kunnet få virksomhedsnavne til at vises række for række i en kolonne ved at sortere, og jeg regnede med, at jeg kunne bruge en kombination af en vlookup med en hlookup for at give mig de resultater, jeg ledte efter, men jeg kender ikke korrekt formel til at rede i etheropslaget. Jeg har også testet nogle DSUM-funktioner, men ingen fungerer for mig? Så lad mig vide, hvad eller hvordan jeg løser mit problem.
Jeg tror, det kan let opnås ved hjælp af en makro. Prøv denne.
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
