33
33
セルを複数の行に分割せずにWordのテーブルをExcelにコピーするには？
Wordの表に改行や段落を含むデータがあります。そのデータをExcelにコピーすると、行や段落ごとに複数のセルに分割されてしまいます。データをExcelにコピーして改行を維持するにはどうしたらいいですか？
Wordの表に改行や段落を含むデータがあります。そのデータをExcelにコピーすると、行や段落ごとに複数のセルに分割されてしまいます。データをExcelにコピーして改行を維持するにはどうしたらいいですか？
ちょっとした文字入れ替えをする必要があります。かなり簡単な修正です。
Wordの場合:
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。 - このコードは 1 回の改行で入力します。カーソルは変化しますが、何も表示されません。 5. すべてを置き換える」をクリックします。
参照:
もっと簡単な方法があります。
Google Gmailアカウントをお持ちの方は、Googleドライブを開いて新しいスプレッドシートを作成し、Microsoft WordからGoogleスプレッドシートに表全体をコピーします。表を希望の形式にしたら、その表をMicrosoft Excelにコピーします。
エクセルにコピーする前にエクセルでセルが分割されてしまう原因となっていた改行を削除するvba関数を作ってみました。
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