• ベストアンサー

Excel マクロ 条件によるセルの結合

テキストだとわかり辛いと思い、 画像を添付させていただきました。 3列の表があり、 A列に1~10までの数字(グループ名)を入力します。 これを、A列の数字が同じ場合、 B列とC列をセル結合したいのですが、 マクロで実現できるでしょうか? (行数は15行くらいあり毎日変わります) (最終行の次の行は空白です) (A列は結合してもしなくても問題ありません) Excel 2007 Windows10を使用しています。 おわかりの方がいらっしゃいましたら、 どうぞよろしくお願い致します。

質問者が選んだベストアンサー

  • ベストアンサー
  • mt2015
  • ベストアンサー率49% (258/524)
回答No.1

力技ですがこんな感じでしょうか。 A列も結合したいなら、For j = 2 To 3 を For j = 1 To 3 に変更してください Sub Sample()   Application.DisplayAlerts = False   nStart = 4   For i = 4 To Range("A3").End(xlDown).Row     If Cells(i, 1) <> Cells(i + 1, 1) Then       nLast = i       If nStart < nLast Then         For j = 2 To 3           Range(Cells(nStart, j), Cells(nLast, j)).Merge         Next j       End If       nStart = i + 1     End If   Next i   Application.DisplayAlerts = True End Sub

rabbit78
質問者

お礼

完璧に稼働しました。 迅速かつ的確なご回答、 本当にありがとうございました。

関連するQ&A