こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

テキストだとわかり辛いと思い、
画像を添付させていただきました。

3列の表があり、
A列に1~10までの数字(グループ名)を入力します。

これを、A列の数字が同じ場合、
B列とC列をセル結合したいのですが、
マクロで実現できるでしょうか?

(行数は15行くらいあり毎日変わります)
(最終行の次の行は空白です)
(A列は結合してもしなくても問題ありません)

Excel 2007 Windows10を使用しています。

おわかりの方がいらっしゃいましたら、
どうぞよろしくお願い致します。

投稿日時 - 2018-11-19 20:59:05

QNo.9559693

困ってます

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

力技ですがこんな感じでしょうか。
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

投稿日時 - 2018-11-19 23:05:56

お礼

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

投稿日時 - 2018-11-20 06:06:56

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

-広告-
-広告-

回答(1)

-広告-
-広告-

あなたにオススメの質問

-広告-
-広告-