在日常工作中，Excel 用得多了，免不了要跟一堆文件打交道。尤其是手头项目多了，文件夹里几十个文件翻来翻去，效率自然就低了。

这时候，给 Excel 配一个动态目录，能自动把文件夹里的文件列出来，点一下就能更新，确实方便不少。今天就来聊聊具体的操作方法，保证你跟着做一遍就能上手。

第一步：整理文件，统一存放

先把相关的文件整理好，统一放到一个指定的文件夹里。这是基础，后面目录就是从这个文件夹里抓文件名的。

第二步：设置显示区域

打开 Excel，在工作表里找个合适的位置，比如 A 列，这就是动态目录的显示区域。

第三步：用数据验证做文件名校验

接下来，要输入文件名称。如果文件数量多，手工敲太容易出错，可以用数据验证来帮忙。

• 选中要设置数据验证的单元格区域（比如 A2:A100）。
• 点击“数据”选项卡，选择“数据验证”。
• 在“设置”选项卡里，把“允许”改成“自定义”。
• 在“公式”框里输入：=ISERROR(FIND(文件名,A1))

注意：这里的“文件名”要替换成你实际想限制的文件名，A1 就是当前单元格。这样一来，输入的文件名必须是文件夹里真实存在的，否则会弹出错误提示——相当于帮你做了个简单的校验。

第四步：用 VBA 实现动态更新

光有数据验证还不够，要实现“动态更新”目录，得请出 VBA 这个老工具。

1. 按下 Alt+F11 打开 VBA 编辑器。
2. 在左侧的项目窗格，右键点击你的工作簿，选择“插入”→“模块”。
3. 在模块代码窗口里贴入以下代码：

Sub UpdateDirectory()
    Dim myPath As String
    Dim myFile As String
    Dim lastRow As Long
    myPath = "C:你的文件夹路径"   ' 这里替换为实际的文件夹路径
    myFile = Dir(myPath & "*.*")
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    Do While myFile <> ""
        Cells(lastRow + 1, 1).Value = myFile
        lastRow = lastRow + 1
        myFile = Dir
    Loop
End Sub

把代码里的路径改成你自己的文件夹路径，注意末尾要加反斜杠。这个宏的作用就是扫描指定文件夹，把里面的所有文件名逐一写到 A 列（从当前最后一行的下一行开始）。

第五步：运行宏，生成目录

回到 Excel 工作表，如果你没看到“开发工具”选项卡，得先去“文件”→“选项”→“自定义功能区”，把右侧的“开发工具”勾上。

然后点击“开发工具”选项卡下的“宏”，找到刚才的 UpdateDirectory 宏，点“运行”。一瞬间，文件夹里的所有文件名字就都列出来了。

后续维护：自动同步

以后只要你往文件夹里新增、删除文件，再运行一次这个宏，目录就自动同步更新，省去了手动维护的麻烦。一劳永逸，效率提升可不是一星半点。

《夸克》非常好用的免费AI浏览器

下载APP查看