[[20261029111245]]　『↓[20261027062733]20:30『選択行のコピペ』その普x（NK）　ページの最後に飛ぶ

『↓[20261027062733]20:30『選択行のコピペ』その変更』（NK）

Sub Sample()

（4xmy）さま 2026/10/27(火) 10:03:02
こちらのコードで変更をお願いしたいのですが
選択した列にのみ適用をお願いしたいのです。
左右の隣り合わせの列の行のセルも同時にクリアされていましたので。
検証に慌てましてすいません。
また他の方のご回答もいただけましたが、こちらのコードの変更でやりたいので
なにとぞご了承いただきたく存じます。

＜使用 Excel：unknown、使用 OS：unknown ＞

ああ行全体ではなかったのね。であれば

 ActiveCell.End(xlDown).EntireRow.ClearContents
   ↓
 ActiveCell.End(xlDown).ClearContents
    または
 ActiveCell.End(xlDown) = ""

でよいかと。
（4xmy） 2026/10/29(木) 11:58:10

記述一つ変わると役割が全然変わるものです。
変更前のマクロを2回ほど使わせて頂きましたが、
全く虫食いの状態に気づかなくて、青ざめました。
何んとか埋め戻しまして、変更版で再確認致しました。
今度は大正解の世界でした。
また質問内容を予想一発でご理解頂き感謝致します。
この件につきましては、他の方とは今後の状況説明のやりくりに大変との判断から、
省略させて頂きました。
この場をお借りしましてお詫び申し上げます。
各局様この度の御回答誠にありがとうございました。

（NK） 2026/10/29(木) 21:54:55

コメント返信：

[ 一覧(最新更新順) ]

[[20261029111245]] 『↓[20261027062733]20:30『選択行のコピペ』その普x（NK） ページの最後に飛ぶ

[[20261029111245]]　『↓[20261027062733]20:30『選択行のコピペ』その普x（NK）　ページの最後に飛ぶ