質問: excel文字列の連結について教えてください(vba) excelの文字列の結合について教えてください。 色々調べたのですが、vba自体がよくわからず困っています。 やりたい事は、(excel表をご参考) 『セルa1とb1とa2の文字を固定で、セルa3以降の文字以降を 順次連結してcsvに書き出すvbaを作成したい。』 どうしても繰り返す連結マクロがわかりません。 excelvbaに詳しい方、教えてください。 よろしくお願いします。 結果例) 20080501a01 20080501a02 20080501b01 20080501c01 ・ ・(300件以上続きます) <excel表> a列 b列 1 2008 05 2 01 3 a01 4 a02 5 b01 6 c01 7 ・ 8 ・
回答: (1)固定部分 dim 固定 固定 = cells(1, 1).text & cells(1, 2).text & cells(2, 1).text (2)空欄が出てくるまでの行数 dim 最終行番号 最終行番号 = cells(3, 1).currentregion.rows.count (3)ファイル出力 open "c:\xx~yy.csv" for output as #1 (4)行のループ dim 行 for 行 = 3 to 最終行番号 print #1,固定; ","; cells(行, 1).text next 以上のサンプルを組み合わせればプログラムできると思います。 最後に出力ファイルのcloseを忘れないようにしてください。