доброго времени, подскажите:допустим у меня в ячейке 5 слов, нужно получить пять ячеек в которых находятся эти слова но без гласных букв.

строку по словам через пробел нет проблем разбить:


Sub slovo()
Dim a, b, c As String
Dim i, j, k, l As Integer
Dim bol As Boolean
a = b = c = ""
i = 1
k = l = 0
j = 0

Do While ActiveWorkbook.ActiveSheet.Range("B" & i).Value <> ""
a = ActiveWorkbook.ActiveSheet.Range("D" & i).Value
b = " "
j = InStr(1, a, b)
If j = 0 Then ActiveWorkbook.ActiveSheet.Range("G" & i).Value = a
If j <> 0 Then k = InStr(j + 1, a, b)
If k <> 0 Then ActiveWorkbook.ActiveSheet.Range("G" & i).Value = Mid(a, 1, k - 1)
l = InStr(j + k + 1, a, b)
If l = 0 Then ActiveWorkbook.ActiveSheet.Range("G" & i).Value = a
If l <> 0 Then ActiveWorkbook.ActiveSheet.Range("G" & i).Value = Mid(a, 1, l - 1)
i = i + 1
Loop
MsgBox ("YEP")
End Sub

а вот в словах удалить гласные не знаю как... может по коду символов, подскажите

про сплит не слышал, сейчас одним глазом глянул - я не совсем понял как это работает.
когда по пробелам разделяешь там нет пролем с переменный кол-вом слов.. а у сплит?

по поводу удаления по самим буквам - буквы могут быть русс+англ...
(у меня не так много опыта, прошу прощения за неточности)

осложняется всё ещё тем что у меня столбец порядка 25000 ячеек, в этих ячейках разное кол-во слов.. а должны получиться просто слова, каждое в своей ячейке и без гласных букв

спасибо большое, чуть доработал и всё отлично :)