Новости:

Из правил форума: Тема должна отражать суть вопроса, топики типа "help please" будут удаляться!

Главное меню

Разбить ячейки точками

Автор westibolm, 12.02.2011, 22:00

« назад - далее »

westibolm

Есть например ячейка со значение "привет" мне надо её разбить точками то есть должно получиться столблец такого вида
привет
п.ривет
пр.ивет
при.вет
......
п.р.и.в.е.т а так должно закончиться.
Такое можно реализовать в Excel??

ZORRO2005

Яндекс-деньги: 410011658492153

GWolf

А мне показалось, что вот так:

Sub pointami()
    Dim nRTo As Integer, nR As Integer
    Dim stroka1 As String, stroka2 As String, stroka3 As String, k As String
   
    nRTo = 1
    nR = 1
    Do
        stroka1 = Cells(nR, 1).Text
        stroka2 = ""
        stroka3 = 0
        i = 0
        For i = 1 To Len(stroka1)
            k = Mid(stroka1, i, 1)
            uR = Right(stroka1, Len(stroka1) - i)
            stroka2 = stroka2 & k & "."
            stroka3 = stroka2 & uR
           
            MsgBox stroka2 & Chr(10) & _
                   stroka3, vbInformation + vbOKOnly, stroka1
           
            Cells(nRTo, 3) = stroka3
            nRTo = nRTo + 1
            stroka3 = ""
        Next i
        nR = nR + 1
    Loop While Cells(nR, 1).Text <> ""
End Sub
Путей к вершине - множество. Этот один из многих!

Wasilic

#3
Ну, или так!
Может и я на что сгожусь ... Если сгодился, можете меня по+благодарить+.