'表格汇总到总表
Sub 表格汇总()
Dim sht As Worksheet
For Each sht In Sheets
If sht.Name <> ActiveSheet.Name Then
'如果工作表A列非空
If WorksheetFunction.CountA(sht.[a:q]) > 0 Then
sht.[a1].Resize(sht.Cells(Rows.Count, 1).End(xlUp).Row, Columns.Count).Copy ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(Len([a1]) > 0, 0)
End If
End If
Next
End Sub
将当前表以外的所有工作表汇总到当前表
最新推荐文章于 2021-11-16 15:20:09 发布