[[20190801113023]]　『特定条件下で下のセルと上のセルを結合するマクロ』（にく）　ページの最後に飛ぶ

『特定条件下で下のセルと上のセルを結合するマクロを組みたい』（にく）

はじめまして、初心者です。
最後にURLを貼った画像のように、A列の特定のセルに特定の値が入ってるときだけ、
矢印で図示したようにその列の下のセルを上に結合したいのですが、
どのようなプログラムを書くとうまくいきますでしょうか。
なお、既に結合されてるセルを分解して書き直したいのはやまやまなのですが、
諸事情につき既に結合されているセルは極力そのまま扱う方向でお願いします。

こんな感じでやってみたんですが最初のｂのセルに至るまで下からすべて結合されてしまいます

Sub 結合()

    Dim i
    For i = 48 To 15 Step -3
    Dim j
    For j = 46 To 10 Step -3
        If Cells(j, 1) = "b" Then
            Range(Cells(j, 64), Cells(i, 66)).Merge
        End If
    Next j, i
End Sub

↓状況を説明した画像です、URLを開いて下の方のダウンロードを押して開けます。
https://light.dotup.org/uploda/light.dotup.org603421.png.html

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

画像はセキュルティ上、見ていません。
見当違いでしたら、スルーしてください。
For i　を使わず、
Cells(j, 64).Resize(?,2).Merge
では、どうでしょうか。

（tkit） 2019/08/01(木) 13:04

resizeを使って少し全体的に調整したら望む結果が得られました。
ありがとうございました。
（にく） 2019/08/01(木) 14:24

コメント返信：

[ 一覧(最新更新順) ]

[[20190801113023]] 『特定条件下で下のセルと上のセルを結合するマクロ』（にく） ページの最後に飛ぶ

[[20190801113023]]　『特定条件下で下のセルと上のセルを結合するマクロ』（にく）　ページの最後に飛ぶ