这个问题需要用VBA来处理，而且是秒处理，速度特别快，VBA代码也特别简单
Public Sub Fill()
Dim x
Dim Qty
Qty = InputBox("一共有多少个工作表？（包括第一个）")
For x = 2 To Qty
Sheets(x).Select
Cells(1, 1).Value = Sheets(1).Cells(x - 1, 1).Value
Next x
Sheets(1).Select
End Sub
需要注意的是，sheets 1,2,3,4....是工程代码中的1,2,3,4...，是这些工作表在此工作簿中产生的次序，而不是后期的命名，如图所示
在SHEET2的A1中输入或复制粘贴下列公式
=IF(SHEET1!A1<>"",SHEET1!A1,"")
或
=SHEET1!A1&""
下拉填充，右拉填充
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024