Пожалуйста, предложите изменения в моем коде для решения следующей проблемы: Я хочу найти диапазон чисел (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: