紧急,请各位帮帮忙,教教我!

ddkaren

我的一个EXCEL文件中有多张SHEET,如何才能简便地把SHEET1中的内容,全复制到所有的SHEET中呢??

请大家帮帮忙.谢谢!!

老鬼

sheet1.usedrange.copy

for each sh in sheets

    if sh.name<>"sheet1" then

        sh.activate

        [a1].activate

        activesheet.paste

    end if

next未经测试，请自己试试