可以稍微优化一点：
For i = 3 To Range("A100000").End(xlUp).Row For j = 2 To 5 If ",5,7,8," Like "*," & Cells(i + 1, j) & ",*" Then Cells(i, 17) = "真": Exit For NextNext
