*抛砖引玉：一个迂回的方法。
drop group
loca vlist "a34 b345 cd2 m07 ludaw iode p67er huanf"
foreach i of loc vlist{
loca  a`i' : var label `i'
}
renpfix "" "max"
ren maxid id
reshape long  max@ ,i(id) j(group) s
bys id (max):keep  if _n==_N
foreach i of loca vlist{
replace group="`a`i''" if group=="`i'"
}
/*

这种方法仅仅为了证实reshape的可行性.
希望大家想一个简洁的方法！

先用egen生成一个变量，存放每行的最大值，比如叫rowmax。然后
foreach i of loc vlist{
        replace group = "`i'" if `i'==rowmax
}

*这个思路可以采用
g group=""
egen m=rowmax(a34-huanf)
foreach i of var a34-huanf{
replace group = "`i'" if `i'==m
}

*根据楼主的数据与问题
egen m=rowmax(a34-huanf)
foreach v of var a34-huanf{
loc n: var l  `v'
replace group = "`n'" if `v'==m
}

讲的太好了，刚好老师布置了这个作业不会做，学习了