Дана строка, ограниченная точкой, в которой слова разделены одним или несколькими пробелами. напечатать все слова, отличные от последнего слова, предварительно преобразовав каждое из них по следующему правилу: перенести последнюю букву в начало слова.
Нужно сделать Excel/ VBA
' пусть строка находится в клетке А1, слова будем выводить во 2-ю строку
sub ppp()
kk = 1
slovo = ""
stroka = cells(1,1)
for ii = 1 to len(stroka)
if mid(stroka,ii,1) = " " then
if len(slovo) > 2 then
slovo = right(slovo,1)+mid(slovo,2)
cells(2,kk) = slovo
kk = kk+1
slovo = ""
endif
elseif mid(stroka,ii,1) = ". " then
if len(slovo) > 2 then
slovo = right(slovo,1)+mid(slovo,2)
cells(2,kk) = slovo
kk = kk+1
slovo = ""
endif
exit for
else
slovo = slovo+mid(stroka,ii,1)
endif
next ii
end sub
⇢