[[20200804204107]]　『マクロで行の高さを変更』（saki）　ページの最後に飛ぶ

『マクロで行の高さを変更』（saki）

D列に3000行くらいのデータだあり、各セルの文字数が違います。各セルの文字数によって、行の高さを変えていきたいのです。

例えば文字数が
1～30までは、行の高さが20
31～60までは、行の高さが40
61～90までは、行の高さが60
というような、マクロは可能でしょうか？

よろしくお願いいたします。

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

できるかできないのかという質問であれば可能です。というのが回答になります。

forループで1行目から順番にD列の値の文字数を取得して
それをifかcaseを使って条件分岐してrowheightに数値を放り込めばいけます。
（高橋） 2020/08/04(火) 21:33

こんな流れのマクロでどうでしょうか

１）作業列でD列の文字数をカウント:=IF(len(d2)<31,1,len(d2)<61,2,3)
２）フイルターで1を抽出
３）抽出された行の高さを20にする
４）フイルターで2を抽出
５）抽出された行の高さを40にする
６）フイルターで3を抽出
７）抽出された行の高さを60にする

（マナ） 2020/08/04(火) 21:42

マナさま

ありがとうございました。
出来ました。

saki
（saki） 2020/08/05(水) 00:12

コメント返信：