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


33

Eu tenho dados em uma tabela do Word que inclui quebras de linha e parágrafo. Quando copio os dados no Excel, ele divide cada linha e parágrafo que eu quero em várias células. Como copio os dados para o Excel e mantenho as pausas?

Respostas:


39

Você terá que fazer um pouco de substituição de personagem. É uma correção bastante simples.

Em palavra:

  1. Selecione sua tabela inteira no Word.
  2. Abra a caixa de diálogo "Localizar e substituir" (por exemplo, digitando Ctrl+ H).
  3. No campo "Localizar", insira ^l. Isso selecionará todas as quebras de linha.
    • Você pode selecionar quebras de parágrafo digitando ^p.
  4. No campo "Substituir por", insira ^v.
    • Este é um atalho para o símbolo de parágrafo ¶, também conhecido como "pilcrow".
    • Convém substituir as marcas de parágrafo por duas corridas para facilitar a substituição posteriormente.
  5. Clique em "Substituir tudo".
  6. Copie os dados da tabela para a área de transferência.

No Excel:

  1. Cole sua tabela no local desejado no Excel.
  2. Com os dados tabulares selecionados, abra a caixa de diálogo "Localizar e substituir" (novamente, Ctrl+ Hfunciona).
  3. No campo "Localizar", digite o seguinte código Alt: Alt+ 0182. Um pilcrow aparece.
    • Para inserir um código Alt, mantenha pressionada a Alttecla enquanto digita os dígitos no teclado numérico. Pode ajudar a ter Num Lock.
  4. No campo Substituir, digite o seguinte código Alt: Alt+ 0010.
    • Esse código entra em uma única quebra de linha. Nada aparece, embora seu cursor possa mudar.
  5. Clique em "Substituir tudo".

Referências:


Esta resposta (com diferenças triviais e cosméticas) apareceu no Microsoft.com em Reter células com várias linhas ao colar a tabela do Word no Excel . E, BTW, acho que (Alt) +010 é bom o suficiente; Não preciso dos dois zeros à esquerda.
G-Man diz 'Reinstate Monica'

@ G-Man Ha ... se eu tivesse encontrado isso antes! Pena que eu não estava trabalhando no Office 2007 na época. Além disso, você quer dizer o primeiro zero (Alt + 010) ou o primeiro (Alt + 10)?
Skia.heliou

Obrigado - consegui todas as etapas para trabalhar em um Mac (no Excel 15), exceto a última - não consegui inserir a alt-0010 ou a quebra de linha. Alguma sugestão? Tentei copiar e colar uma quebra de linha de outra fonte, além de alguns outros truques.
JayCrossler

Office 2013 aqui, isso não funciona. Ainda obtendo várias linhas no Excel após a substituição.
187 Neil

17

Existe uma maneira mais fácil.

Se você possui uma conta do Google Gmail, é possível abrir o Google Drive, criar uma nova planilha e copiar a tabela inteira do Microsoft Word para a planilha do Google. Depois de tê-lo no formato desejado, você poderá copiar a tabela no Microsoft Excel.


5
... ou ... apenas deixá-lo na unidade :)
GreenAsJade

Eu tive que copiar do Word para o Google Doc e, em seguida, do Google Doc para o Google Sheet (caso contrário, as quebras de linha desapareceriam). +1 de qualquer maneira
user2518618 20/0918

1

Eu descobri que você pode usar o LibreOffice Calc.

  1. Selecione sua tabela do Word
  2. cópia de
  3. No LibreOffice Calc, cole Especial como HTML
  4. Salve em seu formato favorito

Sua tabela não será dividida em várias células.


Funciona bem para entrar no LibreOffice Calc. E, para passar do Calc para o Excel: 1. selecione sua tabela do Calc 2. Copie 3. No Microsoft Excel, Cole Especial como DIF
Paul Gobée

0

Criei uma função vba para remover a nova linha que fazia com que as células se dividissem no excel antes de copiar para o excel.

sub RemoveNewLinesFromTabelCells (tblnumber como inteiro)
'remover nova linha de cada célula da tabela selecionada pelo número da tabela
  dim x longo, y longo, número de colunas longo, número de linhas longo
  columncount = Activedocument.Tables (tblNumber) .Range.Columns.Count
  rowcount = Activedocument.Tables (tblNumber) .Range.Rows.Count
  para x = 1 para contagem de linhas
     para y = 1 para contagem de colunas
        ActiveDocument.Tables (tblNumber) .cell (x, y) .Range.Text = Substituir (ActiveDocument.TAbles (tblNumber) .cell (x, y) .Range.Text, Chr (13, "")
     próximo y
  próximo x
end sub
Ao utilizar nosso site, você reconhece que leu e compreendeu nossa Política de Cookies e nossa Política de Privacidade.
Licensed under cc by-sa 3.0 with attribution required.