Код, указанный в этой статье , использует сортировку пузырьков
Sub SortCollection()
Dim cFruit As Collection
Dim vItm As Variant
Dim i As Long, j As Long
Dim vTemp As Variant
Set cFruit = New Collection
'fill the collection
cFruit.Add "Mango", "Mango"
cFruit.Add "Apple", "Apple"
cFruit.Add "Peach", "Peach"
cFruit.Add "Kiwi", "Kiwi"
cFruit.Add "Lime", "Lime"
'Two loops to bubble sort
For i = 1 To cFruit.Count - 1
For j = i + 1 To cFruit.Count
If cFruit(i) > cFruit(j) Then
'store the lesser item
vTemp = cFruit(j)
'remove the lesser item
cFruit.Remove j
're-add the lesser item before the
'greater Item
cFruit.Add vTemp, vTemp, i
End If
Next j
Next i
'Test it
For Each vItm In cFruit
Debug.Print vItm
Next vItm
End Sub
Хорошо то, что Вы, вероятно, хотите, будет, обеспечивают Вам результатом:
в CSS:
отделение {количество столбцов: 2;}
в HTML:
< отделение> некоторый текст, bla bla bla < / отделение>
В CSS Вы делаете отделение для разделения абзаца на столбце, можно сделать их 3, 4...
, Если Вы хотите иметь многих другой параграф как этот, затем поместите идентификатор или класс в Вашем отделении: