【VBA】2つのセルの内容を組み合わせて別のセルに出力する

2016/10/06 2017/02/26

VBA

コード内容

セル内のデータが改行で区切られている場合

2つのセルの内容(セルAに入力している内容とセルBに入力している内容)を組み合わせてセルCに出力するマクロです。

最初の例として紹介するのはA列、B列に入力している内容は改行(vbLf)で区切ってある場合です。

アメリカ産
日本産
ベトナム産

りんご
みかん
バナナ

アメリカ産りんご
アメリカ産みかん
アメリカ産バナナ
日本産りんご
日本産みかん
日本産バナナ
ベトナム産りんご
ベトナム産みかん
ベトナム産バナナ

こんな感じで変換することが目的です。

2つのセル内にある改行で区切りられているデータの掛け合わせ(組み合わせ)パターンを別のセルに出力する場合のマクロを先に紹介します。

たぶんこのパターンが一番やっかい……といか困っている方が多いと思うので。


Option Explicit

Sub Program1()

 Dim a() As String
 Dim b() As String
 Dim temp As String
 Dim i As Integer
 Dim j As Integer
 Dim k As Long
 Dim MaxRow As Long
 
 MaxRow = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
 
 For k = 1 To MaxRow
 
 a = Split(Range("A" & k), vbLf)
 b = Split(Range("B" & k), vbLf)
 
 temp = ""
 
 For i = 0 To UBound(a)
 For j = 0 To UBound(b)
 
 temp = temp & a(i) & " " & b(j) & vbLf

 Next j
 Next i
 
 If Range("B" & k).Value = "" Then
 Cells(k, 3).Value = Cells(k, 1).Value
 ElseIf Range("A" & k).Value = "" Then
 Cells(k, 3).Value = Cells(k, 2).Value
 Else
 Cells(k, 3).Value = Left(temp, Len(temp) - 1)
 End If
 
 Next k


End Sub

セル内のデータが@(アットマーク)や／(スラッシュ)で区切られている場合

今度は改行コードではなく@でデータ区切られている場合のコードを例として載せておきます。


Option Explicit

Sub Program2()

 Dim a() As String
 Dim b() As String
 Dim temp As String
 Dim i As Integer
 Dim j As Integer
 Dim k As Long
 Dim MaxRow As Long
 
 MaxRow = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
 
 For k = 1 To MaxRow
 
 a = Split(Range("A" & k), "@")
 b = Split(Range("B" & k), "@")
 
 temp = ""
 
 For i = 0 To UBound(a)
 For j = 0 To UBound(b)
 
 temp = temp & a(i) & " " & b(j) & "@"

 Next j
 Next i
 
 If Range("B" & k).Value = "" Then
 Cells(k, 3).Value = Cells(k, 1).Value
 ElseIf Range("A" & k).Value = "" Then
 Cells(k, 3).Value = Cells(k, 2).Value
 Else
 Cells(k, 3).Value = Left(temp, Len(temp) - 1)
 End If
 
 Next k


End Sub

上のコードの@の部分をスラッシュや全角スペース等に変えることでいろんな区切り文字に対応できます。