Excel VBAを利用して、コードが記述されている現在のシートからデータを選択し、別のワークシートにそのデータを転記する手順は、データの同期やレポート作成に役立ちます。以下のステップとスクリプトは、このプロセスを効率的に実行する方法を説明します。
Excel VBAで現在のシートの値を別のシートに貼り付ける方法
1: ワークシートの準備
コードが記述されている現在のシートをソースシートとして使用し、データの目的地となるターゲットシートを定義します。
Sub CopyValuesFromCurrentToAnotherSheet()
Dim sourceWs As Worksheet
Set sourceWs = ThisWorkbook.ActiveSheet ' コードが記述されているシートをソースとする
Dim targetWs As Worksheet
Set targetWs = ThisWorkbook.Sheets("TargetSheet") ' 転記先のシートを指定
2: データのコピーと貼り付け
現在のシートから必要な範囲を選択し、指定した別のシートにデータを貼り付けます。この例では、A1からC10の範囲を使用します。
' 現在のシートのA1:C10からデータをコピーして、ターゲットシートのA1に貼り付ける
Dim copyRange As Range
Set copyRange = sourceWs.Range("A1:C10")
Dim targetRange As Range
Set targetRange = targetWs.Range("A1")
' 値のみを貼り付ける
targetRange.Resize(copyRange.Rows.Count, copyRange.Columns.Count).Value = copyRange.Value
【VBA】貼り付け操作【値・数式・書式・行列の転置・加算貼り付けなど】
3: クリップボードをクリア
コピー＆ペースト操作後にクリップボードをクリアすることは、不要なメモリ使用を避けるために重要です。
Application.CutCopyMode = False
End Sub
■特徴と利点
- 効率性
直接.Valueプロパティを使用して値を転記することで、処理の速度と効率が向上します。 - 精度
データの精度を維持しながら、必要な情報のみを迅速に別のシートに転記します。 - 簡潔さ
コードがシンプルで、読みやすく、保守が容易です。
まとめ
Excel VBAを使用して現在のシートから別のシートにデータを転記する方法は、データ整理や情報の共有に非常に有用です。上記の方法を活用することで、複雑なデータ操作をシンプルかつ効率的に行うことが可能です。