Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Разбиение ряда цифр символом "*"
 
#1
31.08.2017 16:23:09
Добрый день всем!
Есть такая простая задача. Есть цифры 6-12 значные без пробелов и знаков.
Итог должнен получится следующим: *1*2*4*5*6*7*8*9*2*3*
Спасибо за помощь!

Файл во вложении.
Изменено: Наталия Литовченко - 31.08.2017 16:35:44
 
 
 
#2
31.08.2017 16:47:35
Цитата
Наталия Литовченко написал:
Есть такая простая задача
Если такая простая, то почему сами не решили? А если не можете, то почему утверждаете, что простая?
Код
Function StrToSnow(i$)
    StrToSnow = "*" & Format$(i, Trim$(Replace$(Space$(Len(i)), " ", "@\*")))
End Function
Я сам - дурнее всякого примера! ...
 
 
 
#3
31.08.2017 16:56:29
В общий модуль:
Код
Function NumStar(r As Range)
Dim sStr As String
Dim i As Long
    For i = 1 To Len(r.Value)
        sStr = sStr & "*" & Mid$(r.Value, i, 1)
    Next i
    
    NumStar = sStr & "*"
End Function

В ячейку:
=NumStar(B2)
 
 
 
#4
31.08.2017 17:00:57
Спасибо большое за помощь!

P.S. Я имела в виду задача с простым (незакрученным) условием, в не с простым ее решением.
Спасибо еще раз!
 
 
 
#5
31.08.2017 17:14:43
еще вариант функции
Код
Function vvv$(t$)
  With CreateObject("VBScript.RegExp"): .Pattern = ".": .Global = True
  vvv = .Replace(t, "*$&") & "*"
  End With
End Function
Изменено: sv2013 - 31.08.2017 17:14:58
 
 
 
#6
31.08.2017 18:04:39
Формулой
="*"&ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ТЕКСТ(B2;"#\ #\ #\ #\ #\ #\ #\ #\ #\ #\ #\ #\ #\ #\ #"));" ";"*")&"*"
="*"&ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ТЕКСТ(B2;ПОВТОР("#\ ";15)));" ";"*")&"*"
Изменено: _Boroda_ - 01.09.2017 09:35:53
Скажи мне, кудесник, любимец ба’гов...
 
 
 
#7
31.08.2017 18:35:09
Цитата
Наталия Литовченко написал:
с простым ее решением
Код
=СЦЕПИТЬ("*";ПСТР(A1;1;1);"*";ПСТР(A1;2;1);"*";ПСТР(A1;3;1);"*";ПСТР(A1;4;1);"*";ПСТР(A1;5;1);"*";ПСТР(A1;6;1);"*")
 
 
 
#8
01.09.2017 09:44:36
Не, с #\ ведущий ноль пропадает. Вот так лучше будет
Код
="*"&ТЕКСТ(B2;ПОВТОР("0\*";ДЛСТР(B2)))
Скажи мне, кудесник, любимец ба’гов...
 
 
 
#9
01.09.2017 09:51:32
Ух, красиво!
 
 
 
#10
01.09.2017 11:14:40
Код
="*"&ТЕКСТ(ПСТР(A2;СТРОКА(ДВССЫЛ("A2:A"&ДЛСТР(A2)));12);ПОВТОР("0\*";ДЛСТР(A2)))
 
 
 
Страницы: 1
Наверх