先日、クイックソートを載せたので、今回は挿入ソートです。 今回もCollection使ってます。コメントが無いのはすみません。 Private Sub InsertionSortTest() Dim temp As Collection Dim i As Long Set temp = New Collection temp.Add 4 temp.Add 3 temp.A…