Поиск ряда строк в другом диапазоне столбцов - PullRequest
0 голосов
/ 17 апреля 2020

Пожалуйста, предложите изменения в моем коде для решения следующей проблемы: Я хочу найти диапазон чисел (B5: C5) в другом диапазоне столбцов (T6: U32) и его подмножество (T6: U32). Я хочу скопировать значение следующего столбца. например: если (B5: C5) является подмножеством (T25: U25), скопируйте значение ячейки «V25» в «I5». мой код выглядит так

Dim range1 As Range, range2 As Range,
Dim r As Range

Set range2 = Range("T6:U32")
Set range1 = Range("D5:E5")

For Each r In range2
    If Intersect(r, range1) Is Nothing Then 'do nothing
    Exit Sub
    End If
Next r
'copy next column cell value to "I5"

SNAPSHOT: enter image description here

...