VBA: прогон через 2D Variant Array, удаляющий строки - PullRequest
Новая
       17

VBA: прогон через 2D Variant Array, удаляющий строки

0 голосов
/ 10 января 2020

Я импортирую диапазон как 2D-вариант в VBA и объявляю массив как Variant с помощью `Dim matrix ().

Теперь я хочу провести l oop через строки и удалить строки, где 2-й column = "even" или 5-й ряд заканчивается "_tom". Набор данных ниже

Моя основная проблема заключается в том, что я не знаю, как удалить эти строки? 

1,  odd,    3,  27, today
2,  even,   6,  21, today_tom
3,  odd,    9,  28, today
4,  even,   12, 30, today
5,  odd,    15, 17, today_tom
6,  even,   18, 17, today
7,  odd,    21, 18, today
8,  even,   24, 9 , today_tom
9,  odd,    27, 24, today_tom
10, even,   30, 9,  today
11, odd,    33, 11, today
12, even,   36, 22, today
13, odd,    39, 8 , today
14, even,   42, 1 , today
15, odd,    45, 4 , today

Текущий код: 

Sub test()
    Dim matrix As Variant
    matrix = Range("A1:E15")
    Dim r As Long

    For r = LBound(matrix, 1) To UBound(matrix, 1)
        If matrix(r, 2).Value = "even" Then
            'delete
        End If
        If Right(matrix(r, 2).Value, 4) = "_tom" Then
            'delete
        End If
    Next r

End Sub

1 Ответ

1 голос
/ 11 января 2020

Удалить элементы массива с помощью Application.Index()

Да , возможно "удалить" элементы массива с помощью функции Application.Index, обогащенной несколькими Аргументы массива:

Вспомогательная функция getRowNo()

Function getRowNo(arr) As Variant()
' Note: receives last column values of array two as 1-dim 1based array
' Purp: returns 2-dim 1-based array with row numbers if conditions met
    Dim i As Long, ii As Long, tmp()
    ReDim tmp(1 To 1, 1 To UBound(arr))     ' provide for temporary array
    For i = LBound(arr) To UBound(arr)
        If arr(i, 2) = "even" Or Right(arr(i, 5), 4) = "_tom" Then
        ' do nothing
        Else
            ii = ii + 1                     ' increment temp counter
            tmp(1, ii) = i                  ' enter row number of original column data
        End If
    Next i
    ReDim Preserve tmp(1 To 1, 1 To ii)     ' correct last dimension
    getRowNo = Application.Transpose(tmp)   ' return 2-dim array with rownumbers to be preserved
End Function

Пример результата

example sheet Дополнительная подсказка

Невозможно ссылаться на элемент массива по свойству .Value, только по индексам (например, matrix(1,1))

...