такой вариант:
Код |
---|
Function cipcip$(ByVal sval$, sdel$)
Dim asdel&: asdel = AscW(sdel)
Do While AscW(sval) = asdel
sval = Right$(sval, Len(sval) - 1)
Loop
cipcip = sval
End Function
|
время перехода при обработке данных (1 миллион строк) в переменной массива:
"всасывание" данных в массив: 0,2 s
удаление символов: 1,4 s
ввод данных в лист: 5,4 s
запуск/вызов (?) функции (на основе одного символа - не подходит для "смешанных символов", таких как: Xa, Xx, и т. д.):
Код |
---|
Sub picpic()
Dim t!: t = Timer
Const strd$ = "X"
Dim a, i&
With ActiveSheet
a = .Range("A1:A" & .Cells(.Rows.Count, "A").End(xlUp).Row).Value
End With
'Debug.Print Round(Timer - t, 3)
For i = 1 To UBound(a, 1)
a(i, 1) = cipcip(a(i, 1), strd)
Next
'Debug.Print Round(Timer - t, 3)
With ActiveSheet
.Range("B1:B" & i - 1).Value = a
End With
'Debug.Print Round(Timer - t, 3)
End Sub
|