如何在MsgBox中获取表格内“Valid”单元格的相邻单元格值

以下是具体的实现步骤和代码：

• 打开目标Excel表格，按下 Alt + F11 打开VBA编辑器
• 在左侧工程资源管理器中右键点击当前工作簿，选择「插入」→「模块」
• 在弹出的代码窗口粘贴以下代码：

Sub ShowValidValues()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim resultText As String
    
    ' 指定要操作的工作表，替换成你实际的表名，比如"数据Sheet"
    Set ws = ThisWorkbook.Sheets("Sheet1")
    ' 获取第一列最后一行的行号，避免遍历空行
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    resultText = ""
    
    ' 遍历第一列所有单元格，若表头在第1行，可把起始行改成2
    For i = 1 To lastRow
        ' 判断单元格是否包含"Valid"，vbTextCompare表示不区分大小写
        If InStr(1, ws.Cells(i, 1).Value, "Valid", vbTextCompare) > 0 Then
            ' 把对应第二列的值追加到结果文本，每行一个值
            resultText = resultText & ws.Cells(i, 2).Value & vbCrLf
        End If
    Next i
    
    ' 弹出结果提示框
    If resultText <> "" Then
        MsgBox "符合条件的对应值：" & vbCrLf & vbCrLf & resultText, vbInformation, "查询结果"
    Else
        MsgBox "未找到包含'Valid'的单元格", vbExclamation, "提示"
    End If
End Sub

关键说明 #

• 把代码里的Sheet1替换成你实际的工作表名称

• 若表格有表头，可将循环起始行i = 1改成i = 2，跳过表头行

• 如需严格区分大小写，将vbTextCompare替换为vbBinaryCompare

• 代码粘贴完成后，按下 F5 运行宏，或回到Excel界面通过「开发工具」→「宏」选择ShowValidValues执行

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