批量删除Excel文件中的某一列 VBA

最新推荐文章于 2025-02-22 18:12:10 发布

jojojuejue

最新推荐文章于 2025-02-22 18:12:10 发布

阅读量2.5k

点赞数 1

文章标签： excel

本文链接：https://blog.csdn.net/jojojuejue/article/details/130004315

版权

当Python的pandas、openpyxl、xlrd和xlwt库无法处理含有特殊格式（可能是超链接）的Excel文件时，通过VBA在Excel中编写脚本删除问题列提供了解决方案。用户创建了一个VBA宏，批量删除指定文件夹中所有Excel文件的特定列，从而能成功读取文件。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

python无法读取某软件批量导出的文件，因为文件有一列是特殊格式（目测超链接），python pd.read_excel、openpyxl、xlrd、xlwt都试了一遍，还是报错，最后发现把特殊数据那一列删了就可以读取了。
后续统计也不涉及那一列，索性把所有文件（200+）都删了，手动实现不现实，现学了VBA。

新建一个excel文件用来运行VBA，运行的时候关闭其他文件

Sub 删除第三列()
Dim xlPath As String
xlPath = [a1] & "/" 'A1单元格为要删除的文件夹地址，注意mac端为/，win为\，需要修改
Application.DisplayAlerts = False '不显示警告和错误
f = Dir(xlPath & "*.xls*") '获取excel文件地址
Do While f <> ""
    Set wb = Workbooks.Open(xlPath & f)
    wb.Worksheets(1).Columns("C:C").Delete '删除C:C列，可以修改为想删除的任意一列
    wb.Close True
    f = Dir
Loop
Application.DisplayAlerts = True
End Sub