Функция удаления слов из текста, оставить только цифры в числовом формате - VBA

Формулировка задачи:

Здравствуйте, есть вопрос по дополнению функции, как сделать так, чтобы цифры получались не такими обычными а такими с пробелами после каждой 3 пример 2 521 3 745 821

                    Листинг программы
                
 
                        
                          
                    
Function IskluchitBukv(stroka As String) As String
    Dim i As Integer
    For i = 1 To Len(stroka)
        If InStr(1, "1234567890-", Mid(stroka, i, 1)) <> 0 Then _
            IskluchitBukv = IskluchitBukv & Mid(stroka, i, 1)
    Next
End Function

в числовом формате # ##0 пример 2 521 3 745 821

Решение задачи: «Функция удаления слов из текста, оставить только цифры в числовом формате»

textual
                            Листинг программы 
                        
Next
    IskluchitBukv = Format(IskluchitBukv, "# ### ### ##0")
End Function

Оцени полезность:

9 голосов , оценка 3.889 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы