Como copio tabelas do Word para o Excel sem dividir as células em várias linhas?

Terá de fazer um pouco de substituição de carácter. É uma correcção bastante simples.

Em Word:

1. Seleccione toda a sua tabela em Word.
2. Abra o diálogo “Encontrar e Substituir” (por exemplo, digitando Ctrl+H).
3. No campo “Encontrar o quê”, introduzir ^l. Isto irá seleccionar todas as quebras de linha.
4. Pode seleccionar quebras de parágrafo introduzindo ^p.
5. No campo “Substituir por”, introduzir ^v. & - Isto é um atalho para o símbolo do parágrafo ¶, também conhecido como “pilcrow”. & - Pode querer substituir as marcas de parágrafo por duas pilhagens para facilitar a sua substituição mais tarde.
6. Clique em “Replace All” (Substituir todos).
7. Copiar os dados da tabela para a prancheta.

Em Excel:

1. Colar a sua mesa no local desejado em Excel.
2. Com os dados tabulares seleccionados, abrir o diálogo “Encontrar e Substituir” (mais uma vez, Ctrl+H funciona).
3. No campo “Encontrar o quê”, introduzir o seguinte código Alt: Alt+0182. Aparece um pilcrow.
4. Para introduzir um código Alt, mantenha premida a tecla Alt enquanto digita os dígitos no teclado numérico. Pode ajudar a ter o Num Lock ligado.
5. No campo Substituir, introduza o seguinte código Alt: Alt+0010.
6. Este código entra numa única quebra de linha. Nada aparece, embora o seu cursor possa mudar.
7. Clique em “Replace All” (Substituir tudo).

Referências:

• 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

Há uma maneira mais fácil.

Se tiver uma conta Google Gmail, pode abrir o Google Drive, e criar uma nova folha de cálculo, depois copiar a tabela inteira do Microsoft Word para a folha de cálculo do Google. Assim que a tiver no formato desejado, poderá então copiar a tabela para o Microsoft Excel.

Descobri que se pode usar o LibreOffice Calc.

1. seleccione a sua tabela de Word
2. Cópia
3. Em LibreOffice Calc, Paste Special como HTML
4. Guarde no seu formato favorito

A sua tabela não será dividida em múltiplas células.

Fiz uma função vba para remover a nova linha que fez com que as células se dividissem em excel antes de copiar para 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