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

33

Mam dane w tabeli Word zawierającej podziały wierszy i akapitów. Kiedy kopiuję dane do Excela, dzieli każdy wiersz i akapit, który chcę, na wiele komórek. Jak skopiować dane do programu Excel i zachować przerwy?

microsoft-excel microsoft-word skia.heliou
źródło

Odpowiedzi:

39

Będziesz musiał trochę zastąpić postać. To dość prosta poprawka.

W słowie:

  1. Wybierz cały stół w programie Word.
  2. Otwórz okno dialogowe „Znajdź i zamień” (np. Wpisując Ctrl+ H).
  3. W polu „Znajdź co” wpisz ^l. Spowoduje to wybranie wszystkich podziałów linii.
    • Możesz wybrać podział akapitu, wprowadzając ^p.
  4. W polu „Zamień na” wpisz ^v.
    • Jest to skrót do symbolu akapitu ¶, znanego również jako „pilcrow”.
    • Możesz zamienić znaki akapitu na dwa pilcrows, aby ułatwić ich późniejsze zastąpienie.
  5. Kliknij „Zamień wszystko”.
  6. Skopiuj dane tabeli do schowka.

W programie Excel:

  1. Wklej tabelę w żądanej lokalizacji w programie Excel.
  2. Po wybraniu danych tabelarycznych otwórz okno dialogowe „Znajdź i zamień” (ponownie Ctrl+ Hdziała).
  3. W polu „Znajdź co” wpisz następujący kod Alt: Alt+ 0182. Pojawia się pilcrow.
    • Aby wprowadzić kod Alt, przytrzymaj Altklawisz podczas wpisywania cyfr na klawiaturze numerycznej. Może to pomóc mieć Num Lock.
  4. W polu Zamień wprowadź następujący kod Alt: Alt+ 0010.
    • Ten kod jest wprowadzany jako podział pojedynczej linii. Nic się nie pojawia, chociaż kursor może się zmienić.
  5. Kliknij „Zamień wszystko”.

Bibliografia:

skia.heliou
źródło
Ta odpowiedź (z trywialnymi, kosmetycznymi różnicami) pojawiła się na Microsoft.com w Zachowaj komórki wieloliniowe podczas wklejania tabeli Worda do Excela . I BTW, uważam, że (Alt) +010 jest wystarczająco dobry; Nie potrzebuję dwóch zer wiodących.
G-Man,
@ G-Man Ha ... gdybym tylko znalazł to wcześniej! Szkoda, że ​​wtedy nie pracowałem w pakiecie Office 2007. Czy masz na myśli wiodące jedno zero (Alt + 010) czy pierwsze dwa (Alt + 10)?
skia.heliou
Dzięki - Mam wszystkie kroki do pracy na komputerze Mac (w programie Excel 15), z wyjątkiem ostatniego - nie udało mi się wprowadzić alt-0010 lub podziału linii. Jakieś sugestie? Próbowałem skopiować i wkleić podział linii z innego źródła, a także kilka innych sztuczek.
JayCrossler,
Office 2013 tutaj, to nie działa. Nadal pojawia się wiele wierszy w programie Excel po zamianie.
Neil,
16

Jest łatwiejszy 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 Microsoft Word do arkusza kalkulacyjnego Google. Po uzyskaniu pożądanego formatu możesz skopiować tabelę do programu Microsoft Excel.

Abe Basani
źródło
5
... lub ... po prostu zostaw to na Dysku :)
GreenAsJade
Musiałem skopiować z Worda do Google Doca, a następnie z Google Doca do Google Arkusza (w przeciwnym razie podział linii zniknie). W każdym razie +1
użytkownik2518618
1

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

  1. Wybierz swoją tabelę Word
  2. Kopiuj
  3. W LibreOffice Calc, Wklej specjalnie jako HTML
  4. Zapisz w swoim ulubionym formacie

Twoja tabela nie zostanie podzielona na wiele komórek.

Molo
źródło
Działa dobrze, aby uzyskać w LibreOffice Calc. A następnie, aby przejść z Calc do Excela: 1. wybierz tabelę Calc 2. Skopiuj 3. W Microsoft Excel, Wklej specjalnie jako DIF
Paul Gobée
0

Zrobiłem funkcję vba, aby usunąć znak nowej linii, który spowodował podział komórek w programie Excel przed skopiowaniem do programu Excel.

sub RemoveNewLinesFromTabelCells (tblnumber jako liczba całkowita)
„usuń znak nowej linii z każdej komórki w wybranej tabeli tabeli według numeru tabeli
  przyciemnij x tak długo, y tak długo, liczba kolumn tak długo, jak liczba wierszy
  columncount = Activedocument.Tables (tblNumber) .Range.Columns.Count
  rowcount = Activedocument.Tables (tblNumber) .Range.Rows.Count
  dla x = 1 do liczby wierszy
     dla y = 1 do licznika kolumn
        ActiveDocument.Tables (tblNumber) .cell (x, y) .Range.Text = Zamień (ActiveDocument.TAbles (tblNumber) .cell (x, y) .Range.Text, Chr (13, „”)
     następny rok
  następny x
napis końcowy
kodekaina
źródło