For i = 0 To CountABC - 1 If ArrayOfABC(i).先頭が” Xor ArrayOfABC(i).最後尾が” Then If ArrayOfABC(i).先頭が” Then If i < CountABC - 1 Then Temp &= ArrayOfABC(i) ”あり = True Else ABCList.Add(ArrayOfABC(i)) End If Else If i <> 0 Then Temp &= CStr(Comma & ArrayOfABC(i)) ABCList.Add(Temp) ”あり = False Else ABCList.Add(ArrayOfABC(i)) End If End If ElseIf ”あり Then Temp &= CStr(Comma & ArrayOfABC(i)) Else ABCList.Add(ArrayOfABC(i)) End If Next