Удаление из строки нечисловых символов - VB
Формулировка задачи:
Есть у меня числовая строчка в которой могут быть не только число, но и другие символы и буквы, так вот мне надо их всех удалить, что то я вроде сделала...но как дальше быть незнаю, помогите пожалуйста.
Здесь я хотела удалить из строки все нечисловые символы
l = Len(Trim(ThisWorkbook.Worksheets("Итого").Cells(i + 1, 8))) ' определяем длину строки
st = Trim(ThisWorkbook.Worksheets("Итого").Cells(i + 1, 8)) ' сама строка без пробелов справа и слева
For k = 1 To l
If Mid(st, k, 1) <> 0 And Mid(st, k, 1) <> 1 And Mid(st, k, 1) <> 2 And Mid(st, k, 1) <> 3 And Mid(st, k, 1) <> 4 And Mid(st, k, 1) <> 5 And Mid(st, k, 1) <> 6 And Mid(st, k, 1) <> 7 And Mid(st, k, 1) <> 8 And Mid(st, k, 1) <> 9 Then
Mid(st, k, 1) = ""
End If
Next k
Здесь я хотела удалить из строки все нечисловые символы
l = Len(Trim(ThisWorkbook.Worksheets("Итого").Cells(i + 1, 8))) ' определяем длину строки
st = Trim(ThisWorkbook.Worksheets("Итого").Cells(i + 1, 8)) ' сама строка без пробелов справа и слева
For k = 1 To l
If Mid(st, k, 1) <> 0 And Mid(st, k, 1) <> 1 And Mid(st, k, 1) <> 2 And Mid(st, k, 1) <> 3 And Mid(st, k, 1) <> 4 And Mid(st, k, 1) <> 5 And Mid(st, k, 1) <> 6 And Mid(st, k, 1) <> 7 And Mid(st, k, 1) <> 8 And Mid(st, k, 1) <> 9 Then
Mid(st, k, 1) = ""
End If
Next k
Решение задачи: «Удаление из строки нечисловых символов»
textual
Листинг программы
<font color="blue">Sub</font> tt() p = <font color="teal">"12345678901234567890123456"</font> Cells(<font color="darkblue"><b>1</b></font>, <font color="darkblue"><b>8</b></font>).NumberFormat = <font color="teal">"@"</font> Cells(<font color="darkblue"><b>1</b></font>, <font color="darkblue"><b>8</b></font>) = p <font color="blue">End</font> <font color="blue">Sub</font>