Read Sheet1!A:A then mark corresponding cells in Sheet2

I'm after a formula/VB script to perform a fairly simple task (hopefully).

I need it to,
1 - read Sheet1!A:A
2 - then mark (with a 1) on sheet2 in the corresponding cell

e.g the data in cell Sheet1!A1 would mark Sheet1!B2

There will be another 100 more branches to be input to Sheet1!A:A

Hope this makes sense.
Many thanks

Ashley

No VBA needed.

In B2: =--ISNUMBER(MATCH($A2&","&"yes"&",,", Sheet1!$A:$A, 0))
In C2: =--ISNUMBER(MATCH($A2&",,"&"no"&",", Sheet1!$A:$A, 0))
In D2: =--ISNUMBER(MATCH($A2&",,,"&"abstain", Sheet1!$A:$A, 0))

Now copy those three cells downward.