Travis frågar:
Jag försöker formatera lite text i separata kolumner. Texten finns i en kolumn enligt följande:
A Företagsnamn A PO BOX 1 NEWARK NJ 07101 Företagsnamn B PO BOX 2 1400 SANS SOUCI PARKWAY WILKES-BARRE PA 18703 Företagsnamn C PO BOX 3 CHICAGO IL 60694 Företagsnamn D PO BOX 4 CLEARFIELD UT 84015 Företagsnamn E PO BOX 5 OGDEN UT 84401 Företagsnamn F PO BOX 6 BALTIMORE MD 21264-4351 När jag formaterade testet för att utmärka gjorde jag den här kolumnen som illustreras ovan. Jag skulle vilja veta om en formel för vilken jag kan få uppgifterna att visas på en rad snarare än i flera rader för på företaget formeln ska resultera om jag ger följande i en rad men i olika kolumner:
Allt på samma rad
A B C Företagsnamn A PO BOX 1 NEWARK NJ 07101 Jag har använt vlookups och hlookups och pivottabeller men jag kan inte ta reda på hur jag får datumet rad för rad.
Jag har kunnat få företagsnamn att visas rad för rad i en kolumn genom att sortera och jag tänkte att jag kunde använda en kombination av en vlookup med en hlookup för att ge mig de resultat jag letade efter men jag vet inte rätt formel för att bygga bo i eteruppslaget. Jag har också testat en del DSUM-funktion men ingen fungerar för mig? Så snälla låt mig veta vad eller hur jag kan lösa mitt problem.
Jag tror att detta enkelt kan uppnås med hjälp av ett makro. Testa den här.
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
