用VBA批量删除很多个Excel表格的同一行

Question

用VBA批量删除很多个Excel表格的同一行，多个Excel表格在一个文件夹里，都要删除B列

Answer 1

VBA不难，试着去写，很多问题都会迎刃而解，稍微有的函数、过程调用不知道参数，屏幕上都会提示的。

本贴问题就两个知识点，一是扫描文件夹，使用DIR即可，框架代码如下：

dim pt$, fn$ '路径和文件名
pt = "c:\test\"
fn = dir(pt, "*.xls")
while fn<>""
    '进行处理文件
    '打开文件、修改内容、保存关闭
    '查找下一个文件
    fn = dir
end while

二是删除表内一行，调用RANGE.DELETE即可，示例代码如下：

dim wb as workbook, st as worksheet
set wb = workbooks.open(pt & fn)
for each st in wb.sheets
    st.range("5:5").delete '删除所有表中的第5行
next st
wb.save
wb.close