2 【已解決】 Excel如何將多個(gè)sheet中的指定單元格數(shù)據(jù)復(fù)制到單個(gè)sheet中？
我想在Excel中將多個(gè)工作表（Sheet1到Sheet200）中的A19單元格數(shù)據(jù)依次復(fù)制到一個(gè)工作表（Sheet0）的A1到A200單元格中，該如何操作呢？
最佳答案 2023-04-10 23:00
在Excel中，可以通過(guò)編寫宏（VBA代碼）來(lái)實(shí)現(xiàn)將多個(gè)工作簿中的A19單元格數(shù)據(jù)依次復(fù)制到一個(gè)工作簿的A1到A200單元格中。具體操作步驟如下：
- 按下 Alt + F11 鍵打開 Visual Basic 編輯器；
- 在項(xiàng)目資源管理器窗口中右鍵點(diǎn)擊“VBAProject（Workbook名稱）”，選擇插入 - 模塊；
- 在新建的模塊中輸入以下代碼：
Sub copyData()
'申明范圍
Dim i As Integer, j As Integer
Dim sht As Worksheet
Dim dest As Worksheet
'定義目標(biāo)表格
Set dest = ThisWorkbook.Worksheets("Sheet0")
'循環(huán)每個(gè)表格
For i = 1 To 200
'打開源表格
Set sht = Workbooks("要復(fù)制數(shù)據(jù)的工作表.xlsx").Worksheets("Sheet" & i)
'復(fù)制數(shù)據(jù)
dest.Range("A" & i) = sht.Range("A19")
Next
End Sub- 保存文件，然后關(guān)閉 VBA 編輯器；
- 在 Excel 中打開要操作的工作簿，并按下 Alt + F8 打開宏對(duì)話框；
- 選擇剛剛編寫的“copyData”宏并運(yùn)行即可。
通過(guò)上述步驟，就可以快速地將多個(gè)工作表中的 A19 單元格數(shù)據(jù)依次復(fù)制到一個(gè)工作表的 A1 到 A200 單元格中了。
感謝您的支持，請(qǐng)隨意打賞。您的贊賞將鼓勵(lì)我繼續(xù)創(chuàng)作！
Excel搬運(yùn)工
- Excel大神
掃碼關(guān)注微信公眾號(hào)
