Excel删除指定列（VB）

大量excel删除指定列

第一步：将需要删除指定列的excel放到同一文件夹（需要删除的表格）下。

第二步：需要删除的表格同一级目录下新建Excel并打开，右键sheet1查看代码打开编辑器，输入以下代码：

Sub Del_Col()
Application.DisplayAlerts = False
Dim myFiles As String
Dim myExcels As String
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
.AllowMultiSelect = False
.Title = "请选择要删除列的文件所在文件夹"
myFiles = .SelectedItems(1)
End With
myExcels = Dir(myFiles & "\" & "*.xls*")
Do While Len(myExcels) <> 0
Workbooks.Open (myFiles & "\" & myExcels)
Worksheets(1).Columns("A:A").Select '删除excel中的A列'
Worksheets(1).Columns("B:B").Select '删除excel中的B列'
Selection.Delete Shift:=xlToLeft
ActiveWorkbook.Save
Workbooks(2).Close
myExcels = Dir
Loop
Application.DisplayAlerts = True
MsgBox "删除完成"
End Sub

点击运行按钮根据提示选择需要删除的文件夹即可。（.xls和.xlsx均可运行）

Excel删除指定列（VB）相关推荐

vue3使用xlsx 导出excel ,删除指定列
在项目中遇到将表格导出为excel,表格为下面这个样式,第一列为复选框, 最开始直接用xlsx,导出结果为下图达不到要求,因该把第一列空白删除,在网上看了很多博客,最后做一下总结, 关键就是里面有个 ...
sqlserver删除指定列失败
alter table table_name drop column column_name sqlserver删除指定列失败时,报告消息如下: 消息 5074,级别 16,状态 1,第 1 行对 ...
matlab输出多个参数到表格固定列,matlab将excle的列提取出来?如何使用Matlab提取Excel中指定列的数据？...
MATLAB 在txt文件中怎么提取数据,并将那三列数据转化为EXCLE格式? 在matlab中 file import data number of text header lines 改成6 下一 ...
pandas保留想要的列或删除指定列
pandas 保留想要的列方法1: df=df.loc[:,['name1','name2','name3']] 方法2: df2=df[['name1','name2','name3']] 删除指 ...
excel 删除空白列的三种方法，以及如何批量删除空行空列
详见:excel删除空白列的三种方法,以及如何批量删除空行空列本人更倾向于第三种方法: excel删除空白列方法三: 按ALT+F11,打开VBE编辑器,插入--模块,复制下面代码,然后按F5键,运 ...
R语言处理数据——删除指定列
删除指定列 ## R语言删除某列 library(dplyr) ## 按索引删除 data <- select(data,-3) ## 按列名删除单列 data <- select(dat ...
【openpyxl】python处理excel——删除指定行
本文给出了用openpyxl删除excel满足指定条件的行或列的正确示范,同时给出了一些网络资料的常见错误供读者参考 1.正确示范✔ 因为需要删除的行数不固定,正确示范应该采用while循环来遍历ex ...
EXCEL 删除一列超过3小时的数据公式
您可以使用以下公式来删除 Excel 中一列超过3小时的数据: 在要保留的数据的列旁边,插入一列,用于存储计算结果. 在新列中的第一个单元格(例如C2)中输入以下公式: =IF(A2-B2>TI ...
python对excel删除指定行
可以使用Python的第三方库pandas来操作Excel文件. 首先,需要使用pandas的read_excel()函数读取Excel文件: import pandas as pd df = pd. ...

Excel删除指定列（VB）

大量excel删除指定列

Excel删除指定列（VB）相关推荐

最新文章

热门文章