Sub QQ47436528() Dim i#, arr, s$, n arr = ThisWorkbook.Sheets("东片区客户合同").[a1].CurrentRegion For i = 2 To UBound(arr) If arr(i, 5) = "已处理" Then GoTo line n = DateDiff("d", Date, arr(i, 4)) If n <= 7 And n <= -7 Then GoTo line s = s & "合同编号:" & arr(i, 1) & ",客户名称:" & arr(i, 2) & ",合同已到期,到期日:" & arr(i, 4) & Chr(10) line: Next i If s <> "" Then MsgBox s End Sub