Bagaimana cara menyalin tabel Word ke Excel tanpa membelah sel menjadi beberapa baris?

33

Saya memiliki data dalam tabel Word yang mencakup jeda baris dan paragraf. Ketika saya menyalin data ke Excel, itu membagi setiap baris dan paragraf yang saya inginkan menjadi beberapa sel. Bagaimana cara menyalin data ke Excel dan menjaga istirahat?

skia.heliou
sumber

Jawaban:

39

Anda harus melakukan sedikit penggantian karakter. Ini perbaikan yang cukup sederhana.

Dalam kata-kata:

  1. Pilih seluruh tabel Anda di Word.
  2. Buka dialog "Temukan dan Ganti" (mis., Dengan mengetik Ctrl+ H).
  3. Di bidang "Temukan apa", masukkan ^l. Ini akan memilih semua jeda baris.
    • Anda dapat memilih jeda paragraf dengan memasukkan ^p.
  4. Di bidang "Ganti dengan", masukkan ^v.
    • Ini adalah jalan pintas untuk simbol paragraf ¶, juga dikenal sebagai "pilcrow".
    • Anda mungkin ingin mengganti tanda paragraf dengan dua pilcrows untuk memudahkan penggantian nanti.
  5. Klik "Ganti Semua".
  6. Salin data tabel ke clipboard.

Di Excel:

  1. Tempel tabel Anda di lokasi yang diinginkan di Excel.
  2. Dengan data tabular dipilih, buka dialog "Temukan dan Ganti" (lagi, Ctrl+ Hberfungsi).
  3. Di bidang "Temukan apa", masukkan kode Alt berikut: Alt+ 0182. Pilcrow muncul.
    • Untuk memasukkan kode Alt, tahan Alttombol saat Anda mengetik angka pada keypad numerik. Mungkin membantu untuk memilikinya Num Lock.
  4. Di bidang Ganti, masukkan kode Alt berikut: Alt+ 0010.
    • Kode ini masuk dalam jeda baris tunggal. Tidak ada yang muncul, meskipun kursor Anda dapat berubah.
  5. Klik "Ganti Semua".

Referensi:

skia.heliou
sumber
Jawaban ini (dengan perbedaan kecil, kosmetik) muncul di Microsoft.com di Retain sel multi-garis saat menempelkan tabel Word ke Excel . Dan, BTW, saya menemukan bahwa (Alt) +10 cukup baik; Saya tidak membutuhkan dua angka nol di depan.
G-Man Mengatakan 'Reinstate Monica'
@ G-Man Ha ... kalau saja aku menemukan itu sebelumnya! Sayang sekali saya tidak bekerja di Office 2007 saat itu. Juga, maksud Anda yang memimpin satu nol (Alt + 010) atau dua memimpin (Alt + 10)?
skia.heliou
Terima kasih - Saya mendapatkan semua langkah untuk bekerja pada Mac (di Excel 15) kecuali untuk yang terakhir - Saya tidak dapat memasukkan alt-0010 atau line break yang dimasukkan. Ada saran? Saya mencoba menyalin dan menempelkan jeda baris dari sumber lain serta beberapa trik lainnya.
JayCrossler
Office 2013 di sini, ini tidak berhasil. Masih mendapatkan beberapa baris di Excel setelah penggantian.
Neil
17

Ada cara yang lebih mudah.

Jika Anda memiliki akun Google Gmail, Anda dapat membuka Google Drive, dan membuat spreadsheet baru, lalu salin seluruh tabel dari Microsoft Word ke dalam Google Spreadsheet. Setelah Anda memilikinya dalam format yang diinginkan, Anda kemudian dapat menyalin tabel ke Microsoft Excel.

Abe Basani
sumber
5
... atau ... tinggalkan saja di Drive :)
GreenAsJade
Saya harus menyalin dari Word ke Google Doc dan kemudian dari Google Doc ke Google Sheet (jika tidak, jeda baris akan hilang). +1 tetap
user2518618
1

Saya menemukan bahwa Anda dapat menggunakan LibreOffice Calc.

  1. Pilih tabel Word Anda
  2. Salinan
  3. Di LibreOffice Calc, Tempel Spesial sebagai HTML
  4. Simpan dalam format favorit Anda

Tabel Anda tidak akan dipecah menjadi beberapa sel.

Dermaga
sumber
Bekerja dengan baik untuk masuk ke LibreOffice Calc. Dan kemudian untuk mendapatkan dari Calc ke Excel: 1. pilih tabel Calc Anda 2. Salin 3. Di Microsoft Excel, Tempel Spesial sebagai DIF
Paul Gobée
0

Saya membuat fungsi vba untuk menghapus baris baru yang menyebabkan sel membelah di excel sebelum menyalin ke excel.

sub RemoveNewLinesFromTabelCells (tblnumber as integer)
'hapus baris baru dari setiap sel di tabel tabel yang dipilih berdasarkan nomor tabel
  redup x selama, y ​​selama, jumlah kolom, jumlah baris
  columncount = Activedocument.Tables (tblNumber) .Range.Columns.Count
  rowcount = Activedocument.Tables (tblNumber) .Range.Rows.Count
  untuk x = 1 ke jumlah baris
     untuk y = 1 ke jumlah kolom
        ActiveDocument.Tables (tblNumber) .cell (x, y) .Range.Text = Ganti (ActiveDocument.TAbles (tblNumber) .cell (x, y) .Range.Text, Chr (13, ""))
     selanjutnya y
  selanjutnya x
end sub
codecaine
sumber