求Excel VBA代码：遍历全工作表检索带边框单元格并关联5张表提取值

核心流程覆盖范围 #

代码完全匹配业务操作全链路需求，无需手动逐表检查：

• 自动遍历当前工作簿内所有工作表，识别目标检索区域内带有完整边框的单元格
• 自动识别同工作簿下的5张同结构参照表，纳入统一检索范围，无需手动指定关联
• 批量定位所有带边框单元格的下方对应取值，统一归集到结果表输出，避免跨表手动复制

可直接部署的VBA代码 #

按下Alt+F11打开VBA编辑器，插入标准模块后粘贴以下代码，按F5即可运行：

Sub 批量提取带边框单元格对应取值()
    Dim ws As Worksheet, cell As Range, targetRng As Range
    Dim resultWs As Worksheet, outputRow As Long
    ' 初始化结果存储表
    On Error Resume Next
    Set resultWs = ThisWorkbook.Worksheets("提取结果")
    On Error GoTo 0
    If resultWs Is Nothing Then
        Set resultWs = ThisWorkbook.Worksheets.Add(Before:=ThisWorkbook.Worksheets(1))
        resultWs.Range("A1:C1") = Array("来源工作表", "带边框单元格坐标", "下方对应取值")
    End If
    outputRow = resultWs.Cells(Rows.Count, 1).End(xlUp).Row + 1
    
    ' 遍历全工作簿工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 跳过结果表，避免重复检索
        If ws.Name <> "提取结果" Then
            ' 默认检索范围为工作表已使用区域，可按需替换为固定范围
            Set targetRng = ws.UsedRange
            For Each cell In targetRng
                ' 判断单元格是否带有四周边框
                If cell.Borders(xlEdgeLeft).LineStyle <> xlNone _
                And cell.Borders(xlEdgeRight).LineStyle <> xlNone _
                And cell.Borders(xlEdgeTop).LineStyle <> xlNone _
                And cell.Borders(xlEdgeBottom).LineStyle <> xlNone Then
                    ' 提取单元格正下方1行的取值
                    resultWs.Cells(outputRow, 1) = ws.Name
                    resultWs.Cells(outputRow, 2) = cell.Address(0, 0)
                    resultWs.Cells(outputRow, 3) = cell.Offset(1, 0).Value
                    outputRow = outputRow + 1
                End If
            Next cell
        End If
    Next ws
    ' 自动适配结果列宽
    resultWs.Columns.AutoFit
    MsgBox "提取完成，共输出" & outputRow - 2 & "条匹配记录"
End Sub

适配不同表结构的调整提示 #

• 如果仅需要匹配带有任意边框的单元格（而非四周边框全满），可将判断条件简化为If cell.Borders.LineStyle <> xlNone Then
• 如果仅需要关联指定的5张参照表，可将全表遍历逻辑替换为指定工作表数组匹配，跳过无关工作表
• 带边框单元格与取值的偏移距离不是正下方1行时，直接修改cell.Offset(第一参数为行偏移, 第二参数为列偏移)即可适配
• 如果有固定的检索范围（无需覆盖全表已使用区域），可将ws.UsedRange替换为实际表格范围（如ws.Range("A2:G60")）

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