隣のセルの値をコピー」という検索キーワードで、このサイト・インストラクターのネタ帳へのアクセスが時折あることに気づきました。Applications)のコードを探している方による検索です。[スポンサードリンク]VBAでセルの値をコピーするセルの値を別のセルと同じにしたいのならば、コピー&ペースト(貼り付け)を行う必要はありません。値の代入を行えばOKです。Sub上記のマクロを実行すると、代入演算子「=」の左側に書かれている「Range("B1").Value」に、右側のデータ「Range("A1").Value」が代入されます。値のみをコピー&ペーストしたのと同じ結果になります。隣のセルの値のコピーを繰り返すサンプルマクロA1:A10セルにデータが入っていて、隣のB1:B10にはデータが入っているセルと入っていない空白セルがあったときに、空白セルだったときにだけ隣のA列の値をコピーする場合は、以下のようなマクロです。Then隣のセルの値をコピーしています。Range("A1").End(xlDown).RowとすればOKです。左隣のセルの値をコピーするサンプルマクロアクティブなセルに、左隣のセルの値をコピーしたいのなら、以下のようなマクロです。-1).Valueの部分です。-1).Valueです。-1).Value」を代入しています。第2引数に「-1」を指定することで左隣のセルを取得しています。-1).Valueを実行すると、左隣にセルがないために実行時エラーが発生してしまいます。このエラーを回避するために、アクティブセルの列が1列目かどうかを判定する処理が入っています。Officeの使い方などを紹介し続け(2012年頃からはVBA関連記事が多め)、毎日5万人の方にご覧いただいています。