【Excel】VBAマクロを用いた結合セルへのデータ入力法（Range、Cellsの操作方法）【MergeArea、Value、Offset】

本稿では、VBAマクロを活用して結合セルにデータを入力する手順（Range、Cellsの操作方法）【MergeArea、Value、Offset】について紹介します。

主な手順は以下の通りです。

・Range関数またはCells関数を用いて、対象の結合セルを特定します。

・MergeArea関数を使って、結合された範囲を確認します。

・Value関数を利用して、データを挿入します。

この解説では、特に初心者の方が理解しやすいよう、変数名を一風変わったものに設定しています。実際に使用する際には、これをより適切でわかりやすい英語の変数名に変更してください。

それでは、具体的な操作方法を詳しく見ていきましょう！

B列の結合セルに数字を設定するVBAマクロの使い方（例：8の挿入）
シート全体の結合セルに上部セルのデータをコピーするVBAマクロ
シート全体の結合セルに上部セルのデータをコピーするVBAマクロ
総括：結合セルへの値の入力方法（VBAマクロのRange、Cells活用法）【MergeArea、Value、Offset】

B列の結合セルに数字を設定するVBAマクロの使い方（例：8の挿入）

このセクションでは、VBAマクロを使用して特定の列にある結合セルに数字を挿入する方法についてご説明します。

今回の例では、B列にある結合セルに数字「8」を設定する手順を取り上げます。

まず、Alt + F11キーでVBEエディタを開き、以下のスクリプトをコピー＆ペーストしてください。

Sub aaaaaBretsugoukankiaaaaa()

‘B列の行数を取得
Dim aaaaalastRowaaaaa As Long
aaaaalastRowaaaaa = Cells(Rows.Count, “B”).End(xlUp).Row

‘B列の1行目から最終行まで繰り返し処理
Dim aaaaagyouaaaaa As Long
For aaaaagyouaaaaa = 1 To aaaaalastRowaaaaa

‘セル範囲がマージ範囲かどうかチェック
If Not Range(“B” & aaaaagyouaaaaa).MergeCells Then
‘非結合セルの場合は次の行へ
GoTo NextGyou
End If

‘マージ範囲の左上セルに8を入れる
Range(“B” & aaaaagyouaaaaa).MergeArea.Cells(1, 1).Value = 8

NextGyou:
Next aaaaagyouaaaaa

End Sub

以下はコピー＆ペーストしなくてよいです。

“`vba
Sub InsertValueIntoMergedCells()

‘B列の総行数を取得
Dim totalRows As Long
totalRows = Cells(Rows.Count, “B”).End(xlUp).Row

‘B列の最初の行から最終行までループ
Dim currentRow As Long
For currentRow = 1 To totalRows

‘現在のセルが結合されているかを確認
If Not Range(“B” & currentRow).MergeCells Then
‘結合されていない場合は次の行へ
GoTo SkipRow
End If

‘結合されたセルの左上のセルに「8」を設定
Range(“B” & currentRow).MergeArea.Cells(1, 1).Value = 8

SkipRow:
Next currentRow

End Sub
“`

このコードは、B列にある結合されたセルに対して値「8」を設定するものです。

キーボードのAlt+F8を使用し、表示されるマクロ選択画面から`aaaaaBretsugoukankiaaaaa`マクロを起動してください。

このマクロには以下のような処理ステップが含まれています。

1. B列の最終行を特定し、その行番号を`aaaaalastRowaaaaa`変数に保存します。

2. `aaaaagyouaaaaa`変数を使い、1から`aaaaalastRowaaaaa`までの各行に対して次の操作を行います。

3. 指定された行のB列が結合されているかどうかを`MergeCells`プロパティでチェックします。

4. 結合されていないセルの場合、`NextGyou`ラベルにジャンプして次の行へ進みます。

5. 結合されているセルの場合、`MergeArea`プロパティでその範囲を取得し、左上のセル(`Cells(1, 1)`)に値「8」を設定します。

このプロセスにより、B列の結合されたセルにのみ値「8」が入力されることになります。

シート全体の結合セルに上部セルのデータをコピーするVBAマクロ

次に、Excelシートにおける全結合セルにその直上のセルの値を自動で入力する方法をご紹介します。

Alt + F11キーでVBEエディタを開き、以下のコードを挿入してください。

Sub aaaaazensheetsウエセルいれるaaaaa()

‘全シートを処理
Dim aaaaamySheetaaaaa As Worksheet
For Each aaaaamySheetaaaaa In ThisWorkbook.Sheets

With aaaaamySheetaaaaa
‘処理対象シートのセル範囲を取得
Dim aaaaaallRangeaaaaa As Range
Set aaaaaallRangeaaaaa = .Cells.SpecialCells(xlCellTypeConstants)

‘取得したセル範囲から結合セルのみ抽出
Dim aaaaamergedRangeaaaaa As Range
For Each aaaaamergedRangeaaaaa In aaaaaallRangeaaaaa
If aaaaamergedRangeaaaaa.MergeCells Then
‘結合セルの1つ上のセルの値を取得
Dim aaaaaueセルちaaaaa As Range
Set aaaaaueセルちaaaaa = aaaaamergedRangeaaaaa.MergeArea.Cells(1, 1).Offset(-1, 0)

‘結合セル全体に上のセルの値を設定
aaaaamergedRangeaaaaa.MergeArea.Value = aaaaaueセルちaaaaa.Value
End If
Next aaaaamergedRangeaaaaa

End With

Next aaaaamySheetaaaaa

End Sub

以下はコピー＆ペーストしなくてよいです。

“`vba
Sub CopyValuesToMergedCells()

‘全てのシートを処理
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets

With ws
‘シートの全セル範囲を取得
Dim allCells As Range
Set allCells = .Cells.SpecialCells(xlCellTypeConstants)

‘結合セルのみを対象に処理
Dim mergedCell As Range
For Each mergedCell In allCells
If mergedCell.MergeCells Then
‘結合セルの上のセルから値を取得
Dim valueAbove As Range
Set valueAbove = mergedCell.MergeArea.Cells(1, 1).Offset(-1, 0)

‘結合セル全体に上のセルの値を設定
mergedCell.MergeArea.Value = valueAbove.Value
End If
Next mergedCell

End With

Next ws

End Sub
“`

このスクリプトは、各シートの結合セルについて、その一つ上のセルの値をコピーして、結合セル全体に設定します。

シート全体の結合セルに上部セルのデータをコピーするVBAマクロ

次に、Excelシートにおける全結合セルにその直上のセルの値を自動で入力する方法をご紹介します。

Alt + F11キーでVBEエディタを開き、以下のコードを挿入してください。

以下はコピー＆ペーストしなくてよいです。

“`vba
Sub CopyValuesToMergedCells()

‘全てのシートを処理
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets

With ws
‘シートの全セル範囲を取得
Dim allCells As Range
Set allCells = .Cells.SpecialCells(xlCellTypeConstants)

‘結合セルのみを対象に処理
Dim mergedCell As Range
For Each mergedCell In allCells
If mergedCell.MergeCells Then
‘結合セルの上のセルから値を取得
Dim valueAbove As Range
Set valueAbove = mergedCell.MergeArea.Cells(1, 1).Offset(-1, 0)

‘結合セル全体に上のセルの値を設定
mergedCell.MergeArea.Value = valueAbove.Value
End If
Next mergedCell

End With

Next ws

End Sub
“`