Sub test3()
Dim A, j
Application.ScreenUpdating = False
Call test4
A = Range("a1").CurrentRegion
For j = 7 To UBound(A, 2)
Sheets.Add(after:=Sheets(Sheets.Count)).Name = j '表名不用A(2, j)是避免重复,比如 ao2和bb2内容一样
Sheets(1).Range("a:f," & Columns(j).Address).Copy
ActiveSheet.Paste
Next j
Sheets(1).Select
End Sub
'删除其它表
Sub test4()
Dim i
Application.DisplayAlerts = False
For i = Sheets.Count To 2 Step -1
Sheets(i).Delete
Next
End Sub