vba - 当发现包含文本的单元格添加到其他行时，VBA 使用 instr

Question

我制作了查找包含其他单元格中的文本的单元格的宏。我需要使用其他两行的空间将它们列出到其他地方这是示例

如果 A1 的文本包含在 B1 中，则将 A1 粘贴到 C1 和 B1 到 D1，就像这个模式一样

将 A1 与 B 行进行比较，并将基于单元格的单元格粘贴到“C”行，并将文本单元格包含到“D”行

    Sub killerb()
    
 dim kinder as range
dim lookfor as range
set kinder = sheets(11).Range("C1:C29995")
set lookfor = sheets(11).Range("B1:B29995")

for i = 1 to 29995
if not kinder(i) =""then
foir c =1 to 29995
if instr(1, lookfor(c).value, kinder(i).value) >0 then
sheets(11).cells(i+t,4)= kinder(i).value
sheets(11).cells(i+t,5) =lookfor(c).value
t = t+1
end if
next
end if
next
    End Sub

它可以工作，但是包含文本的单元格之间有太多空单元格。并且一直落后

请帮忙