CB
Cvetic B
Увеличить
а вот код:
Sub ppp()
Cells.ClearContents
sss = "aaa;bbb;ccc;ddd"
slovo = ""
kk = 1
For ii = 1 To Len(sss)
bb = Mid(sss, ii, 1)
If bb = ";" Or ii = Len(sss) Then
If ii = Len(sss) Then
slovo = slovo + bb
End If
Cells(1, kk) = slovo
kk = kk + 1
slovo = ""
Else
slovo = slovo + bb
End If
Next ii
End Sub
В таблицу ворд? Сделайте лучше таблицу ексель, заполните ее как вам надо и скопируйте в ворд. Более приемлемое и простое решение.