>>409>>410 どういう問題があるのか教えていただけませんか?
Result = Result & " " & List1.List(N)と同じ効果で、
もっと高速な書き方があるなら、教えていただけませんか?

>>414>>423書き込み回数も文字数も行数も制限されているので
インデントや改行は勘弁してください。