Come faccio a copiare le tabelle di Word in Excel senza dividere le celle in più righe?

Dovrete fare un po’ di sostituzione dei caratteri. È una soluzione abbastanza semplice.

In Word:

1. Seleziona l'intera tabella in Word.
2. Apri la finestra di dialogo “Trova e sostituisci” (per esempio, digitando Ctrl+H).
3. Nel campo “Trova cosa”, inserisci ^l. Questo selezionerà tutte le interruzioni di riga.
4. Puoi selezionare le interruzioni di paragrafo inserendo ^p.
5. Nel campo “Sostituisci con”, inserisci ^v.
6. Questa è una scorciatoia per il simbolo di paragrafo ¶, conosciuto anche come “freccia di palo”.
7. Potresti voler sostituire i segni di paragrafo con due “pilcrows” per facilitare la sostituzione in seguito.
8. Clicca su “Sostituisci tutto”.
9. Copia i dati della tabella negli appunti.

In Excel:

1. Incolla la tua tabella nella posizione desiderata in Excel.
2. Con i dati della tabella selezionati, apri la finestra di dialogo “Trova e sostituisci” (di nuovo, Ctrl+H funziona).
3. Nel campo “Trova cosa”, inserite il seguente codice Alt: Alt+0182. Appare una coccinella.
4. Per inserire un codice Alt, tieni premuto il tasto Alt mentre digiti le cifre sul tastierino numerico. Può essere utile avere il blocco numerico attivato.
5. Nel campo Replace, inserisci il seguente codice Alt: Alt+0010.
6. Questo codice inserisce una singola interruzione di riga. Non appare nulla, anche se il cursore può cambiare.
7. Clicca su “Replace All”.

Riferimenti:

• http://ask.metafilter.com/168104/Copying-Word-tables-into-Excel-without-splitting-cells-into-multiple-rows
• http://symbolcodes.tlt.psu.edu/accents/codealt.html#punc

C'è un modo più semplice.

Se avete un account Google Gmail, potete aprire Google Drive, e creare un nuovo foglio di calcolo, poi copiare l'intera tabella da Microsoft Word nel foglio di calcolo di Google. Una volta che l'hai nel formato desiderato, puoi copiare la tabella in Microsoft Excel.

Ho scoperto che puoi usare LibreOffice Calc.

1. Selezionate la vostra tabella di Word
2. Copia
3. In LibreOffice Calc, Incolla speciale come HTML
4. Salva nel tuo formato preferito

La tua tabella non sarà divisa in più celle.

Ho fatto una funzione vba per rimuovere la newline che ha causato la divisione delle celle in excel prima di copiare in excel.

sub RemoveNewLinesFromTabelCells(tblnumber as integer) 'remove newline from every cell in the selected table table by table number dim x as long, y as long, columncount as long, rowcount as long columncount = Activedocument.Tables(tblNumber).Range.Columns.Count rowcount = Activedocument.Tables(tblNumber).Range.Rows.Count for x = 1 to rowcount for y = 1 to columncount ActiveDocument.Tables(tblNumber).cell(x,y).Range.Text = Replace(ActiveDocument.TAbles(tblNumber).cell(x,y).Range.Text, Chr(13,"") next y next x end sub