同一个excel数据表，有很多页，请问我怎样可以批量删除每页中的同一列？

Question

同一个excel数据表，有很多页，请问我怎样可以批量删除每页中的同一列？（比如我想删除每页的A、B、C列）以及批量删除后怎样批量转换成CSV格式？（最好可以每页都分开转换成一个csv，要一页页导入到系统里的）。麻烦了，谢谢。

Answer 1

1， 批量删除同一列      只需要  右键任何一个  工作表 标签---- 选中所有工作表--- 删除 A:C 列， 保存即可  ，   注意删除后  再点 任何一个工作表标签 取消工作组状态

 

2， 要用VBA

================================：

 

拆分工作薄的程序，我之前写的，

Alt+F11 视图--代码窗口，

把如下复制进去（如果复制进去不换行，复制到Word 再复制进去)   按F5运行即可

最好把这个Excel 放到一个文件夹内操作, 因为默认生成到当前文件夹

Sub fencun()
Application.ScreenUpdating = False
application.displayalerts=false
b = Sheets.Count
For i = 1 To b
Sheets(i).Copy
a = ThisWorkbook.Worksheets(i).Name
With ActiveWorkbook
.SaveAs Filename:=ThisWorkbook.Path & "\" & a & ".csv"
.Close
End With
Next i
application.displayalerts=true
Application.ScreenUpdating = true
End Sub

Answer 2

很简单的，就是编个小程序就解决了的
不知道你想导入到什么系统里，也许连导入也可以同时在小程序中搞定