Excel文字列の連結について教えてください(VBA)
- Excelの文字列の結合について教えてください。VBAを使用してセルA1とB1とA2の文字を固定で、セルA3以降の文字を順次連結してcsvに書き出す方法がわかりません。
- ExcelVBAに詳しい方、連結マクロを教えてください。
- よろしくお願いします。
- ベストアンサー
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 ・
- okaki007
- お礼率83% (5/6)
- その他(プログラミング・開発)
- 回答数1
- ありがとう数1
- みんなの回答 (1)
- 専門家の回答
質問者が選んだベストアンサー
(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を忘れないようにしてください。
関連するQ&A
- Excel2007のVBAで文字列を結合
Excel2007のマクロで文字列を結合したいのですがうまくいきません。 下記がお題になります 1、セルA1からU1までデータが1つずつ入ってます。 2、1のデータを3列ずつ結合してA3からG3にコピー。 例えば、セルA1あ、B1い、C1う、D1え、E1お、F1か、ならセルA3あいう、セルB3えおか、のようにマクロで一機にできるソースをお願いします。
- ベストアンサー
- Excel(エクセル)
- Excel2007のマクロで文字列を結合
Excel2007のマクロで文字列を結合したいのですがうまくいきません。 1、セルA1からU1までデータが1つずつ入ってます。 2、1のデータを3列ずつ結合してA3からG3にコピー。 例えば、セルA1あ、B1い、C1う、D1え、E1お、F1か、ならセルA3あいう、セルB3えおか、のようにマクロで一機にできるソースをお願いします。
- ベストアンサー
- その他(プログラミング・開発)
- Excelマクロにて文字列連結
現在Excelのマクロにて文字列の連結を行っているのですが、 繋いだ文字列を改行を付けて連結を行いたいです。 セルとセルの中の文字列を改行を付けて連結するにはどうしたらいいのでしょうか? 例 A1セル「あああ」 B1セル「いいい」 C1セル「あああ いいい」 Worksheets(sheet1).Range("C1").Value = Worksheets(sheet1).Range("A1").Value + Worksheets(sheet1).Range("B1").Value をすると 「あああいいい」と1行で表示されてしまいます。 ↑ ここに改行を入れるにはどうしたらいいのでしょうか? 以上、宜しくお願いします。
- ベストアンサー
- Visual Basic
- エクセルVBA 文字列複数行・列連続連結
エクセルVBA 文字列複数行・列連続連結でお教え下さい A列に基本文字(縦順) B列~F列に複数行データー(文字・時間) 文字結合時に改行 例 A2&B2&改行&A3&C2&改行&A4&D2&改行・・・・・ 次のデーター行 A&B3&改行&A3&C3&改行&A4&D3&改行・・・・・ データーの最終行まで連続で このような複数行あるデーターの連続文字列連結をしたいのですが・・・ 文字列連結後は 1.指定セルに貼り付け 2.クリップボードに貼り付け 3.テキストファイルに保存 よろしくお願い致します
- ベストアンサー
- その他(プログラミング・開発)
- エクセル 文字列連結演算子で文字列を結合
文字列連結演算子の「&」 を使って文字列を結合し、その間に()を投入したいです。 A列 B列 C列 D列 高橋太郎 東京 文字連結演算子 高橋太郎(東京) C列 =A1&(B1) ではエラーがでます。正しい書式を教えてください。 A列 B列 C列 D列 E列 F列 高橋太郎 ( 東京 ) 文字連結演算子 高橋太郎(東京) E列 =A1&B1&C1&D1 ってのは分かるのですが、もっとスッキリするものはないでしょうか? 宜しくお願いします。
- ベストアンサー
- Excel(エクセル)
- Excel2007のマクロで文字列を分解
Excel2007のマクロで文字列を分解したいのですがうまくいきません。 1、セルA1からU1までかそれ以上にデータが3つずつ入ってます。 2、1のデータの1つずつをを3列ずつに分解してA3から列上にコピー。 例えば、セルA1あいう、セルB1えおか→ならA3あ、B3い、C3う、D3え、E3お、F3か という具合に。だれかお願いします。
- 締切済み
- Excel(エクセル)
- 文字列の比較
excelvbaです。(excel2003) 3個のセル(a1,b1,c1)に文字列が入っています。 このそれぞれ文字列の右8桁を比較し、 最小の文字列が入っているセルに色を付けたいのです。 調べたら、minは使えませんし、dminがありましたが、 right(range("A1").value,8)をどう扱うかが分かりません。 出来ましたら、dminでなく他の方法が在ればベターです。 宜しくお願いします。
- 締切済み
- Excel(エクセル)
- セルの文字列を連結する
WinXPでExcel2003を使っています。 例えば、A1「あいう」、B1「5%」、C1「0.001」といセルがあった時、D1に文字列にして「あいう5%0.001」を入れたいと思っています。B1とC1は数値です。できますでしょうか。
- ベストアンサー
- オフィス系ソフト
- Excel VBA 結合セルがある時に1列だけ選択
A1からD1までの4つのセルが結合されている時に C列をクリックするとC列だけを選択できます。 これをVBAで記述するには どのように記述すればよいでしょうか。 マクロの記録では Columns("C:C").Select というコードが生成されるのですが マクロ記録時にC列だけが選択されていたのに 実行するとAからDの4列が選択されます。 読み込んだファイルを処理するので 結合セルの存在やセルは不定です。 よろしくお願いします。(Windows7,Excel2010)
- ベストアンサー
- Excel(エクセル)
- Excelの文字列と文字列の連結
A1のセルにはj50 C1のセルには01(ユーザ定義で00の書式) この二つの数値をCONCATENATE()関数を用いて文字列を 連結するとj501となってしまいます。 C1のセルを文字列の書式にするとうまくj5001と表示されますがそれ以外に方法はないでしょうか?
- ベストアンサー
- オフィス系ソフト
お礼
ご丁寧な回答ありがとうございます。 とてもわかりやすかったです。 サンプルを組み合わせて動いたのですが、 最終行の取得ですが、行数によってちゃん取得されたり されず固定部分のみオーバーして出力されたりします。 頂いたサンプルで以下の部分を変更しました。 ----------- Print #1,固定; ","; Cells(行, 1).Text ⇒Print #1, 固定 & Cells(行, 1).Text ----------- これが原因でしょうか。 後、空白セルには条件書式が入っております。 (「Ctrl」+「Shift」+「↓」キーでは、空白前で止まります) 他に考えられる原因があれば教えてください。 よろしくお願いします。
補足
最終行番号 = Cells(3, 1).End(xlDown).Row で解決できました。 ありがとうざいました。助かりました。