エクセルのマクロについて教えてください。

先ほど行を自動調整できるマクロを教えて頂きました。
Sub 行調整()
Dim r As Range
For Each r In Range("B26:B37,B41:B42")
If WorksheetFunction.CountBlank(r.Resize(, 4)) <> 4 Then
r.Rows.AutoFit
Else
'34.5に戻す必要がある場合
'r.RowHeight = 34.5
End If
Next
End Sub
このマクロは「セルを結合」にした場合には行が調整できないようです。
指定セルが結合されていても
上手く行が調整できる方法があれば教えてください。
（例えればB26行のセルは：B26、C26、D26列とセルが結合されてB26になっております）
よろしくお願いいたします。

No.1 ベストアンサー 回答者： Qchan1962 回答日時： 2022/12/26 14:43

結合ですね

Sub 行調整()
Dim r As Range
For Each r In Range("B26:B37,B41:B42")
If WorksheetFunction.CountIf(r.Resize(, 4), "<>") > 0 Then
r.Rows.AutoFit
Else
'34.5に戻す必要がある場合
r.RowHeight = 34.5
End If
Next
End Sub

空白でない数を条件に　あれば　AutoFit　でどうでしょう

この回答へのお礼

回答ありがとうございました。
何度も申し訳ありません。
全て解決いたしました。
感謝、感謝です。

お礼日時：2022/12/26 15:46