범위 및 if 문을 통해 vba 루프를 뛰어 넘습니다.

Question

if 문 다음에 지정된 범위를 반복하는 데 도움이 필요합니다. 범위 내이다

| A | B  | C | 
----------------------- 
|TPA | C:\ | 1.doc| 

|TPA | C:\ | 2.doc| 

|LAX | D:\ | 3.doc| 

난 A1 통해 루프 원한다 A3 = "TPA"그럼 B1과 C1의 데이터를 취 C3 및 열 A1이 경우.

Dim test1 As Variant 
Dim cell As Range 
Dim cell1 As Range 
cell = Worksheets("Sheet2").Range ("A1:C3") 
cell1 = Worksheets("Sheet2").Range ("A1:A3") 
For Each cell1 in cell 
If test1 = "TPA" Then 
'MsgBox B1 and C1 But I need to MsgBox B2 and C2 as well 
End If 
Next 

궁극적으로는 I B1 + C1, C2 및 B2 + MSGBOX를 할 필요가있다.

Answer 1

검증되지 않은 ....

Dim test1 As String, c As Range, myRng As Range 
Dim Result as string 

set myRng = Worksheets("Sheet2").Range("A1:A3") 
For Each c in myRng 
    If test1 = "TPA" Then 
     Result = Result & c & c.offset(0,1) & vbCrLf 
    End If 
Next c 
MsgBox Result