Skip to main content
Source Link
Michael E2
  • 262.2k
  • 21
  • 371
  • 838

Another among endless variations:

Expand[A] //
 Replace[
   #,
   Except[c_ | c_. _Symbol /; NumericQ[c]] -> 0,
   {Boole[Head[#] === Plus]}] &

(*  -1 + a + b  *)