將第1張表中已使用的區(qū)域復(fù)制到第2張工作表中

將第1張表中已使用的區(qū)域復(fù)制到第2張工作表中

本文為《別怕，Excel VBA其實很簡單（第3版）》隨書問題參-

如果在活動工作簿的第 1 張工作表中，保存了行、列數(shù)不確定的數(shù)據(jù)，現(xiàn)要將這些數(shù)據(jù)復(fù)制到第 2 張工作表中（目標(biāo)區(qū)域的最左上角單元格為A1），可以用下面的過程：

Sub 復(fù)制所有數(shù)據(jù)() Worksheets(1).UsedRange.Copy Worksheets(2).Range("A1")End Sub

如果第2 張工作表中已有數(shù)據(jù)，要將第1 張表中的數(shù)據(jù)復(fù)制到第2 張工作表的第 一行空行中，可以用下面的過程：

Sub 復(fù)制最后一行數(shù)據(jù)() Worksheets(1).UsedRange.Rows(Worksheets(1).UsedRange.Rows.Count).Copy Worksheets(2).Range("A1048576").End(xlUp).Offset(1, 0)End Sub

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。