おすすめ

strcollection=",佐藤,田中,長谷川,"
if instr( strcollection,"," & cells(n,1)) & ",")=0 then
cells(n,1).entirerow.delete
end if