Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

68389 / 76734

←次へ　｜　前へ→


	【12883】Re:データ入力された最終行まで罫線引くには...

かみちゃん - 04/4/18(日) 12:24 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>いつもおしえていただきありがとうございます。Ａ１～Ｆ１までデータが入力さていて、不規則に行が増減いたします。その場合、Ａ１～Ｆ？行までをドラックして罫線を引きたいのですが、マクロで記録すると行が変化すると対応できず困っております。

CurrentRegion プロパティを使います。

Range("A1").CurrentRegion.Select

これは、空白行と空白列で囲まれたセル範囲です。
セル範囲に空白行や空白列があると正しく取得されませんので、注意してください。

> 1行目のＣ１、Ｅ１に計算式があるのでＡ１を基準に増減した行に対してコピーすることはできるでしょうか？

セル範囲の行数は、次のようにすると、取得できます。
Range("A1").CurrentRegion.Rows.Count
あくまで、セル範囲の行数なので、これに、開始行-1を加える必要があります。

0 hits

▼

【12881】データ入力された最終行まで罫線引くには... シェフチェンコ 04/4/18(日) 9:45