抽選機を作りひなフェスユニットを作成した

Sub RandomNumbersToColumns()
Dim numbers(1 To 68) As Integer
Dim i As Integer
Dim j As Integer
Dim temp As Integer
Dim rndIndex As Integer

For i = 1 To 68
numbers(i) = i
Next i

Randomize
For i = 68 To 2 Step -1
rndIndex = Int(Rnd * i) + 1
temp = numbers(i)
numbers(i) = numbers(rndIndex)
numbers(rndIndex) = temp
Next i

For i = 1 To 32
Cells(1, i).Value = numbers(i)
Next i
End Sub

初日 ソロ 松本わかな
トリオ 生田衣梨奈　後藤花　小林萌花
カルテット 工藤由愛　里吉うたの　八木栞　上村麗菜

2日目 ソロ 高瀬くるみ
デュオ 橋田歩果　羽賀朱音
クインテット 弓桁朱琴　平山遊季　遠藤彩加里　筒井澪心　相馬優芽

3日目 ソロ　石井泉羽
デュオ 豫風瑠乃　広本瑠璃
クインテット 山﨑愛生　川名凜　下井谷幸穂　江端妃咲　前田こころ　

4日目 ソロ　江口紗耶
トリオ 窪田七海　為永幸音　小野田紗栞
カルテット 牧野真莉愛　横山玲奈　石山咲良　中山夏月姫　

1-1　小林萌花
米村姫良々　橋田歩果　川嶋美楓
植村葉純　斉藤円香　島川波菜　豫風瑠乃

1-2　秋山眞緒
松永里愛　下井谷幸穂
高瀬くるみ　相馬優芽　橋迫鈴　吉田姫杷　前田こころ

2-1　北原もも
西田汐里　中山夏月姫
河西結心　横山玲奈　有澤一華　小野田紗栞　山﨑愛生

2-2　伊勢鈴蘭
岡村美波　上村麗菜　石井泉羽
生田衣梨奈　後藤花　川名凜　松原ユリヤ

モ3ア5ジ3つ5ビ5オ4ロ7