在行范围内查找到另一列范围内

Question

请在我的代码中建议修改以解决以下问题： 我想在另一范围的列（T6：U32）中查找范围为数字（B5：C5）的范围，以及其是否为（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"

快照：