- ベストアンサー
CSV取込、並び変えマクロとは？詳しい方HELP
- CSV取込により、エクセル表に値を貼り付けし、昇順に並び変えるマクロについて詳しい方を求めています。
- 具体的な要件として、CSVを取込し、指定のフォーマットに値を貼り付け、G列を昇順に並び替えたいです。
- また、値の入っている範囲で自動で印刷する機能も追加したいです。詳しい方の助言をお待ちしています。
- nenesan23
- お礼率8% (2/23)
- Visual Basic
- 回答数2
- ありがとう数0
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
(1)CSVを取込し、値で添付のようなフォーマットに貼り付けしたい 6行目でいうと、CSVのそれぞれの以下のセルの値がエクセル表の以下のセルに 値で貼り付くようになります。 ※エクセル表は5行目がタイトル行になります。 ※コピー後の貼り付けは値で貼りつけしたい エクセルには、CSVのファイルのデータ接続という機能があります。 データ＝＞テキストファイル＝＞ファイル ＝＞取り込み先のセルなどを設定すると 次回からは、更新を行うだけになります。 カットと貼り付けという発想から離れましょう。 エクセル表 B6 C6 D6 E6 F6 G6 CSV A2 B2 E2 F2 I2 L2 縦横入れ替えの貼り付けですよね。先に説明した方法で別のシートへデータの取り込み 印刷したいシートへ縦横入れ替えで貼り付け、或いは関数を配置 (2)昇順に並び変えをしたい G列は数字になりますので、昇順で並び変えをしたい 関数を使った場合は、一度、値に入れ替えて エクセルの並び替えを実行 (3)値が入っている範囲で印刷をしたい。 CSV取込によりセットした値の印刷範囲で自動で印刷するようにしたいです。 表では罫線があるので、データが入っているセルに罫線が入るように設定すれば 如何でしょうか。 勝手に、必要な部分だけが印刷されると思います。 上記の事が手動で出来るようになったら、マクロの記録で一気にマクロ化してください。 VBにこだわる前に、エクセルの機能を全面的に使いこなす事が簡単です。
その他の回答 (1)
- kmetu
- ベストアンサー率41% (562/1346)
CSVにどのようなデータがどのようなフォーマットで保存されているのか不明ですし、そもそもCSVデータは値しかありませんから、値以外の情報を貼り付けることはできません。 > 印刷が出来るマクロが出来ないか考えていますが、何から手をつけていいのか分からない とりあえず、以下のことをマクロの記録で記録してマクロのもとを作成してください。 CSVファイルをエクセルで開く 必要な部分をエクセルの表に貼り付ける 昇順に並び替える 印刷範囲を指定して印刷する ちなみに範囲指定の最終行が毎回変わる場合（たとえば印刷範囲がA1からB列の不定行の場合) PageSetup.PrintArea = "A1:B" & Range("B" & Rows.Count).End(xlUp).Row としておくことでB列の最終行までが対象となります。
