[[20190611170118]]　『セルを結合した後に、結合前の複数のセルの文字を』（aidahoman）　ページの最後に飛ぶ

『セルを結合した後に、結合前の複数のセルの文字をペーストする方法』（aidahoman）

下記の様な元データがあります。B列にある項目で同一のものが結合した状態で、その内容に合わせてC列を結合し、結合前の複数のセルの文字を結合したセルにペーストしたいです。どうかご教授願います。

この表を

	A	B		C
1	no	日付		項目
2	1	りんご  	aaaaa 
3	1	りんご  	bbbbb
4	1	りんご  	ccc
5	1	りんご  	dddd
6	2	みかん  	e
7	2	みかん  	fffffff

下記の表のようにしたいです。

	A	B		C
1	no	日付		項目
2	1	◇      	aaaaa 
3	1	りんご  	bbbbb
4	1	◇       	ccc
5	1	◇       	dddd
6	2	みかん  	e
7	2	◇      	fffffff

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

C列は、セル内で改行するということですか。

（マナ） 2019/06/11(火) 19:11

ごめんなさい。
もっと理解しやすいマクロにしたかったのですが…

 Option Explicit

 Sub test()
    Dim k As Long
    Dim a As Range
    Dim s As String

    With Cells(1).CurrentRegion
        For k = .Rows.Count To 3 Step -1
            If .Cells(k, 2).Value = .Cells(k - 1, 2).Value Then
                .Cells(k, 2).ClearContents
            End If
        Next

        For Each a In .Columns(2).SpecialCells(xlCellTypeBlanks).Areas
            With a.Offset(-1).Resize(a.Count + 1)
                 .Merge
                s = Join(Application.Transpose(.Columns(2)), vbLf)
                .Columns(2).ClearContents
                .Columns(2).Merge
                .Columns(2).Value = s
            End With
        Next
    End With

 End Sub

（マナ） 2019/06/11(火) 21:32

ありがとうございました。
イメージ通りに動作しました。
もっと勉強して応用できるようにがんばります。
（aidahoman） 2019/06/12(水) 12:09

コメント返信：

[ 一覧(最新更新順) ]

[[20190611170118]] 『セルを結合した後に、結合前の複数のセルの文字を』（aidahoman） ページの最後に飛ぶ

[[20190611170118]]　『セルを結合した後に、結合前の複数のセルの文字を』（aidahoman）　ページの最後に飛ぶ