子查詢（）
range（“A7:j 1000“）=““
迪姆島
對於i = 2至表（“所有門診診所”）。範圍（“a65536”）。結束（xlUp）。排
X =工作表函數。countif（Sheets（“所有門診服務”）。範圍（單（“所有門診服務”）。牢房（I，“A”）、床單（“所有門診”）。單元格（I，“j“））、“*“&；【D3】& amp；"*")
如果x & gt那就0
床單（“所有門診服務”）。範圍（單（“所有門診服務”）。牢房（I，“A”）、床單（“所有門診”）。細胞（I，“j”）。復制單元格（【A65536】）。結束（XLUP）。Row+。
如果…就會結束
然後
MsgBox“查詢已完成”
末端接頭