Travis spør:
Jeg prøver å formatere litt 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 formaterte testen for å utmerke meg, laget jeg denne kolonnen som illustrert ovenfor. Jeg vil gjerne vite om en formel som jeg kan få dataene til å vises på en rad i stedet for i flere rader, for formelen skal oppstå hvis den gir meg følgende i en rad, men i forskjellige kolonner:
Alt på samme rad
EN B C Firmanavn A PO BOX 1 NEWARK NJ 07101 Jeg har brukt vlookups og hlookups og pivottabeller, men jeg kan ikke finne ut hvordan jeg kan få datoen om en rekke for rad.
Jeg har klart å få firmanavn til å vises rad for rad i en kolonne ved å sortere, og jeg skjønte at jeg kunne bruke en kombinasjon av en vlookup med en hlookup for å gi meg de resultatene jeg lette etter, men jeg vet ikke riktig formel for å hekke i eteroppslaget. Jeg har også testet noen DSUM-funksjoner, men ingen fungerer for meg? Så vennligst gi meg beskjed om hva eller hvordan jeg kan løse problemet mitt.
Jeg tror dette lett kan oppnås ved hjelp av 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
