用VBA吧。按Alt+F11,调出VBE编辑窗口,假设您要将每个工作表的A1单元格复制到当前单元格A列,从A1开始。插入如下代码
Sub copyA1()
Dim sht As Worksheet,i As integer
i = 1 '如果要从A2开始写入,那么该入就写i=2
For Each sht In Worksheets
Cells(i, 1).Value = sht.Range("A1").Value '如果要读取每个工作表的E3单元格,那该处的A1就改为E3
i = i + 1
Next sht
End Sub
点击运行即可。
追问你好,我试了,可以的,如果需要提取多个同一位置的内容呢?在新表里组成不同的列,又如何做到?如果是合并的单元格又如何引用?
本回答被提问者采纳