Travis fragt:
Ich versuche, Text in separate Spalten zu formatieren. Der Text befindet sich wie folgt in einer Spalte:
EIN Firmenname A. PO BOX 1 NEWARK NJ 07101 Firmenname B. PO BOX 2 1400 SANS SOUCI PARKWAY WILKES-BARRE PA 18703 Firmenname C. PO BOX 3 CHICAGO IL 60694 Firmenname D. PO BOX 4 CLEARFIELD UT 84015 Firmenname E. PO BOX 5 OGDEN UT 84401 Firmenname F. PO BOX 6 BALTIMORE MD 21264-4351 Als ich den Test formatiert habe, um ihn zu übertreffen, habe ich diese Spalte wie oben dargestellt erstellt. Ich möchte eine Formel kennen, mit der ich die Daten in einer Zeile und nicht in mehreren Zeilen anzeigen kann, da die Formel für Unternehmen resultieren sollte, wenn ich die folgenden in einer Zeile, aber in verschiedenen Spalten gebe:
Alle auf derselben REIHE
EIN B. C. Firmenname A. PO BOX 1 NEWARK NJ 07101 Ich habe vlookups und hlookups und Pivot-Tabellen verwendet, kann aber nicht herausfinden, wie das Datum zeilenweise ermittelt werden kann.
Ich konnte Firmennamen durch Sortieren zeilenweise in einer Spalte anzeigen lassen und dachte mir, ich könnte eine Kombination aus einem Lookup und einem Lookup verwenden, um die gewünschten Ergebnisse zu erzielen, aber ich kenne das nicht richtige Formel, um in der Äthersuche zu nisten. Ich habe auch einige DSUM-Funktionen getestet, aber keine funktioniert für mich? Bitte lassen Sie mich wissen, was oder wie ich mein Problem beheben kann.
Ich denke, dies kann leicht mit einem Makro erreicht werden. Probier diese.
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
