Убить елемент массива

  • Автор темы Guest
  • Дата начала
G

Guest

#1
Работаю на VBA Excel и не нахожу в синтаксисе макросов в команде Erase тегов или команды FullTrim относительно массива.....как убить елемент массива с значением "".Подскажите плиз.
 
V

Vlanib

#2
На сколько мне известно в VBA, впрочем как и в VB, нет собственных классов для работы с массивами,
кроме Collection. Поэтому придется всё ручками.
Вот, как один из вариантов, пример подобной сортировки с применением второго динамического массива:

[codebox]
Sub MyArr()
Dim sOriginalArr(10) As String 'Массив для примера
Dim sSortArr() 'Объявляем динамический массив
Dim i As Integer, j As Integer
For i = 0 To 9 'Заполняем массив для примера
sOriginalArr(i) = Str(i)
Next
sOriginalArr(3) = "" 'Вот два пустых значения
sOriginalArr(7) = ""
For i = 0 To UBound(sOriginalArr)
If Not sOriginalArr(i) = "" Then 'А вот сравнение в цикле с ""
j = j + 1
ReDim Preserve sSortArr(j) 'И инициализация динамич. массива
sSortArr(j - 1) = sOriginalArr(i) 'уже сортированными значениями.
End If
Next
End Sub
[/codebox]