貼り付けたら全て一行になるようにしたい

I love you.
という文をエクセルに貼り付けたいです。
でもこのままだとA１のセルに I love you.の1文が張り付いてしまいます。

そうではなくて、単語ごとに、かつ、A列にのみコピペしたいです。
貼り付けると
セルA1　に　I
セルA2　に　love
セルA3　に　you.

そんなことはできますでしょうか？
お願いします。

No.1 回答者： mike_g 回答日時： 2015/04/18 13:01

１．「I love you.」をセル B1 に貼り付け

２．セル B1 を選択して、[データ]→[区切り位置]を実行
３．“カンマやタブなどの…”に目玉を入れて、[次へ]をクリック
４．“スペース”にチェックを入れて、[次へ]→[完了]を実行
５．範囲 B1:D1 を選択して、Ctrl+C をチョーン
６．セル A2 の右クリックから[形式を選択して貼り付け]を選択
７．“行列を入れ替える”にチェック入れ、[OK]をクリック
８．１行目を削除

この回答へのお礼

助かりました　ありがとうございました。

お礼日時：2015/05/04 04:03

No.2 回答者： koko88okok 回答日時： 2015/04/18 13:21

I love you.には、Excelが認識できる区切りがないため１つのセルに貼り付けされます。

メモ帳かWordに貼り付けて、単語ごとに改行し、
　I
　love
　you.
の状態にした後、ExcelのセルA1に貼り付ける方法は如何ですか？

Excelには、「区切り位置」という機能がありますが、横方向にしか展開できませんので、
一度、邪魔にならないセルで、単語ごとに分解した後、行列を入れ替える操作が必要です。
但し、VBAでなら一度の操作で、縦方向に展開できるそうです。

下記URLの過去ログをご参照ください。

【エクセル】区切り文字が含まれるデータを縦に展開する方法
https://oshiete.goo.ne.jp/qa/3484629.html

この回答へのお礼

使えそうですありがとうございました。

お礼日時：2015/05/04 04:03

No.3 ベストアンサー 回答者： WindFaller 回答日時： 2015/04/19 23:52

こんにちは。

>そんなことはできますでしょうか？
ショートカットをつけるとよいのですが、私のExcel は、もう一杯でした。
マクロだけ書いておきます。

このマクロの使い方の手順
Ctrl + c で、クリップボードに入れる。　-> クリップボードの中のコピーを以下のマクロで切り分ける －> 貼り付ける

I
love
you

になっています。

'//
'標準モジュール
Sub Txt2ClipBoard()
　Dim obj
　Dim sTxt
　Dim buf
　Set obj = CreateObject("htmlfile")
　'クリップボードに入ったデータを、切り分けする
　sTxt = obj.parentWindow.ClipboardData.GetData("text")
　DoEvents
　If InStr(1, sTxt, Space(1), 1) > 0 Then
　　buf = Replace(sTxt, Space(1), vbCrLf)
　　obj.parentWindow.ClipboardData.setData "text", buf
　End If
　Set obj = Nothing
End Sub

この回答へのお礼

ありがとうございました。助かります

お礼日時：2015/05/04 04:02

No.4 回答者： athenaioi 回答日時： 2015/04/22 14:09

単語が多い文章を対象とするなら、Excelに貼り付ける前に処理しておいた方が楽でしょう。

テキストエディタやWordの置換機能を使って、単語間のスペースを改行に置換※してから、コピー＆ペーストすればOKです。

Wordの場合は、
・検索する文字列「^w」（←半角）
・置換後の文字列「^p」（←半角）

Windows標準の「メモ帳」では、上記のような置換はできません。

この回答へのお礼

初めて知りました　ありがとうございました。

お礼日時：2015/05/04 04:02