excel中如何用VB 提取多个特定的数字或者字符串

楼上的都不可使用 我来给个能用的。如果好用 希望楼主多给点分你在桌面建立个新的excel 命名为 "汇总" (程序运行完可以改名）并将你的多个excel 放在 D盘根目录下的 “提取”文件夹 ，即创建个文件夹并命名为“提取”,注意 这些名字都是不带双引号的。以上步骤做好 然后打开名为 汇总 的excel 依次点击键盘 alt+F11 alt+i m 把以下代码复制进去 Sub 汇总数据() Application.ScreenUpdating = False p = "d:\提取\" f = Dir(p & "*.xls") Do While f > "" Workbooks.Open p & f r = r + 1 ActiveSheet.Rows(3).Copy Workbooks("汇总.xls").Sheets("sheet1").Activate ActiveSheet.Range("A" & r).Select ActiveSheet.Paste Application.CutCopyMode = xlCut Workbooks(f).Activate ActiveWorkbook.Saved = True ActiveWindow.Close f = Dir Loop Application.ScreenUpdating = True End Sub 我这里使用的 excel 2003 如果是你用的2007 把代码中的 Workbooks("汇总.xls").Sheets("sheet1").Activate 改为 Workbooks("汇总.xlsx").Sheets("sheet1").Activate f = Dir(p & "*.xls") 改为 f = Dir(p & "*.xlsx") 这里是复制的第3行如过要复制别的行把代码中的 ActiveSheet.Rows(3).Copy 3 改为你想要的行然后 敲击 F5 点运行 就ok了 如果还有什么问题可以 百度hi 我 上班时间我都在

我来答

查看全部4个回答



纯纯黄黄

LV.5 推荐于 2017-10-07

楼上的都不可使用
我来给个能用的。如果好用 希望楼主多给点分
你在桌面建立个新的excel 命名为 "汇总" (程序运行完可以改名）
并将你的多个excel 放在 D盘根目录下的 “提取”文件夹 ，即创建个文件夹
并命名为“提取”,注意 这些名字都是不带双引号的。
以上步骤做好 然后打开名为 汇总 的excel
依次点击键盘 alt+F11 alt+i m
把以下代码复制进去
Sub 汇总数据()
Application.ScreenUpdating = False
p = "d:\提取\"
f = Dir(p & "*.xls")
Do While f <> ""
Workbooks.Open p & f
r = r + 1
ActiveSheet.Rows(3).Copy
Workbooks("汇总.xls").Sheets("sheet1").Activate
ActiveSheet.Range("A" & r).Select
ActiveSheet.Paste
Application.CutCopyMode = xlCut
Workbooks(f).Activate
ActiveWorkbook.Saved = True
ActiveWindow.Close
f = Dir
Loop
Application.ScreenUpdating = True
End Sub