VBAを使用したセルの組み合わせによる商品管理番号の作成方法

質問

• VBAを使ってセルの組み合わせにより商品管理番号を作成する方法について考えています。手動では大変なためVBAを使用したいと思っていますが、組み合わせなのか順列なのかがわからず、どのようにVBAを記述すれば良いか悩んでいます。
• 商品管理番号を作成するためには、セルの組み合わせが必要です。具体的な例として、セルAの値が11から14までの範囲で、セルBの値がAからFまでの範囲で変化するとします。この場合、11A1、11A2、12A1、12A2、・・・14A6のような商品管理番号を作成する必要があります。
• VBAを活用することで、セルの組み合わせにより商品管理番号を生成することが可能です。具体的な方法は、for文やネストしたfor文を使用してセルAとセルBの値を組み合わせ、連結して商品管理番号を作成することです。こうすることで手動では大変な作業を効率的に行うことができます。ただし、変数の数やfor文のネストの仕方については、状況によって異なるため柔軟に対応する必要があります。

回答No.2

K Kazz（@JazzCorp）

'データシートで実行（＝アクティブシート）
'空いているセルなら出力シート＝データシートでも構わない
'空白セルはスキップ

Sub OneWithTwo()
Const xName = "Sheet2" '出力シート
Const xBase_To = "A2" '出力の基点
Const xBase_From = "B1" 'データの基点
Dim xNum As Long
Dim xNum2 As Long
Dim jj As Long
Dim kk As Long
Dim mm As Long
Dim mm2 As Long
Dim nn As Long
Dim xSheet As Worksheet

Set xSheet = Worksheets(xName)
xSheet.Columns(1).Clear
With ActiveSheet
nn = 0
mm = Range(xBase_From).Row
mm2 = Range(xBase_From).Column
xNum=Cells(mm, Columns.Count).End(xlToLeft).Column-mm2+1
For jj = 0 To xNum
If (Range(xBase_From).Offset(, jj) <> Empty) Then
xNum2=Cells(mm + 1, Columns.Count).End(xlToLeft).Column-mm2+1
For kk = 0 To xNum2
If (Range(xBase_From).Offset(1, kk) <> Empty) Then
xSheet.Range(xBase_To).Offset(nn) = Range(xBase_From).Offset(, jj) & Range(xBase_From).Offset(1, kk)
nn = nn + 1
End If
Next kk
End If
Next jj
End With
Worksheets(xName).Select
End Sub

お礼

回答ありがとうございました。
先の方がありましたので、ベストにはできなかったこと、ご了承ください。