[[20211124112906]] 『アクティブセルから最終まで』(マサ) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『アクティブセルから最終まで』(マサ)

 アクティブセルから最終までクリアするのですが
右列に1列ずれて3列分クリアするのではなく
まとめられませんか?
xlDownではなくxlupを使用してさくせいを
できればと考えてます。

Range(ActiveCell, ActiveCell.End(xlDown)).ClearContents
ActiveCell.Offset(0, 1).Select
Range(ActiveCell, ActiveCell.End(xlDown)).ClearContents
ActiveCell.Offset(0, 1).Select
Range(ActiveCell, ActiveCell.End(xlDown)).ClearContents

宜しくお願いいたします。

< 使用 Excel:Office365、使用 OS:Windows10 >


 Range(ActiveCell.Offset(, 2), Cells(Rows.Count, ActiveCell.Column).End(xlUp)).ClearContents

(きまぐれおじさん) 2021/11/24(水) 11:53


ありがとうございます。
助かりました。
(マサ) 2021/11/24(水) 12:56

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.