Удаление/добавление строки из/в двумерного массива - 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

Оцени полезность:

14   голосов , оценка 3.857 из 5
Похожие ответы