excel遍历

（1）首先，创建一个excel，名称楼主自己写，怎样都行，然后将其打开。

（2）打开后按住Alt再按F11，这样就会打开代码编辑器

（3）点菜单栏上的“插入”，选择“模块”，这样在左下角就会出现一个“模块1”

（4）双击“模块1”，右边就会出现“模块1”的编辑界面，将以下代码复制，并粘贴到这个界面中，按F5运行。

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

Sub  遍历文件夹() 'Columns(1).Delete   On  Error  Resume  Next Dim  f  As  String Dim  file()  As  String Dim  i, k, x x = 1 i = 1: k = 1 ReDim  file(1  To  i) file(1) = InputBox( "请输入要查找的文件夹：" ) & "\" Do  Until  i > k      f = Dir(file(i), vbDirectory)          Do  Until  f =  ""              If  InStr(f,  "." ) = 0  Then                  k = k + 1                  ReDim  Preserve  file(1  To  k)                  file(k) = file(i) & f & "\"              End  If              f = Dir          Loop      i = i + 1 Loop For  i = 1  To  k      f = Dir(file(i) &  "*.*" )      Do  Until  f =  ""         'Range("a" & x) = f         Range( "a"  & x).Hyperlinks.Add Anchor:=Range( "a"  & x), Address:= _          file(i) & f, TextToDisplay:=f          x = x + 1          f = Dir      Loop Next End  Sub

（5）在出现的对话框中，将你要查找的文件的地址复制到对话框中，按确定，就完成了。