Jak skopiować tabele z Worda do Excela bez dzielenia komórek na wiele wierszy?

Będziesz musiał trochę podmienić znaki. Jest to dość prosta poprawka.

W Wordzie:

1. Zaznacz całą tabelę w Wordzie.
2. Otwórz okno dialogowe “Znajdź i zamień” (np. wpisując Ctrl+H).
3. W polu “Znajdź co” wpisz ^l. Spowoduje to zaznaczenie wszystkich podziałów wiersza.
4. Możesz wybrać podział na akapity wpisując ^p.
5. W polu “Zamień na” wpisz ^v.
6. To jest skrót do symbolu akapitu ¶, znanego również jako “pilcrow”.
7. Możesz chcieć zastąpić znaki akapitu dwoma strzałkami, aby ułatwić sobie późniejszą zamianę.
8. Kliknij “Zamień wszystko”.
9. Skopiuj dane tabeli do schowka.

W Excelu:

1. Wklej swoją tabelę w wybranym miejscu w Excelu.
2. Mając zaznaczone dane tabeli, otwórz okno dialogowe “Znajdź i zamień” (ponownie działa Ctrl+H).
3. W polu “Znajdź co” wpisz następujący kod Alt: Alt+0182. Pojawi się pilcrow.
4. Aby wprowadzić kod Alt, przytrzymaj klawisz Alt podczas wpisywania cyfr na klawiaturze numerycznej. Pomocne może być włączenie Num Locka.
5. W polu Replace wpisz następujący kod Alt: Alt+0010.
6. Ten kod powoduje przerwanie pojedynczej linii. Nic się nie pojawia, choć kursor może się zmieniać.
7. Kliknij “Zamień wszystko”.

Referencje:

• 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

Jest prostszy sposób.

Jeśli masz konto Google Gmail, możesz otworzyć Dysk Google i utworzyć nowy arkusz kalkulacyjny, a następnie skopiować całą tabelę z programu Microsoft Word do arkusza kalkulacyjnego Google. Kiedy już będziesz miał ją w pożądanym formacie, możesz skopiować ją do Microsoft Excel.

Znalazłem, że możesz użyć LibreOffice Calc.

1. Wybierz swoją tabelę Worda
2. Skopiuj ją
3. W LibreOffice Calc, Wklej Specjalnie jako HTML
4. Zapisz w swoim ulubionym formacie

Twoja tabela nie będzie podzielona na wiele komórek.

Zrobiłem funkcję vba, aby usunąć newline, która spowodowała podział komórek w excelu przed skopiowaniem do excelu.

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