vba 删除指定文件夹下所有excel文件里的指定数据

我想在A excel里通过vba来实现删除指定目录下的所有excel文件里sheet1里D列包含test和data的行，还需要删除F列里包含test的数据（完整的是testdata和testing）的行，处理完成之后保存数据再所这边excel里剩下的数据合并到A 的sheet1里。这段代码应该怎么写，我写了一点但测试不过。
有点错别字哈，正确的是处理完成之后保存数据再次这些处理之后的数据合并到A的sheet1里，数据量有点大，所有excel加起来大概有近20万条，

举报该问题

第1个回答 2015-08-07

这个要看到文件才行，光这么说很难想象的本回答被提问者采纳

第2个回答 2015-08-07

excel处理为你解决

相似回答

批量删除同一个文件夹里面所有excel的某一列答：步骤如下：打开一个excel（其他excel关闭）；复制如下代码到模块；选择文件夹，运行。该代码删除的是A列，可选择其他列。更该代码即可。如果删除多列，则可增加代码。运行前可备份文件。Sub Del_Col()Application.DisplayAlerts = FalseDim myFile As StringDim myDoc As StringWith Application.FileDialog...

Excel怎么用vba批量删除一个文件夹里面所有excel表的首列答：把有以下代码的excel放入同一个文件件中，运行就可以了。Sub XXXX()Application.ScreenUpdating = False Application.DisplayAlerts = False Dim MyDir As String MyDir = ThisWorkbook.Path & "\"ChDrive Left(MyDir, 1) 'find all the excel files ChDir MyDir Match = Dir$("*.xls")Do If N...

怎么利用Excel中的VBA删除文件答：1. 如图，我们在D盘根目录下选择一个文件，利用Excel中的VBA编程将该文件删除。2. 首先打开电脑上的Excel表格，依次点击上方的“开发工具”---“Visual Basic”选项。3. 在打开的VBA中，我们可以利用Kill函数将文件删除，将文件的完整路径作为其参数就可以了，如图，在打开的VBA编辑页面，输入代码:Sub ...

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 ...

vba 删除文件夹下所有答：Sub Test() Dim fs As Object Set fs = CreateObject("scripting.filesystemobject") fs.deletefile "D:\Test\temp\*.*" fs.deleteFolder "D:\Test\temp\*.*"End Sub

如何用宏批量提取指定文件夹中所有excel表格中指定sheet的内容?答：FileName = Dir Loop MsgBox "数据提取完成！"End Sub 使用前，请确保按照注释中的说明修改代码中的文件夹路径、目标工作表名称以及源工作表名称和数据范围。运行该宏后，它将遍历指定文件夹中的所有Excel文件，找到每个文件中名为"钢筋出库量"的工作表，并将其内容（不含表头4行）复制到目标工作表的...

大家正在搜

vba读取文件夹下所有文件 vba复制文件到指定文件夹 vba打印文件夹里的各种文件 vba遍历文件夹寻找指定文件 vba打开指定excel文件 vba复制文件夹到指定的路径 vba获取文件夹内的文件名 vba 剪切文件到另一个文件夹 vba打开指定文件夹

Excel 中如何用VBA 删除指定文件夹中的指定文件？

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

Excel VBA 删除指定文件夹中的指定文件

Excel怎么用vba批量删除一个文件夹里面所有excel表...

Excel vba 怎么删除一个文件夹包含★的所有文件?

EXCEL VBA 遍历所有文件夹和子文件夹的文件中指定单元...

Excel vba 删除一个文件夹中的全部文件?

Excel。VBA，批量另存某一特定文件夹里所有.xlsx文...