ベストアンサー

【エクセル】　結合セルで行の高さを自動調整する方法

2005/07/01 13:57

通常、セルに多数の文字を書き込んでも列幅を変更したくないときには、セルの書式設定で「折り返して全体を表示する」としておけば、列幅を広くすることなく、行の高さが自動調整されます。これを、結合セルでやろうとするとどうしても自動調整してくれません。結合セルでも、行の自動調整機能が働く方法を教えてください。よろしくお願いします。

mikakichi
お礼率85% (6/7)

オフィス系ソフト
回答数2
ありがとう数3

みんなの回答 （2）
専門家の回答

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

ベストアンサー

komet163
ベストアンサー率51% (22/43)

2005/07/01 17:45 回答No.1

こんにちは。わたしの環境は Excel2000ですが、標準の機能で自動調整はできないと思います。マクロで実現するなら以下になります。 Sub Macro1() Dim rStart As Long Dim rEnd As Long Dim lHeight As Long Dim rRng As Range Set rRng = Selection With rRng If Not .MergeCells Or .Rows.Count = 1 Then Exit Sub .MergeCells = False With .Rows(1) rStart = .Row .EntireRow.AutoFit lHeight = .Height End With rEnd = rStart + .Rows.Count - 1 .MergeCells = True Range(Rows(rStart), Rows(rEnd)).RowHeight = lHeight / .Rows.Count End With End Sub

質問者

お礼 2005/07/04 18:24

komet163 さん情報ありがとうございました。マクロ・・・あんまり解らないのですが、当該ファイルを開いて、マクロを開き上記の「sub～End Sub」までをコピーして一度保存しました。結合セルの書式設定を「折り返して全て表示」にして試してみましたが、自動調整は効きませんでした。もうちょっと、トライしてみます。

ログインすると、全ての回答が全文表示されます。

その他の回答 (1)

komet163
ベストアンサー率51% (22/43)

2005/07/04 18:59 回答No.2

こんには、#1 を補足説明します。自動調整したい単一のセル範囲（実際は複数のセルが結合されている）をクリックして実行します。実行すると、・結合を解除して・第１行目を行高さ自動調整して・その高さを覚えて・また結合し直して・結合された複数の行の高さを、覚えた高さの等分値に設定します。結果は、複数の行全体で、文字が入る高さかつ、それぞれの行は同じ高さに設定せれます。横に隣合う結合セルが縦に段違いで存在した場合、二つともに実行すると、それぞれが影響しあって、うまく動きません。m(__)m ワンポイントで使う程度です。ゴメンなさい。

質問者