エクセル VBA で複数のセルのデータを連結してセル A1 に表示するプログラムを変更する

複数のセルのデータを連結してセル A1 に表示する VBA プログラムは、さまざまな方法で記述できます。ここでは、いくつかの例と、それぞれの変更点について解説します。

1. 連結するセル範囲を指定する場合

VBA

Sub 複数のセルを連結してA1に表示()

  Dim targetRange As Range
  Dim cell As Range
  Dim result As String

  ' 連結するセル範囲を指定 (例: A2:A10)
  Set targetRange = Range("A2:A10")

  ' 各セルの値を連結
  For Each cell In targetRange
    result = result & cell.Value
  Next cell

  ' 連結した文字列をセル A1 に表示
  Range("A1").Value = result

End Sub

変更点:

• Set targetRange = Range("A2:A10") の部分で、連結したいセル範囲を変更します。例えば、B1:B5 を連結したい場合は、Set targetRange = Range("B1:B5") と記述します。

2. 連結するセル範囲を可変にする場合

VBA

Sub 複数のセルを連結してA1に表示_可変()

  Dim startCell As Range
  Dim endCell As Range
  Dim cell As Range
  Dim result As String

  ' 連結するセル範囲の開始セルと終了セルを指定 (例: A2 と A10)
  Set startCell = Range("A2")
  Set endCell = Range("A10")

  ' 各セルの値を連結
  For Each cell In Range(startCell.Address, endCell.Address)
    result = result & cell.Value
  Next cell

  ' 連結した文字列をセル A1 に表示
  Range("A1").Value = result

End Sub

変更点:

• Set startCell = Range("A2") と Set endCell = Range("A10") の部分で、連結したいセル範囲の開始セルと終了セルをそれぞれ指定します。

3. 連結するセルの間に区切り文字を入れる場合

VBA

Sub 複数のセルを連結してA1に表示_区切り文字あり()

  Dim targetRange As Range
  Dim cell As Range
  Dim result As String
  Dim delimiter As String

  ' 連結するセル範囲を指定 (例: A2:A10)
  Set targetRange = Range("A2:A10")

  ' 区切り文字を指定 (例: ",")
  delimiter = ","

  ' 各セルの値を連結 (最初のセル以外は区切り文字を追加)
  For Each cell In targetRange
    If cell.Address = targetRange.Cells(1).Address Then
      result = cell.Value
    Else
      result = result & delimiter & cell.Value
    End If
  Next cell

  ' 連結した文字列をセル A1 に表示
  Range("A1").Value = result

End Sub

変更点:

• delimiter = "," の部分で、連結するセルの間に挿入したい区切り文字を指定します。例えば、" " (空白) を入れたい場合は、delimiter = " " と記述します。

4. 空白セルを無視する場合

VBA

Sub 複数のセルを連結してA1に表示_空白無視()

  Dim targetRange As Range
  Dim cell As Range
  Dim result As String

  ' 連結するセル範囲を指定 (例: A2:A10)
  Set targetRange = Range("A2:A10")

  ' 各セルの値を連結 (空白セルは無視)
  For Each cell In targetRange
    If cell.Value <> "" Then
      result = result & cell.Value
    End If
  Next cell

  ' 連結した文字列をセル A1 に表示
  Range("A1").Value = result

End Sub

変更点:

• If cell.Value <> "" Then の条件式によって、空白セルを連結処理から除外しています。

その他

• これらの例を参考に、ご自身のニーズに合わせてコードを修正してください。
• エラー処理や、連結するセルのデータ型によっては追加の処理が必要になる場合があります。

ご不明な点がありましたら、お気軽にご質問ください。