如何用“宏”把excel中每个工作表的第二列提取到新工作表中？

1，程序为： Sub 提取第二行() Dim wks As Worksheet, sht As Worksheet On Error Resume Next Set wks = Worksheets("汇总表") If Err 0 Then Worksheets.Add(before:=Sheets(1)).Name = "汇总表" For Each sht In Sheets If sht.N