Excel如何使用VBA删除指定文件夹下所有工作表的指定列?

在同一个文件夹下,有200多个相同工作表,如图 我想同时删除所有工作表的F、H、L列该如何编码?急急急!!!

删除文件夹下所有工作表






End sub

追答

把你写的拍个照给我看,我来给你指出来哪里有问题

温馨提示:内容为网友见解,仅供参考
第1个回答  2019-06-18
代码及注释如下:
Sub shanchu()
Application.DisplayAlerts = False'关闭提示,否则每删除一个非空工作表,都会出现提示
For i = 2 To [g65536].End(3).Row'i从2到G列最后一个非空行数循环
Sheets(Cells(i, 7).Delete'将工作表名为G列对应的工作表删除
Next
Application.DisplayAlerts = True'开启提示
End Sub本回答被网友采纳

excel中怎么使用Vba批量删除指定文件夹下的所有文件?
1、首先新建一个excel文件并双击打开,打开后,按快捷键F12进行另存为,注意另存的格式要选择启用宏的工作簿,如下图所示:2、接着找到左上角的文件按钮,选择选项按钮,如下图所示:3、在弹出的对话框中选择信任中心,并选择信任中心设置,接着选择隐私选项,并把保存时删除个人信息的对号去掉,整体设...

Excel如何使用VBA删除指定文件夹下所有工作表的指定列?
End sub

在excel中如何使用vba命令实现批量删除指定名称的工作表?
按Alt + F11,回到你的画面所示的“表”中!按Alt + F8,确定!去试一试吧!!!

如何用EXCEL的VBA脚本编写程序删除空行和空列
调用 DeleteEmptyRows 子过程,删除所有空行。调用 DeleteEmptyColumns 子过程,删除所有空列。自动调整行高和列宽,以适应数据。Sub DeleteEmptyRows()这个子过程用于删除工作表中的空行。它首先确定最后一行的行号,然后从最后一行开始向上遍历,逐行检查该行是否为空行。如果该行为空行,则删除该行。通过使...

Excel 中如何用VBA 删除指定文件夹中的指定文件?
'你想删除的文件的名称例如文件名是中国什么省汇总.xls FN = "中国什么省汇总.xls"Dim FileName As String FileName = Dir("D:\\报表\\*.xls")Do While FileName <> ""If FileName = FN Then Kill "D:\\报表\\" & FileName End If FileName = Dir Loop ...

如何用宏批量提取指定文件夹中所有excel表格中指定sheet的内容?
下面是一个示例的VBA代码,可以帮助您批量提取指定文件夹中所有Excel表格中特定工作表的内容,并将其汇总到一张表中:vba Sub ExtractDataFromSheets()Dim FolderPath As String Dim FileName As String Dim wbSource As Workbook Dim wsSource As Worksheet Dim wsDestination As Worksheet Dim LastRow ...

如何使用VBA在EXCEL中批量删除整列数据并调整列的顺序?
首先,需要将排序的位置放在sheet2的A列中,然后执行代码 Sub m()Set dicb = CreateObject("scripting.dictionary")For i = 1 To Sheet2.Range("A65536").End(xlUp).Row If dicb.exists(Sheet2.Cells(i, 1).Value) = False Then k = k + 1 dicb(Sheet2.Cells(i, 1).Value) = k...

excel vba 删除列的问题
Range("A:A,C:C,F:F").Delete 或者(1楼换顺序):Columns(6).delete columns(3).delete columns(1).delete 也可以。

...批量提取多个excel工作簿中指定字段的数据,删除其他字段
求一段excel代码。批量提取多个excel工作簿中指定字段的数据,删除其他字段 求万能的大神帮我写一段excel代码(使用的版本为excel2019)。现在有多个工作簿,每个工作簿中含有3张sheet,其中2张sheet为空表,1张sheet中有数据并包含有多个字段,需要如下效果:... 求万能的大神帮我写一段excel代码(使用的版本为excel2019...

如何用Excel VBA读取某一文件夹下批量TXT文本内的某行某列?
1), vbUnicode), Chr(10))(3), vbTab)(3) '4行4列,如果其余行或列数则更改相应的数字Debug.Print myTextClosemyText = DirLoopEnd Sub 如何用ISS指向某一文件夹 现在我们的标准安装已经完成,让我们讨论一下无人值守安装。Setupsql.exe程序让你记录下一个应答文件,它包括了你在安装程序对话...

相似回答