*第一列变量名设为id
forvalues i=1/18{
        use 文件名,clear
        rename v`i' a1
        local j=`i'+1
        while `j'<=19{
                rename v`j' b`j'
                local j=`j'+1
        }
        keep id a* b*
        reshape long b,i(a1 id) j(s)
        drop s
        rename (a1 b) (v1 v2)
        save 文件名`i',replace
}
use 文件名1,clear
forvalues i=2/18{
        append using 文件名`i'
}
order id v1 v2