Excel 显示弹出消息

您好，我已设法从其他表格中提取出通缉信息。看起来像这样。 但现在我不知道如何显示这些信息。我只想显示A和J列。像这样的

我面临的另一个问题是，文档的数量将发生变化。例如，在本例中，有三个文档要显示，但也可以在stance中显示，其中只有一个或三个文档，甚至没有文档要显示。我提出了一个代码来解决这个问题，如果列表中没有文档，则显示“没有文档到期”

---

有人能帮我做这个吗。我不是要完整的答案，我需要一些关于如何保存通缉信息（A和J列）（针对不同数量的文档）的指导。谢谢

您可以遍历包含数据的每一行，并将相关值附加到输出消息中。循环完成后，显示该消息

大概是这样的：

Sub foo()
    Dim lRow As Long
    Dim lRowMax As Long
    Dim strMsg As String
    Dim strPlural As String

    With Sheet1
        lRowMax = .Cells(Rows.Count, 1).End(xlUp).Row
        If lRowMax = 1 Then
            strMsg = "No document is due"
        Else
            If lRowMax = 2 Then
                strMsg = "This document requires a revision"
            Else
                strMsg = "These documents require a revision"
            End If
            strMsg = strMsg & vbCr
            For lRow = 2 To lRowMax
                strMsg = strMsg & vbCr & .Cells(lRow, 1).Value & vbTab & .Cells(lRow, 10).Value
            Next lRow
        End If
    End With
    MsgBox strMsg, vbOKOnly, "Reminder"
End Sub