VBAを用いて特定の範囲のセルを結合しつつ文字列を連結させられる方法が知りたいです。

タイトルの通りなのですが、特定の範囲（例えばA1とB1,A2とB2、A3とB３…）の各行の文字列を連結させつつセルを結合することができるのかどうか知りたいです。

また、できるならばどのようにすればよいのか教えてください。

No.4 ベストアンサー 回答者： tom04 回答日時： 2020/08/18 16:14

No.1です。

＞A1,B1,C1,D1を結合・連結させるというのも可能なのですか？

A～D列には何らかのデータが入っていて、4列を結合し　A＆B＆C＆D　の文字列にする！
というコトですかね？
そうであればもちろん可能です。

Sub Sample2()
Dim i As Long
Dim j As Long
Dim myStr As String

Application.DisplayAlerts = False
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
For j = 1 To 4 '//←A～D列まで//
myStr = myStr & Cells(i, j)
Next j
With Cells(i, "A")
.Resize(, 4).Merge
.HorizontalAlignment = xlCenter
.Value = myStr
End With
myStr = ""
Next i
Application.DisplayAlerts = True
End Sub

こんな感じでいけると思います。m(_ _)m

No.1 回答者： tom04 回答日時： 2020/08/12 17:26

こんにちは！

もちろんVBAであればできます。
一例です。
A列の1行目～A列の最終列までの操作としてみました。

Sub Sample1()
　Dim i As Long
　Dim myStr As String

　　Application.DisplayAlerts = False
　　　For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
　　　　With Cells(i, "A")
　　　　　myStr = .Value & .Offset(, 1)
　　　　　.Resize(, 2).Merge
　　　　　.HorizontalAlignment = xlCenter
　　　　　.Value = myStr
　　　　End With
　　　Next i
　　Application.DisplayAlerts = True
End Sub

とりあえずはお望みの動きになると思います。

※　元データに手を付けていますので、
別シートでマクロを試してみてください。m(_ _)m

この回答へのお礼

ありがとうございます！
このやりかたでA1,B1,C1,D1を結合・連結させるというのも可能なのですか？

お礼日時：2020/08/18 14:47