Excel VBA（マクロ）「1つのセルの値を複数の別のセルに代入する方法」について超簡単解説！超初心者でもできるマクロ！

1 はじめに
2 Excel VBAとは？
3 1つのセルの値を複数のセルに代入する方法
4 マクロの説明
5 注意点
6 まとめ

はじめに

Excelは、データの整理や分析に非常に優れたツールですが、
特定の値を複数の場所にコピーする作業は繰り返しが多く、
時間がかかることがあります。
Excel VBA（Visual Basic for Applications）を使えば、
このような作業を簡単に自動化し、
効率良くデータを配布することが可能です。
この記事では、Excel VBAを使って
1つのセルの値を複数の別のセルに代入する方法について丁寧に解説します。

初心者でも理解できる様に
丁寧に説明していきます！

Excel VBAとは？

Excel VBAは、Excelの機能を拡張するプログラミング言語です。
VBAを利用することで、繰り返し行う作業を自動化し、
複雑なタスクを簡単にこなせるようになります。
VBAを学ぶことで、作業の効率が大幅に向上します。

1つのセルの値を複数のセルに代入する方法

Excel VBAでは、RangeオブジェクトのValueプロパティを使用して、
1つのセルの値を複数の別のセルに簡単に代入できます。
以下に、基本的なステップを紹介します。

ステップ1: VBAエディタを開く

Excelを開き、「開発」タブをクリックします。
「Visual Basic」アイコンをクリックしてVBAエディタを開きます。

ステップ2: 新しいマクロを作成

VBAエディタで、「挿入」メニューから「モジュール」を選択します。
新しいモジュールウィンドウが開きます。

ステップ3: マクロを記述

例として、セル”A1″の値をセル”B1″, “C1”, “D1″に代入する
マクロを以下に示します。

Sub DistributeCellValue()
    ' 値をコピーする元のセルを指定します。
    Dim sourceCell As Range
    Set sourceCell = Range("A1")
    
    ' 値を代入する先のセルを指定します。
    Dim targetCells As Range
    Set targetCells = Range("B1, C1, D1")
    
    ' 元のセルの値を複数の先のセルに代入します。
    targetCells.Value = sourceCell.Value
End Sub

このコードでは、RangeオブジェクトのValueプロパティを使って、
指定した1つのセルの値を複数の別のセルに代入しています。