Удаление/добавление строки из/в двумерного массива - VBA
Формулировка задачи:
Люди добрые, помогите, поискав на форуме, не нашел способа, как удалить или же добавить строку из двумерного массива. Нужно удалить строку с заданным номером.
к примеру вот массив
надеюсь на помощь!
Решение задачи: «Удаление/добавление строки из/в двумерного массива»
textual
Листинг программы
Option Explicit Sub www() Dim i&, j&, m&, n&, a&(), t&, ii& Randomize n = 10 m = 5 ReDim a(1 To n, 1 To m) For i = 1 To n For j = 1 To m a(i, j) = Int(Rnd * 10000) Next j, i [a1].Resize(UBound(a, 1), UBound(a, 2)) = a t = InputBox("Введите номер строки (от 1 до " & n & "), которую Вы хотите удалить из массива") ReDim b(1 To UBound(a) - 1, 1 To m) For i = 1 To n If i <> t Then ii = ii + 1 For j = 1 To m b(ii, j) = a(i, j) Next j End If Next i [g1].Resize(UBound(b, 1), UBound(b, 2)) = b End Sub