（前略） 
・ 
・ 
・ 

'変数定義部分 
'都道府県名をあらかじめ配列に格納 
Dim Address As Variant 
'ループ内で現在読み込んでいるセルの文字列
Dim AreaNow As String

Address = Array("北海道","青森","岩手",　…（省略）…　,"鹿児島","沖縄") 

'マクロで処理する人数（＝行数）を決定する 

・ 
・ 
・ 
（中略） 
・ 
・ 
・ 

'ここが外側のループの起点 
For i=1 To ninzuu Step 1 

'ここから内側のループ 
For j=0 To 46 Step 1 
AreaNow = Cells(myRow, j+4) 

'セルに○か◎が入っていたら Then以下の分岐を実行 
If AreaNow = "○" Or AreaNow = "◎" Then 

'Result文字列が空白でないなら "、"を出力 
If Result <> "" Then 
Result = Result + "、" 
Else 
End If 

'都道府県名を文字列に加算 
If AreaNow = "○" Then 
Result = Result + Address(j) 
ElseIf AreaNow = "◎" Then 
Result = Result + Address(j) + "☆" 

'（この文は多分処理されないはずだけど） 
'もし"○","◎"以外の値が入っていたら 入力が不正 
Else 
Result = "どこかの入力値が間違ってるよ！" 
End If 

Else 
End If 

'ここまで内側のループ 
Next j 

'結果欄に出力する。 

・ 
・ 
・ 
（後略）