エクセルへのデータの貼り付けについて・・・

質問

コピーしたデータを各セルごとに貼り付けるにはどうしたらいいのですか？

　＜エクセルに貼り付けたいデータ＞
　　　　変位ｘ　　変位ｙ
節点１　　：　　　　：
節点２　　：　　　　：
節点３　　：　　　　：

　こういうデータをエクセルに貼り付けたいのですが、コピーして貼り付けすると、一箇所のセルにしか貼り付けられないので、各セルごとに貼り付けるにはどうしたらいいのですか？

回答No.4

nishi6

＞一箇所のセルにしか貼り付けられないので
とありますが、
　節点１　：　：　　があるセル
　節点２　：　：　　が次のセル
　節点３　：　：　　が次のセル　でしょうか。この状態なら、ここから

貼り付けたセルを選択して、メニューから、
　　データ→区切り位置で
　　　『元データの形式』で『スペースによって・・・揃えられた固定長フィールドのデータ』を選択
　　→次へ
　　　データのプレビューで切り分けたい箇所をマウスで選択します。
　　→次へ
　　　『列のデータ形式』を選択したり、不要なデータは『削除する』を選択します。
　　→完了　でセルに分割されるはずです。(Excel2000での操作です)

項目の桁が揃っていれば、このようにして分割できるはずです。

　節点１　：　：
　節点２　：　：
　節点３　：　：
　　の全てが１つのセルに貼り付けられるなら、
　　　コピーした後、『形式を選択して貼り付け』で『貼り付ける形式』を『テキスト』にできれば、
　　　行に分かれると思われます。

回答No.3

imogasi

下記の知識で対処できると思います。
(1)ＴＡＢキーの場合
メモ帳で、下記のように入力する。
ｔはＴＡＢキー、Ｅはエンタキーをいれる。
１ｔ２ｔ３Ｅ
２ｔ３ｔ４Ｅ
３ｔ４ｔ５Ｅ
（これと似たテキストファイルがin-the-futureさんの手許に出来ているのだと思う。またはＴＡＢキーを挿しこむのならばこのケースである。）
この全体を範囲指定して、編集－コピーをクリックする。
エクセルのシートを開き、Ａ１セルをポイントし、
編集－形式を選択して貼り付け－テキスト－ＯＫで
Ａ１：Ｃ３までに、セルに分割されてセットされる。
----
（２）カンマ、セミコロン、スペースなどで区切られているファイルがあるとき。（ＴＡＢキーで区切られているケースは少なかろう。）
（１）の方法だと、上手く項目に分割してくれない。
そこでＶＢＡの出番だが、その前にテキストファイルを
メモ帳に表示し、コピーする。そして
まずエクセルのシートを開き、Ａ１：Ａ３に普通の編集－貼り付けを行う。
そして
Sub test01()
Dim k
d = Range("a1").CurrentRegion.Rows.Count
For i = 1 To d
sp = Split(Cells(i, 1), ";")
j = 2
For Each k In sp
Cells(i, j) = k
j = j + 1
Next
Next i
End Sub　　　　　
を実行するとＢ１：Ｄ３に
1 2 3
2 3 4
3 4 5
になる。
区切り文字によって、Split(Cells(i, 1), ";")の";"を" "や","に変える。

回答No.2

smart600cc

下記のようにデータとデータの間にTabキーでタブを挿入すればコピー＆ペーストできます。

　　　<TAB>変位ｘ<TAB>変位ｙ
節点１<TAB>　：　<TAB>　：
節点２<TAB>　：　<TAB>　：
節点３<TAB>　：　<TAB>　：

※<TAB>はタブ文字のことで実際に<TAB>と入力しないでください。

回答No.1

hinebot

貼り付けたい元のデータはなんでしょうか？テキストデータですか？
節点N　というのは、何行ぐらいあるんでしょうか？

もし大変でなければ、
[全角スペース]，変位ｘ，変位y
節点１，：，：
節点２，：，：
節点３，：，：

と言う風にデータとデータの間にコンマ(，）をいれて
エクセルで、ファイルを開くから、そのテキストファイルを選択すれば
ご希望の状態になると思います。
最初の[全角スペース]は列をあわせるためのダミーです。

あるいは、セルがずれるかもしれませんが、そのままエクセルで「ファイルを開く」でそのテキストファイルを開いてもOKかもしれません。（自信なし）