发布网友
共2个回答
热心网友
使用vba编写代码解决吧
热心网友
Sub aa()
Dim shet, shnt As Sheets
Dim i, k As Integer
k = ThisWorkbook.Sheets.Count
i = 1
Set shnt = Sheets.Add(, Sheets(k))
ActiveSheet.Name = "汇总"
For Each shet In ThisWorkbook.Sheets
shet.Range("b3").Copy shnt.Range("a" & i)
i = i + 1
Next
End Sub