如何在excel中提取信息并列表

网上有关“如何在excel中提取信息并列表”话题很是火热，小编也是针对如何在excel中提取信息并列表寻找了一些与之相关的一些信息进行分析，如果能碰巧解决你现在面临的问题，希望能够帮助到您。

得用宏。确保这个文件夹只有这些Excel文件，且若打开某一文件，数据就能看见——即不用点其他sheet 。

建一新Excel，也存到该文件夹。仅打开该新Excel，按Alt+F11进入宏界面，点菜单的插入，模块，粘贴如下代码：

Sub Find()

Application.ScreenUpdating = False

Dim MyDir As String

Range("B2:B999").NumberFormatLocal = "@"

MyDir = ThisWorkbook.Path & "\"

ChDrive Left(MyDir, 1) 'find all the excel files

ChDir MyDir

Match = Dir$("")

If Not LCase(Match) = LCase(ThisWorkbook.Name) Then

Workbooks.Open Match, 0 'open

ThisWorkbook.ActiveSheet.Range("A9999").End(xlUp).Offset(1, 1) = ActiveWorkbook.ActiveSheet.Range("D3")

ThisWorkbook.ActiveSheet.Range("A9999").End(xlUp).Offset(1, 0) = ActiveWorkbook.ActiveSheet.Range("A2")

ActiveWindow.Close 0

End If

Match = Dir$

Loop Until Len(Match) = 0

Application.ScreenUpdating = True

End Sub

在此界面直接按F5运行此宏，完成。

关于“如何在excel中提取信息并列表”这个话题的介绍，今天小编就给大家分享完了，如果对你有所帮助请保持对本站的关注！