呵呵，自己搞定
代码如下
ta i,gen(i)
foreach v of varlist i1-i4 {
by i : replace `v' = _n if `v'!=0
}