//模拟数据
clear
set more off
set obs 4000
gen a=1000+int(4000*uniform())
duplicates drop a,force
gen av="x"+string(a)
gen alabe="label"+string(10000+int(4000*uniform()))
loca nobs=_N
forvalue i=1/`nobs'{
loca vname=av[`i']
gen `vname'=.
}
//加标签代码  4000个变量，av为变量， alabe为标签
foreach i of varlist x*{
forvalue j=1/`nobs' {
  if av[`j']=="`i'"{
  loca alb=alabe[`j']
  label var `i' "`alb'"
}
}
}

// 速度较慢，我电脑跑了6分钟

5# 风雪精灵


将你的规律讲明白，
如有规律可能有更好的选择。

7# jzhyue

我跑了一下，出现如下情况：
. foreach i of varlist x*{
  forvalue j=1/`nobs' {
   if av[`j']=="`i'"{
   loca alb=alabe[`j']
   label var `i' "`alb'"
  }
  }
  }
invalid syntax

风雪精灵 发表于 2010-8-24 10:30 如果是有规律又该如何处理？

要把你的规律讲明白。不同的规律，对应的命令可能不同。

没有问题
如果是你的数据请将参数设置好。
最好将你的数据结构含部分数据和标签数据贴上来。
3000个变量最好找个适当的规律，规律使代码更有效

1# 风雪精灵
*找到一个效率较高的方法，你试试：b.dta 为变量与标签对应表，av为变量名字，alabel为标签，相应目录下
merg 1:1 _n using b.dta
count if av!=""
forvalue i=1/`r(N)'{
loca vn=av[`i']
loca alb=alabel[`i']
label var `vn' "`alb'"
}
drop av alabel  _merg

谢谢楼主分享