日韩黑丝制服一区视频播放|日韩欧美人妻丝袜视频在线观看|九九影院一级蜜桃|亚洲中文在线导航|青草草视频在线观看|婷婷五月色伊人网站|日本一区二区在线|国产AV一二三四区毛片|正在播放久草视频|亚洲色图精品一区

分享

EXCEL VBA 快速合并多個(gè)工作表數(shù)據(jù)轉(zhuǎn)換為數(shù)值到一個(gè)工作表

 hdzgx 2019-12-13

最快速的方法就是復(fù)制粘貼,把所有表的內(nèi)容復(fù)制、粘貼到一個(gè)新表中。

如果表的個(gè)數(shù)成千上萬(wàn),可以寫(xiě)VBA代碼來(lái)完成這個(gè)復(fù)制、粘貼的過(guò)程,下面是我寫(xiě)的代碼,可以ALT+F11之后粘貼使用:

sub 宏1()
    dim i,n
    for i=2 to sheets.count
        n=sheets(1).usedrange.rows.count+1
        sheets(i).usedrange.copy sheets(1).cells(n,1)
    next i
end sub

    本站是提供個(gè)人知識(shí)管理的網(wǎng)絡(luò)存儲(chǔ)空間,所有內(nèi)容均由用戶發(fā)布,不代表本站觀點(diǎn)。請(qǐng)注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購(gòu)買(mǎi)等信息,謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請(qǐng)點(diǎn)擊一鍵舉報(bào)。
    轉(zhuǎn)藏 分享 獻(xiàn)花(0

    0條評(píng)論

    發(fā)表

    請(qǐng)遵守用戶 評(píng)論公約

    類似文章 更多