クリップボードを使わないセルのCopy
セルをコピーすることはマクロVBAにおいてもっとも基本的なことですが、
セルをコピーすると、クリップボードが使われてしまうので、他の作業との併用時に困ることが多々あります。
そこで、クリップボードを使わずに、セルをコピーする方法を考えてみましょう。
セルのコピーの基本
第40回.セルのコピー・カット&ペースト（Copy,Cut,Paste）
「マクロの記録」のコピー
Range("A1").Copy
Range("B1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
これは間違いなくクリップボードを使っています。
.Copyでクリップボードに入ります。
Destinationを指定したコピー
Range("A1").Copy Destination:=Range("B1")
Destination:=は省略可能です。
これもクリップボードが使われています。
先の.Copy、.Paste、CutCopyMode = False、これらを1行で書いているに過ぎません。
つまり、それ以前のクリップボードは消えてしまいますが、実行後のクリップボードには残りません。
1行で済んでいて記述も簡便ですので、セルのコピーでは基本的にはこれを使うようにしましょう。
クリップボードを使わないセルのCopy
基本的には、マクロ実行中は、じっと我慢の子で待っていましょう(笑)
なのですが、それでは本記事の意味がありませんので、方法を検討しましょう。
Range("A1:E10")をRange("G1:K10")にコピーする場合です。
Range("G1:K10").Value = Range("A1:E10").Value
これでセルの値（Value）はクリップボードを使わずにコピーされます。
注意点としては、
・左辺と右辺のセル範囲の大きさを同じにすること
・Valueも省略せずに書くこと
Valueにならって、
Range("G1:K10").NumberFormatLocal = Range("A1:E10").NumberFormatLocal
全てのセルが同一なら良いのですが、バラバラな書式の場合は、これではコピーされません。
しかし、そもそもコピーする全てのセルが同一書式なら、
Range("G1:K10").NumberFormatLocal = Range("A1").NumberFormatLocal
これで良いことになります。
つまり、単一の値をセル範囲に入れているだけです。
Valueだけが特別です。
これは、セル範囲を配列に入れるときと関連しています。
Dim MyAry
MyAry = Range("A1:E10").Value
これで配列が作成されます。
そして、
Range("G1:K10").Value = MyAry
これで値がコピーされることになります。
つまり、
Dim MyAry
MyAry = Range("A1:E10").Value
Range("G1:K10").Value = MyAry
これのMyAryを消し込めば、
Range("G1:K10").Value = Range("A1:E10").Value
このようになるということです。
そして、これができるのはValueだけだと考えてもらえば良いでしょう。
値と書式のコピー
「セルの書式設定」で設定する内容であれば、クリップボードを使用せずに一括でコピーできます。
Range("C1:C3").Value(xlRangeValueXMLSpreadsheet) = Range("A1:A3").Value(xlRangeValueXMLSpreadsheet)
Valueの引数
| 名前 | 値 | 説明 |
| xlRangeValueDefault | 10 | 既定値です。指定したRangeオブジェクトが空の場合は、値 empty (このケースについては、IsEmpty 関数を使用してテストします) を返します。Rangeオブジェクトに複数のセルが含まれている場合は、値の配列を返します (このケースについては、IsArray 関数を使用してテストします)。 |
| xlRangeValueXMLSpreadsheet | 11 | 指定した XML スプレッドシート形式のRangeオブジェクトの値、書式設定、数式、名前を返します。 |
| xlrangevaluemspersistxml | 12 | 指定した XML 形式のRangeオブジェクトのレコードセットの表示を返します。 今回のコピーでは使えません。 |
書式と言っても条件付き書式はコピーされません。
.PasteSpecial Paste:=xlPasteFormats
この場合は、条件付き書式もコピーされますので、これの代用にはなりません。
セル範囲をForで回して、一つずつのセルについて各プロパティをコピー先に値として代入するしかないです。
記述は簡単ですが、セル範囲が大きいと時間がかかってしまいますが、
一応、以下に各プロパティをコピーする場合のVBAコードを簡単に書いておきます。
Sub sample()
Call sample_sub(Range("A1:E10"), Range("G1"))
End Sub
Sub sample_sub(fromRange As Range, toRange As Range)
Dim i As Long
Dim j As Long
For i = 1 To fromRange.Rows.Count
For j = 1 To fromRange.Columns.Count
toRange.Cells(i, j).Value = fromRange.Cells(i, j).Value
toRange.Cells(i, j).NumberFormatLocal = fromRange.Cells(i, j).NumberFormatLocal
toRange.Cells(i, j).Interior.Color = fromRange.Cells(i, j).Interior.Color
toRange.Cells(i, j).Font.Color = fromRange.Cells(i, j).Font.Color
toRange.Cells(i, j).Font.Bold = fromRange.Cells(i, j).Font.Bold
Next
Next
End Sub
良く使うプロパティは、概ねこのあたりでしょう。
後は罫線がありますが、
これは四辺のプロパティを別々に記述しなければならず少々面倒ですね。
書式以外のコピー
セル範囲をForで回して、一つずつのセルの情報を取得しつつ、コピー先のセルに設定するしかありません。
条件付き書式や入力規則となるとかなり大変（いや、とんでもなく大変）なVBAになってしまいます。
クリップボードを消さないというだけのためとしては苦労が大きすぎて現実的とは思えません。
クリップボードを使わないセルのCopyのまとめ
セルの全情報
Range("A1").Copy Destination:=Range("B1")
値（Value）
Range("G1:K10").Value = Range("A1:E10").Value
値と「セルの書式設定」
Range("C1:C3").Value(xlRangeValueXMLSpreadsheet) = Range("A1:A3").Value(xlRangeValueXMLSpreadsheet)
クリップボードをどうしても残したままにしておきたい、かつ、セルの全情報をコピーしたいとなったら、
かなり大変だという事を理解してください。
同じテーマ「マクロVBA技術解説」の記事
標準モジュールとシートモジュールの違い
オートフィルタ（AutoFilter）の使い方まとめ
複雑な条件（複数除外等）のオートフィルター（AutoFilter）
クリップボードを使わないセルのCopy
Rangeの使い方：最終行まで選択を例に
フルパスをディレクトリ、ファイル名、拡張子に分ける
Colorプロパティの設定値一覧（カラー定数、XlRgbColor列挙）
VBAを定型文で覚えよう
VBAこれだけは覚えておきたい必須基本例文10
エクセルVBAでのシート指定方法
文字列結合&でコンパイルエラーになる理由
新着記事NEW ・・・新着記事一覧を見る
第5章：AI×VBAでつまづかない！トラブルシューティングとAIとの付き合い方
｜生成AI活用研究(2025-05-20)
第4章：【事例で学ぶ】AIとVBAでExcel作業を劇的に効率化する！
｜生成AI活用研究(2025-05-20)
第3章：AIを「自分だけのVBA先生」にする！質問・相談の超実践テクニック｜生成AI活用研究(2025-05-19)
第2章 VBAって怖くない！Excelを「言葉で動かす」（超入門）｜生成AI活用研究(2025-05-18)
第1章：AIって一体何？あなたのExcel作業をどう変える？（AI超基本）｜生成AI活用研究(2025-05-18)
AI時代のExcel革命：AI×VBAで“書かない自動化”超入門｜生成AI活用研究(2025-05-17)
Geminiと100本ノック 23本目：シート構成の一致確認｜生成AI活用研究（5月16日）
AIが問う出版の未来は淘汰か進化か：AIと書籍の共存の道とは｜生成AI活用研究(2025-05-16)
Geminiと100本ノック 22本目：FizzBuzz発展問題｜生成AI活用研究（5月15日）
すぐに使える！生成AI プロンプト作成 実践ガイド｜生成AI活用研究(2025-05-15)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.繰り返し処理（For Next)｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
5.ひらがな⇔カタカナの変換｜エクセル基本操作
6.RangeとCellsの使い方｜VBA入門
7.メッセージボックス(MsgBox関数)｜VBA入門
8.セルのクリア（Clear,ClearContents）｜VBA入門
9.FILTER関数（範囲をフィルター処理）｜エクセル入門
10.条件分岐（Select Case）｜VBA入門
- ホーム
- マクロVBA応用編
- マクロVBA技術解説
- クリップボードを使わないセルのCopy
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。