嘿，刚入门VBA完全不用慌！我给你写了一套超简单的代码，一步步跟着做就能搞定你的需求——从主表拿数字，去另一个Excel文件找以这个数字开头的行，再把指定内容提回来。

先理清楚前提（你可以根据自己的文件改） #

假设：

• 你的主文件叫「主工作表.xlsx」，数据在Sheet1的A列（比如A2是6.02），要把结果放到相邻的B列
• 数据源文件叫「数据源.xlsx」，和主文件放在同一个文件夹里，数据在Sheet1的A列（存的是类似6.02xxx的数字），你要提取的内容在B列（比如dog就在这里）

一步步操作 #

1. 保存文件：先把两个Excel文件都保存好，放在同一个文件夹里，省得处理复杂路径。
2. 打开VBA编辑器：打开主工作表，按下Alt + F11，这就打开了VBA的编辑窗口。
3. 插入模块：在左侧的「VBAProject(主工作表.xlsx)」上右键，选「插入」→「模块」，会弹出一个空白的代码编辑框。
4. 粘贴代码：把下面的代码复制粘贴进去，我加了中文注释，你能看懂每一步在干嘛：

Sub 提取匹配数据()
    ' 定义需要用到的变量
    Dim 主工作簿 As Workbook, 数据源工作簿 As Workbook
    Dim 主工作表 As Worksheet, 数据源工作表 As Worksheet
    Dim 主表行号 As Integer, 数据源行号 As Integer
    Dim 查找值 As String, 结果值 As String
    
    ' 绑定当前的主工作簿和工作表
    Set 主工作簿 = ThisWorkbook
    Set 主工作表 = 主工作簿.Sheets("Sheet1") ' 👉 改成你的主表标签名，比如"数据提取表"
    
    ' 打开数据源工作簿（同文件夹下直接用这个路径，不同文件夹就写完整路径，比如"C:\文件\数据源.xlsx"）
    Set 数据源工作簿 = Workbooks.Open(ThisWorkbook.Path & "\数据源.xlsx")
    Set 数据源工作表 = 数据源工作簿.Sheets("Sheet1") ' 👉 改成数据源的工作表名称
    
    ' 遍历主表A列的所有数据（从第2行开始，假设第1行是表头）
    For 主表行号 = 2 To 主工作表.Cells(Rows.Count, "A").End(xlUp).Row
        ' 把主表的数字转成字符串，避免浮点数精度问题
        查找值 = CStr(主工作表.Cells(主表行号, "A").Value)
        
        ' 遍历数据源A列，找以查找值开头的行
        For 数据源行号 = 2 To 数据源工作表.Cells(Rows.Count, "A").End(xlUp).Row
            ' 判断数据源当前行的A列内容是否以我们要找的数字开头
            If Left(CStr(数据源工作表.Cells(数据源行号, "A").Value), Len(查找值)) = 查找值 Then
                ' 👉 提取该行的B列内容，要提取其他列就改"B"为"C"/"D"等
                结果值 = 数据源工作表.Cells(数据源行号, "B").Value
                ' 把结果放到主表当前行的B列（相邻单元格），改列的话同理
                主工作表.Cells(主表行号, "B").Value = 结果值
                ' 找到匹配项就退出内层循环，不用继续找了
                Exit For
            End If
        Next 数据源行号
    Next 主表行号
    
    ' 关闭数据源文件，不保存（我们只是读数据，没修改）
    数据源工作簿.Close SaveChanges:=False
    
    ' 提示你完成啦
    MsgBox "数据提取完成！"
End Sub

按需修改参数（很重要！） #

根据你的实际文件，修改代码里标了👉的地方：

• 如果主表的数字不在A列，比如在C列：把代码里所有的"A"改成"C"，结果列改成"D"（相邻列）
• 如果数据源里要提取的内容在第3列（C列）：把结果值 = 数据源工作表.Cells(数据源行号, "B").Value里的"B"改成"C"
• 如果两个文件不在同一个文件夹：把Workbooks.Open(ThisWorkbook.Path & "\数据源.xlsx")改成Workbooks.Open("D:\你的文件夹路径\数据源.xlsx")

运行代码 #

回到主Excel表，按下Alt + F8，在弹出的窗口里选择「提取匹配数据」，点击「运行」，等弹窗提示完成就搞定了！

小提醒 #

• 运行前确保数据源文件是关闭的，不然会报错
• 如果有多个匹配行，代码只会取第一个找到的行的内容，符合你的需求
• 数字转字符串是为了避免Excel浮点数的精度问题（比如6.02可能存成6.0200000001），这样判断开头更准确

内容的提问来源于stack exchange，提问作者alexmed95