удалить стороку в массиве

[sn00p]

всем дня доброго.
имею 2мерный массив, обрабатываю его построчно, т.е. в определенный момент времени имею номер строки массива, как удалить эту строку целиком?
вот как строку удалить в таблице - умею, в массиве, не нашел((

[EducatedFool]

Надо переформировывать массив заново.

Можете воспользоваться моей функцией автофильтра для двумерного массива - задаёте параметры для ArrAutofilterEx, и из массива удаляются все неподходящие строки:
http://excelvba.ru/code/ArrAutofilter
http://excelvba.ru/code/DeleteBlankRows

[sn00p]

не открываются линки

[sn00p]

надо осваивать применение sql в тесте кода vba))))

[sn00p]

я так понимаю во такая конструкция это делает?

ReDim Preserve nArr(UBound(nArr) - 1)

хотя нет..

[IgorGO]

вот пример возможных действий

Sub DeleteRow_i()
  Dim A(1 To 5, 1 To 2) As Long
'  ...
'  Допустим Вы уже определили, что надо удалить строку i
'  ...
  For r = i To UBound(A, 1)
    For c = 1 To UBound(A, 2)
      If r < UBound(A, 1) Then A(r, c) = A(r + 1, c) Else A(r, c) = 0
    Next
  Next
End Sub

кстати, для знатоков программировая в ВБА, можно как-то взять дамп памяти определенного размера по определенному адресу и перенести на другой адрес?
тогда надо было бы посчитать адреса, одним оператором перенести данные, следующим оператором очистить последнюю строку массива, а не циклы гонять.

[IgorGO]

ReDim Preserve nArr(UBound(nArr) - 1)
уменьшает размер массива на 1 элемент, сохраняя остальные значения.
если nArr -это Ваш двумерный массив, то получите Run-time error '9'. для двумерного массива надо указать какую размерность уменьшаем.

[nilem]

Еще примерчик

Sub test()
Dim x
x = Range("A1:H" & Cells(Rows.Count, 1).End(xlUp).Row).Value
'удаляем из массива 9-ю строку
[j1].Resize(UBound(x, 1) - 1, UBound(x, 2)).Value = DelRow(x, 9)
End Sub

Function DelRow(arr As Variant, n As Long) As Variant
Dim t(), i As Long, j As Long, k As Long
ReDim t(1 To UBound(arr, 1) - 1, 1 To UBound(arr, 2))
For i = 1 To UBound(arr, 1)
    If i <> n Then
        j = j + 1
        For k = 1 To UBound(t, 2): t(j, k) = arr(i, k): Next k
    End If
Next i
DelRow = t
End Function

[SAS888]

для двумерного массива надо указать какую размерность уменьшаем.

Небольшое уточнение: оператор ReDim Preserve может изменять лишь величину последней размерности в n-мерном массиве. поэтому, если, например, требуется изменить 1-ю размерность в 2-мерном массиве (количество строк), то потребуется транспонировать этот массив, применять ReDim Preserve, затем вновь транспонировать. К тому же, этот оператор не только изменяет размерность, но и перезаписывает заново все элементы массива. Так что применять его в цикле нецелесообразно.
На мой взгляд, если это, конечно, возможно, лучше сначала выявить все строки массива, которые требуется удалить, а уже затем сформировать новый, требуемый массив, что будет существенно быстрее, нежели каждый раз перебирать исходный массив, тем более использовать ReDim Preserve.

[sn00p]

Сообщение от nilem

Еще примерчик

Sub test()
Dim x
x = Range("A1:H" & Cells(Rows.Count, 1).End(xlUp).Row).Value
'удаляем из массива 9-ю строку
[j1].Resize(UBound(x, 1) - 1, UBound(x, 2)).Value = DelRow(x, 9)
End Sub

Function DelRow(arr As Variant, n As Long) As Variant
Dim t(), i As Long, j As Long, k As Long
ReDim t(1 To UBound(arr, 1) - 1, 1 To UBound(arr, 2))
For i = 1 To UBound(arr, 1)
    If i <> n Then
        j = j + 1
        For k = 1 To UBound(t, 2): t(j, k) = arr(i, k): Next k
    End If
Next i
DelRow = t
End Function

а если 17 000 строк? на сколько быстро сработает метод?