COUNIF如何设为4位数

如B1000=$A1000&COUNIF($A$1:$A1000,$A1000)
效果：1，$A1000=E，COUNIF($A$1:$A1000,$A1000)=2，则B1000=E0002
2，$A1000=E，COUNIF($A$1:$A1000,$A1000)=12，则B1000=E0012
3，$A1000=E，COUNIF($A$1:$A1000,$A1000)=120，则B1000=E0120