[[20130709152734]]　『文字の結合』（MOJIMOJI）　ページの最後に飛ぶ

『文字の結合』（MOJIMOJI）

 VBAで結合したいのですが、初心者なので教えて下さい。
      A          B          C

 2   青森　　　りんご　　　青森りんご

 3　 愛媛　　　みかん　　　愛媛みかん

 4　 宮崎　　　マンゴー　　宮崎マンゴー

 C2 = CONCATENATE(A2,B2)
 C3 = CONCATENATE(A3,B3)
 C4 = CONCATENATE(A4,B4)と数式で現在結合しています。
 縦行　2000行位有ります。
 VBAですると・・・どういう風にすれば教えて下さい。
 WinXP  Excel2007

★のところに例：C3のようにどこまで続けたいか数字いれて下さい・・

 Sub ketugou()
    Range("C2").Select
    ActiveCell.FormulaR1C1 = "= CONCATENATE(RC[-2],RC[-1])"
    Selection.AutoFill Destination:=Range("C2:C★")
    Range("C2:C★").Select
 End Sub

多分これで出来ると思います。

(ぬ)

 こんな風にすればおｋ(ROUGE)
　
With Range("A2", Range("A" & Rows.Count).End(xlUp))
    .Offset(, 2).Value = Evaluate("IF(" & .Address & "="""","""",Concatenate(" & .Address & "," & .Offset(, 1).Address & "))")
End With

 これでいいんじゃないの？
 Sub tset()
     [c1:c5000] = [a1:a5000&b1:b5000]
 End Sub
 (seiya)

 そ、そうですね。。。orz(ROUGE)

 皆様、有り難う御座いました。
 seiya様のコードが一番簡単で使いやすいのでコレを使用してみます。
 ただ、［　の意味はどういった意味合いになりますでしょうか？
 今迄のコードに [　を使用しているのが初めてみました。
 宜しければ教えて下さい。

[[20070212134849]]　『Evaluate Method の研究』（seiya）

 で説明してるので、覗いてみてください。
 (seiya)

 有り難う御座います。勉強させて頂きます。

コメント返信：

[ 一覧(最新更新順) ]

[[20130709152734]] 『文字の結合』（MOJIMOJI） ページの最後に飛ぶ

[[20130709152734]]　『文字の結合』（MOJIMOJI）　ページの最後に飛ぶ