Office中国论坛/Access中国论坛

标题: 紧急,请各位帮帮忙,教教我! [打印本页]

作者: ddkaren 时间: 2006-7-25 23:55
标题: 紧急,请各位帮帮忙,教教我!
我的一个EXCEL文件中有多张SHEET,如何才能简便地把SHEET1中的内容,全复制到所有的SHEET中呢??

请大家帮帮忙.谢谢!!

作者: 老鬼 时间: 2006-7-26 01:15
sheet1.usedrange.copy

for each sh in sheets

if sh.name<>"sheet1" then

      sh.activate

      [a1].activate

      activesheet.paste

end if

next未经测试，请自己试试

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)