merlionX さん、こんにちは。 ちょっと考えてみました。 以下のプロシージャは単独で動くものですが、この下にある、Selection を、Target[正しくは、With Target.Cells(1) ] にして、イベント(Worksheet_Change())に入れてみたらいかがでしょうか?一応、これは、フォント9~12 の書式スタイルで検証してみました。 ただ、確か、Excelでは、印刷する場合に、調整高が連続した行にあると、セルの中の最後の行が隠れてしまうという現象がありますので、「縦の調整」に、数字を入れて調整してみてください。だいたい、調整高の余分として、そのフォントの高さの1~1.5倍(例:フォント11で、13.5) ぐらいを入れてみてください。 'フォントの高さの定数 Private Const Font12Ht = 14.25 Private Const Font1
![エクセルで結合したセルの高さの自動調整方法?](https://cdn-ak-scissors.b.st-hatena.com/image/square/c0db91e91d06972f428b2cb09dde589ae4e9ab3a/height=288;version=1;width=512/https%3A%2F%2Foshiete.xgoo.jp%2Fimages%2Fsp%2Fqa_recommend%2F2099_4.jpg)