セルを複数の行に分割せずにWordテーブルをExcelにコピーするにはどうすればよいですか?


33

行と段落の区切りを含むWordテーブルにデータがあります。データをExcelにコピーすると、必要な各行と段落が複数のセルに分割されます。データをExcelにコピーし、ブレークを維持するにはどうすればよいですか?

回答:


39

少し文字を置き換える必要があります。これは非常に簡単な修正です。

言葉で:

  1. Wordでテーブル全体を選択します。
  2. 「検索と置換」ダイアログを開きます(たとえば、Ctrl+ を入力してH)。
  3. [検索対象]フィールドに、と入力し^lます。これにより、すべての改行が選択されます。
    • を入力して、段落区切りを選択できます^p
  4. [置換]フィールドにと入力し^vます。
    • これは、「ピルクロー」とも呼ばれる段落記号¶のショートカットです。
    • 後で簡単に交換できるように、段落記号を2つのピルクローで置き換えることができます。
  5. [すべて置換]をクリックします。
  6. テーブルデータをクリップボードにコピーします。

Excelの場合:

  1. Excelの目的の場所にテーブルを貼り付けます。
  2. 表形式のデータを選択した状態で、「検索と置換」ダイアログを開きます(もう一度、Ctrl+がH機能します)。
  3. [検索対象]フィールドに、次のAltコードを入力します:Alt+ 0182。巡礼者が現れます。
    • Altコードを入力するAltには、テンキーで数字を入力するときにキーを押し続けます。Num Lockオンにすると役立つ場合があります。
  4. [置換]フィールドに、次のAltコードを入力します:Alt+ 0010
    • このコードは、単一の改行に入ります。カーソルは変化する可能性がありますが、何も表示されません。
  5. [すべて置換]をクリックします。

参照:


WordテーブルをExcelに貼り付けるときに、Microsoft.comのRetain multi-line cellsでこの回答(些細な見た目の違い)が表示されました。ところで、(Alt)+010で十分であることがわかりました。2つの先行ゼロは必要ありません。
G-マンは「元に戻すモニカ言う

@ G-Man Ha ...以前に見つけただけだったら!残念ながら、私は当時Office 2007で働いていませんでした。また、先頭の1つのゼロ(Alt + 010)または先頭の2(Alt + 10)を意味しますか?
skia.heliou

ありがとう-最後の手順を除いて、Mac(Excel 15)で作業するためのすべての手順を取得しました-alt-0010または改行を入力できませんでした。助言がありますか?別のソースから改行をコピーして貼り付けようとしたほか、いくつかのトリックを試しました。
JayCrossler

ここのOffice 2013では、これは機能しません。置換後もExcelで複数の行を取得しています。
ニール

17

もっと簡単な方法があります。

Google Gmailアカウントをお持ちの場合は、Googleドライブを開いて新しいスプレッドシートを作成し、Microsoft WordからGoogleスプレッドシートに表全体をコピーできます。目的の形式で作成したら、テーブルをMicrosoft Excelにコピーできます。


5
...または...そのままドライブに残してください:)
GreenAsJade

WordからGoogle Docにコピーしてから、Google DocからGoogle Sheetにコピーする必要がありました(そうしないと、改行が消えてしまいます)。とにかく+1
user2518618

1

LibreOffice Calcを使用できることがわかりました。

  1. Wordの表を選択してください
  2. コピー
  3. LibreOffice Calcで、HTMLとして形式を選択して貼り付け
  4. お気に入りの形式で保存

テーブルは複数のセルに分割されません。


LibreOffice Calcで正常に動作します。そして、CalcのからExcelに取得するには:1.あなたのCalcの表をコピー3.でMicrosoft Excelを選択して貼り付けDIFとして
ポールGobée

0

Excelにコピーする前に、Excelでセルを分割する原因となった改行を削除するvba関数を作成しました。

sub RemoveNewLinesFromTabelCells(整数としてのtblnumber)
'選択したテーブルのすべてのセルからテーブル番号で改行を削除します
  dim xが長い、yが長い、columncountが長い、rowcountが長い
  columncount = Activedocument.Tables(tblNumber).Range.Columns.Count
  rowcount = Activedocument.Tables(tblNumber).Range.Rows.Count
  x = 1から行数まで
     y = 1の場合、列数
        ActiveDocument.Tables(tblNumber).cell(x、y).Range.Text = Replace(ActiveDocument.TAbles(tblNumber).cell(x、y).Range.Text、Chr(13、 "")
     次の
  次のx
終了サブ
弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.