|
はじめまして。
見様見真似でエクセルのマクロを書いています。
簡単なことだと思うのですが、どなたかご教示ください.
定期的なデータ処理用のエクセルマクロを作成していますが、
不連続なセル範囲の指定の仕方がわかりません。
例えば列:A〜Z、行:1〜N(その時々で列数は確定していますが、行数は変動します)
のデータのうち、A列、K列のフォントを設定する場合、
今までは以下のように表現していました。
最終列 = Columns("A:A").Specialcells(xlconstants).Count
With Range("A1:A" & NO数).Font
.Name = "MS ゴシック"
.Size = 10
End With
With Range("K1:K" & NO数).Font
.Name = "MS ゴシック"
.Size = 10
End With
ただしこの方法ですと、指定したい列が多くなると
With〜End Withの記述がその分だけ増えてしまい、あんまり
よろしくないと感じています。
できれば一回の記述ですませたいのですが、このような
不連続かつ最終行数が不確定なセル番地の、Rangeオブジェクトの
引数表示はどのように記述すればいいのでしょうか。
以上よろしくお願い致します。
|
|