2017-10-18 14 views
0

나는 (그 작동하는) 열의 텍스트를 찾는 루프가 있고 MsgBox에 결과를 게시하고 싶지만 루프 내 또는 밖에서 msgbox를 사용할 때 찾은 모든 결과에 대한 msgbox 또는 하나의 결과가있는 하나의 msgbox 만 있습니다. 내가 뭘하고 싶습니다 그것은 각 결과 후 줄 바꿈과 함께 1 msgbox에 모든 결과를 게시 할 수 있습니다.루프 결과 게시물 Msgbox 새 라인

첫 번째 코드가 중복을 찾는 데 가장 좋거나 최선의 방법이 아니며 배열을 사용해야한다고 생각합니다. 그러나 그것이 작동하도록하는 유일한 방법입니다.

중복을 찾는 첫 번째 코드 (문제와 관련이 없습니다) 다음 MSGBOX와

Dim lastRow As Long 
Dim i As Long 
Dim ws As Worksheet 
Dim txt As String 
Set ws = Sheets("Player List") 
Dim matchFoundIndex As Long 
Dim iCntr As Long 

lastRow = Range("A201").End(xlUp).Row 
For iCntr = 1 To lastRow 
    If Cells(iCntr, 1) <> "" Then 
     matchFoundIndex = WorksheetFunction.Match(Cells(iCntr, 1), Range("A1:A" & 
     lastRow), 0) 
     If iCntr <> matchFoundIndex Then 
      Cells(iCntr, 2) = "Duplicate" 
     End If 
    End If 
Next 

루프 :

For i = 2 To 201 
    If ws.Range("B" & i).Value = "Duplicate" Then 
     txt = "Duplicates found for" + " " + ws.Range("A" & i).Value + " " + "in" + 
      ws.Range("L" & i).Value + vbNewLine 
     End If 
    Next i 
MsgBox txt 

답변

2

당신은 txt의 이전 값을 유지해야합니다.

txt = txt & "Duplicates found for" & " " & ws.Range("A" & i).Value & " " & "in" & ws.Range("L" & i).Value & vbNewLine