將一個(gè)工作表中區(qū)域的數(shù)據(jù)復(fù)制到另一個(gè)工作表中的區(qū)域
Dim myWorksheet AsWorksheet
Dim myWorksheetName As String
myWorksheetName = “MyTableName”
Sheets.Add.Name = myWorksheetName
Sheets(myWorksheetName).Move After:=Sheets(Sheets.Count)
Sheets(“Sheet1”).Range(“B1:B27”).Copy Sheets(myWorksheetName).Range(“A1”)
代碼說明
Sheets.Add.Name = myWorksheetName用于在Sheets集合中添加名稱為myWorksheetName的Sheet;
Sheets(myWorksheetName).Move After:=Sheets(Sheets.Count)將剛剛添加的這個(gè)Sheet移到Sheets集合中最后一個(gè)元素的后面
最后通過Range.Copy方法將數(shù)據(jù)拷貝到新表中對(duì)應(yīng)的單元格中。
以上代碼在VBA環(huán)境中使用。
版權(quán)聲明：本文內(nèi)容由互聯(lián)網(wǎng)用戶自發(fā)貢獻(xiàn)，該文觀點(diǎn)僅代表作者本人。本站僅提供信息存儲(chǔ)空間服務(wù)，不擁有所有權(quán)，不承擔(dān)相關(guān)法律責(zé)任。如發(fā)現(xiàn)本站有涉嫌抄襲侵權(quán)/違法違規(guī)的內(nèi)容， 請(qǐng)發(fā)送郵件至 86345@qq.com 舉報(bào)，一經(jīng)查實(shí)，本站將立刻刪除。
