[[20151021133528]]　『2つのセルを結合してA、Bの文字をつなげたい』（野次馬）　ページの最後に飛ぶ

『2つのセルを結合してA、Bの文字をつなげたい』（野次馬）

　セルAの文字（山口県）、セルBの文字（山口市）を一つのセルに瞬時に結合したいのですがやり方を教えてください。１５０行とかあります。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 =A1&B1

 後は式を必要なだけコピー

 としてみてください。
 ※行番号は実態に合わせて適宜変更してください。
（カリーニン） 2015/10/21(水) 13:43

 他には

 =CONCATENATE(A1,B1)

 とする方法(関数)もありますが、今回はそこまでやる必要は
 無いと思います。
（カリーニン） 2015/10/21(水) 13:44

 マクロでの例もあげておきます。

 Sub test()
  Dim r As Range
   Set r = ActiveSheet.Range(ActiveSheet.Cells(1, 1), ActiveSheet.Cells(Cells.Rows.Count, 1).End(xlUp))
   r.Offset(, 2).Formula = "=RC[-2]&RC[-1]"
   Set r = Nothing
 End Sub
（カリーニン） 2015/10/21(水) 16:57

 参考出品です。

 Sub test2()
    Dim n As Long
    n = Range("A" & Rows.Count).End(xlUp).Row
    Range("C1").Resize(n).Value = Evaluate("A1:A" & n & "&B1:B" & n)
 End Sub

（β） 2015/10/21(水) 17:05

 >１５０行とかあります。
 こういうこと？

 Sub test()
    [a1:a200] = [a1:a200&b1:b200]
End Sub
（seiya　） 2015/10/21(水) 17:18

 「2つのセルを結合して・・・」とありますので、 
 Sub test()
    Dim c As Range, mozi
    Application.DisplayAlerts = False
    For Each c In Range("A1:A" & Range("A1").End(xlDown).Row)
        mozi = c.Value & c.Offset(0, 1).Value
        With c.Resize(1, 2)
            .Merge
            .Value = mozi
        End With
    Next c
    Application.DisplayAlerts = True
 End Sub
 では？ 
（宰府空帆） 2015/10/21(水) 20:05

コメント返信：

[ 一覧(最新更新順) ]

[[20151021133528]] 『2つのセルを結合してA、Bの文字をつなげたい』（野次馬） ページの最後に飛ぶ

[[20151021133528]]　『2つのセルを結合してA、Bの文字をつなげたい』（野次馬）　ページの最後に飛ぶ