¿Cómo puedo copiar tablas de Word en Excel sin dividir las celdas en varias filas?

Tendrás que hacer un poco de reemplazo de caracteres. Es un arreglo bastante sencillo.

En Word:

1. Selecciona toda tu tabla en Word.
2. Abre el cuadro de diálogo “Buscar y reemplazar” (por ejemplo, escribiendo Ctrl+H).
3. En el campo “Buscar qué”, introduce ^l. Esto seleccionará todos los saltos de línea.
4. Puede seleccionar los saltos de párrafo introduciendo ^p.
5. En el campo “Reemplazar con”, introduzca ^v.
6. Se trata de un atajo para el símbolo de párrafo ¶, también conocido como “pilcrow”.
7. Es posible que quiera reemplazar las marcas de párrafo con dos “pilcrow” para facilitar el reemplazo más adelante.
8. Haga clic en “Reemplazar todo”.
9. Copie los datos de la tabla en el portapapeles.

En Excel:

1. Pegue su tabla en la ubicación deseada en Excel.
2. Con los datos de la tabla seleccionados, abre el cuadro de diálogo “Buscar y reemplazar” (de nuevo, funciona Ctrl+H).
3. En el campo “Buscar qué”, introduce el siguiente código Alt: Alt+0182. Aparecerá una ceja.
4. Para introducir un código Alt, mantenga pulsada la tecla Alt mientras escribe los dígitos en el teclado numérico. Puede ser útil tener activado el Bloqueo Numérico.
5. En el campo Reemplazar, introduzca el siguiente código Alt: Alt+0010.
6. Este código introduce un único salto de línea. No aparece nada, aunque el cursor puede cambiar.
7. Haga clic en “Reemplazar todo”.

Referencias:

• 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

Hay una manera más fácil.

Si tienes una cuenta de Google Gmail, puedes abrir Google Drive, y crear una nueva hoja de cálculo, luego copiar toda la tabla de Microsoft Word en la hoja de cálculo de Google. Una vez que la tengas en el formato deseado, puedes copiar la tabla en Microsoft Excel.

He descubierto que se puede utilizar LibreOffice Calc.

1. Selecciona tu tabla de Word
2. Copiar
3. 3. En LibreOffice Calc, Pegar Especial como HTML
4. Guarde en su formato favorito

Su tabla no se dividirá en varias celdas.

Hice una función vba para eliminar la nueva línea que hacía que las celdas se dividieran en excel antes de copiarlas a 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