Paulには、1,000行を超えるデータを含むワークシートがあります。ほとんどの行の高さは12ですが、高さが100を超えるものもあります。40を超える行がないように行の高さを調整する方法があるかどうか疑問に思います。 （つまり、高さが40未満の場合は現在の高さを維持しますが、40を超える場合は40に調整されます。）

この問題への取り組みは実際には非常に簡単です。行をステップスルーし、現在の行の高さを決定し、大きすぎる場合は行の高さを調整する方法が必要です。これは、次のような非常に単純なマクロで実行できます。

Sub MaxRowHeight()

Dim R As Long

For R = 1 To ActiveSheet.UsedRange.Rows.Count         If Rows(R).Height > 40 Then Rows(R).RowHeight = 40     Next End Sub

マクロは、ワークシートで使用されている行の範囲を決定し、それらの行をステップスルーします。動作プロパティは、チェックされる.Heightプロパティです。 40を超える場合は、40に設定されます。これは、行の高さが40未満のものはすべて変更されないことを意味します。

注：

このページ（または_ExcelTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（10381）は、Microsoft Excel 2007、2010、2013、2016、2019、およびOffice365のExcelに適用されます。