Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


12221 / 13644 ツリー ←次へ | 前へ→

【11542】csvコピーしたデータをうまくセルに納めたい やよ 04/3/11(木) 12:07 質問
【11544】Re:csvコピーしたデータをうまくセルに納め... Jカーター 04/3/11(木) 12:22 回答
【11545】Re:csvコピーしたデータをうまくセルに納め... Jaka 04/3/11(木) 12:22 回答
【11640】ありがとうございます! やよ 04/3/12(金) 18:42 お礼

【11542】csvコピーしたデータをうまくセルに納め...
質問  やよ E-MAIL  - 04/3/11(木) 12:07 -

引用なし
パスワード
   はじめまして。まずとても初歩的な質問で申し訳ないのですが、

csvコピーしたデータをセルにペーストすると単純にカンマ区切りの一列のデータがペーストされます。
それを「区切り位置」メニューを使って区切り文字を「カンマ」にして完了してそれぞれのデータが一つ一つのセルに収まるようになります。

まずはcsvコピー・ペーストのやり方が違っていますでしょうか?
それが分からなくて「区切り位置」メニューを使っていますが、、。

この一連の作業をマクロで記録してみました。
例えば、
セルA1にcsvコピーのデータをペーストしておきます。
1234,abcd,987,rst と表示されています。
ここから、マクロの記録を開始します。
「データ」→「区切り位置」→設定→「完了」
これで記録を終了しました。
Sub Macro2()
'
' Macro2 Macro
' マクロ記録日 : 2004/3/11 ユーザー名 : hidetoshi
'

'
  Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
    Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
    :=Array(1, 1), TrailingMinusNumbers:=True
End Sub

次に違うcsvコピーしたデータをセルA2にペーストしました。
そして上記のマクロを実行しました。

結果はセルA1のデータがセルA2のデータに置き換わり
「区切り位置」の設定は正確に行われました。

やりたいことは、csvコピーしたデータをペーストしたらカンマ区切りで
各セルに収まってほしいのですが、、。

マクロの記録(VBA)を編集して、データをきちんとおさめるように
できるものでしょうか。
Destination:=Range("A1"), このあたりをいじるのかな、、と
("A1,A2,A3"),
のように書いてみましたがダメでした・・・。

すいません、、どなたか教えていただけると助かります。
どうぞ宜しくお願いします。

【11544】Re:csvコピーしたデータをうまくセルに納...
回答  Jカーター  - 04/3/11(木) 12:22 -

引用なし
パスワード
   こんにちは。
コピーするまでは手作業なのですか?

それから
一個のセルでなく
まとめて実行してみてはどうでしょう?

たとえば
A1:A10に貼り付けて
その範囲に対して実行するのを自動記録してみて下さい。

なにかのヒントになると思います。

自動記録のコードを元になにかするには
ヘルプで意味を調べて理解してからの方が確実ですよ。
ヘルプは見ましたか?

【11545】Re:csvコピーしたデータをうまくセルに納...
回答  Jaka  - 04/3/11(木) 12:22 -

引用なし
パスワード
   こんにちは。

コピペではありませんが、みてね。

[#1910]
[#1911]

他、CSVで検索すれば何個か見つかると思います。

【11640】ありがとうございます!
お礼  やよ E-MAIL  - 04/3/12(金) 18:42 -

引用なし
パスワード
   ホントにご親切にありがとうございました。

参考にしてまた勉強してみます。
またお世話になるかもしれませんが宜しくお願いします。

12221 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free