>>845
このやり方だと
Cases[x^2 y^2 + x^3 + x^2 + x y + y z + z + 1, (Power[x_, 2] | Times[x_, y_])] に対して
{x^2, x y, x^2 y^2, y z} となってしまう。

Exponent を使って、
Select[x^3 + x^2 + x y + y z + z + 1, Total[Exponent[#, {x, y, z}]] == 2 &]
List@@%
とすればよい。