VBA 创建一个新表，并复制其它表数据

VBA 创建一个新表，并把其他表格数据复制到新表中，并删除不要的列！！

Sub 创建新表格()

'定义新表名称

新表格名称 = "B表"

'在现有表中寻找是否存在新表，如果存在则删除

For Each 现有表格名称 In Worksheets

If 现有表格名称.Name = 新表格名称 Then

Application.DisplayAlerts = False

现有表格名称.Delete

End If

Next

'创建新表并命名为B表

Sheets.Add.Name = "B表"

'把A表的数据全部复制到新的B表

Sheets("A表").Cells.Copy Sheets("B表").Cells

'把B表不要的区域删除，自行修改

Sheets("B表").Range("p:r,t:y").Delete

End Sub