Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3603 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【61191】CVS出力 MAKINA 09/4/15(水) 15:20 質問[未読]
【61197】Re:CVS出力 n 09/4/15(水) 20:56 発言[未読]
【61207】Re:CVS出力 MAKINA 09/4/16(木) 12:35 質問[未読]
【61209】Re:CVS出力 n 09/4/16(木) 13:17 発言[未読]
【61215】Re:CVS出力 MAKINA 09/4/16(木) 14:25 お礼[未読]
【61212】Re:CVS出力 Jaka 09/4/16(木) 13:59 発言[未読]
【61214】Re:CVS出力 MAKINA 09/4/16(木) 14:24 お礼[未読]
【61191】CVS出力
質問  MAKINA  - 09/4/15(水) 15:20 -
引用なし
パスワード
   下記のようにA列に姓B列に名C列を備考にしています
このままCVSにした場合
姓　　　　　名　　　　　備考
鈴木　　　　一郎　　　　
佐藤　　　　次郎　　　　

下記のように保存されるのですが
姓　,名　,備考
鈴木,一郎,
佐藤,次郎,

1行目を消してしまうと
鈴木,一郎
佐藤,次郎
となってしまいます
これを
鈴木,一郎,
佐藤,次郎,
このように「,」で終わるようにするには
どのようにしたらよろしいのでしょうか
【61197】Re:CVS出力
発言  n  - 09/4/15(水) 20:56 -
引用なし
パスワード
   普通にCSVで保存した後のCSVファイルの１行目を消したらいいんじゃないかと思いましたけど、
どうもC列が空白の場合は15行くらいしか『,』がつきませんね。
#CSVファイル保存の仕様でしたっけ？

とりあえずオーソドックスに
Sub test()
　　Dim r As Range
　　Dim n As Long
　　
　　n = FreeFile
　　Open "d:\test.csv" For Output As #n
　　For Each r In Range("A2", Range("A2").End(xlDown))
　　　　Print #n, r.Value & "," & r.Offset(0, 1).Value & ","
　　Next
　　Close #n
End Sub
【61207】Re:CVS出力
質問  MAKINA  - 09/4/16(木) 12:35 -
引用なし
パスワード
   ▼n さんありがとうございます。
いい感じにしあがりました
ついつい欲が出てきまして
別の作業で使用しているデータにも対応できないものかと思い
鈴木　　　　一郎　　　　　　　　　　31　　　　　0333333333　東京　　　　品川区　　　品川　　　　　　　　　　
佐藤　　　　次郎　　　　　　　　　　25　　　　　0344444444　東京　　　　港区　　　　品川　　　　　　　　　　
山田　　　　花子　　　　　　　　　　28　　　　　0355555555　東京　　　　葛飾区　　　亀有　　　　　　　　　　
を
鈴木,一郎,31,0333333333,東京,品川区,品川,
佐藤,次郎,25,0344444444,東京,港区,品川,
山田,花子,28,0355555555,東京,葛飾区,亀有,
のようにしてみようと思ったのですが
やはりうまくいきませんでした
この場合はどのようにしたらよろしいのでしょうか
重ねての質問で申し訳ございません
【61209】Re:CVS出力
発言  n  - 09/4/16(木) 13:17 -
引用なし
パスワード
   >やはりうまくいきませんでした
どこが『やはり』なのかわかりませんが、試行したものを提示してみてはいかがですか？

別解。
上記がA1:G??のセル範囲だとして
1)H1:H??まで @ を入力（コピー）。
（『@』はデータに使われてないならなんでもいい文字）
2)A1:H??までコピー。
3)メモ帳を起動して貼り付け。
4)メモ帳の[置換]で「検索する文字列」にA1:B1をコピーして貼り付け。
5)A1とB1の文字列の間に ･ （ナカグロ）みたいのがあるのでそれを残してA1とB1の文字を削除。
6)置換後の文字列に , を入力して[すべて置換]。
7)さらに「検索する文字列」に @ を入力（1で入力した文字）。
8)置換後の文字列に何も入力しないで[すべて置換]。
9)csv拡張子で保存する。
（tabや改行文字の置換に対応しているテキストエディタを使えばもっと簡単）
【61212】Re:CVS出力
発言  Jaka  - 09/4/16(木) 13:59 -
引用なし
パスワード
   　 A　　　　 B 列として
>鈴木　　　　一郎
>佐藤　　　　次郎
罫線で、A1:C最終行
まで囲ってやればいいです。
【61214】Re:CVS出力
お礼  MAKINA  - 09/4/16(木) 14:24 -
引用なし
パスワード
   ▼Jaka さん
そんな簡単にできるわけ・・・・
と思いながらやってみたら
本当に出来ちゃいました
ありがとうございます。
【61215】Re:CVS出力
お礼  MAKINA  - 09/4/16(木) 14:25 -
引用なし
パスワード
   ▼n さん
いろいろご教授いただきありがとうございました。
いろいろなやり方があるということを
改めて勉強させていただきました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3603 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free