Travis chiede:
Sto cercando di formattare del testo in colonne separate. Il testo è in una colonna come segue:
UN Nome azienda A PO BOX 1 NEWARK NJ 07101 Nome azienda B PO BOX 2 1400 SANS SOUCI PARKWAY E se ne andò nel 18703 Nome azienda C PO BOX 3 CHICAGO IL 60694 Nome azienda D PO BOX 4 CLEARFIELD UT 84015 Nome azienda E PO BOX 5 OGDEN UT 84401 Nome della società F PO BOX 6 BALTIMORE MD 21264-4351 Quando ho formattato il test per eccellere, ho creato questa colonna come illustrato sopra. Vorrei sapere di una formula per la quale posso far apparire i dati su una riga piuttosto che su più righe perché sulla società la formula dovrebbe risultare se dandomi quella seguente in una riga ma in colonne diverse:
Tutti sulla stessa FILA
UN B C Nome azienda A PO BOX 1 NEWARK NJ 07101 Ho usato vlookup e hlookup e tabelle pivot ma non riesco a capire come ottenere la data se un modo riga per riga.
Sono stato in grado di far apparire i nomi delle società riga per riga in una colonna ordinandoli e ho pensato di poter utilizzare una combinazione di un vlookup con un hlookup per darmi i risultati che stavo cercando ma non conosco il formula corretta da annidare nella ricerca etere. Ho anche testato alcune funzioni DSUM ma nessuna funziona per me? Quindi per favore fatemi sapere cosa o come risolvere il mio problema.
Penso che questo possa essere facilmente ottenuto utilizzando una macro. Prova questo.
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