使用多个循环粘贴值

Question

我有一个数据集，其中range("B1:L1")包含日期，range("A2:A10")包含名称。

Range("O5")包含concern date，而range("O6")包含concern name。

我想在range("O5")中搜索range("B1:L1")日期，在range("O6")中搜索range("A2:A10")名称，如果满足条件，则仅在关注单元格中输入文本"done"。

例如，如果concern date在D1中，关注名称在A6中，则文本应粘贴在D6中。

有人可以帮助我提供代码吗？

---

代码

---

Sub Status()
    Worksheets("Sheet1").Select
    For Each cel In Range("B1:L1")
        For Each zzz In Range("A2:A10")
            If cel.Value = Range("O5").Value And zzz.Value = Range("O6").Value Then
                Range(cel, zzz).Select
                Selection = "Done"
            End If
        Next zzz
    Next cel
End Sub