조건을 만족하는 범위의 첫 번째 셀만 선택하기

Question

내 코드는 행렬 1의 셀에서 행렬 2의 내 기준을 충족하는 모든 셀에 텍스트를 복사합니다.하지만 첫 번째 셀에만 복사하려고합니다 매트릭스 2에서 나의 비평에 부합하고 멈춘다.

Private Sub CommandButton1_Click() 

Dim i As Integer 
Dim j As Integer 

For j = 2 To 2 
    For i = 21 To 21 

     If Cells(i, j).Value > 0 Then 
      Cells(i, j).Value = Cells(i, j).Value - 1 
      Cells(i, j).Offset(0, -1).Select 
     End If 

     'as it says - for EACH - so it copies in aLL the cells' 
     'I can't Change the range though, cause there will come a Loop eventually' 
     For Each cell In Range("a1:aap15") 

      If cell.Interior.ColorIndex = 6 Then 
       If cell.Value = "" Then 
        cell.Value = ActiveCell.Value 
       End If 
      End If 
     Next 
    Next 
Next 

End Sub 

Answer 1

Exit For 명령을 사용하여 for 루프를 종료 할 수 있습니다. 여기에 추가하려는 것 같습니다 :

If cell.Interior.ColorIndex = 6 Then 
    If cell.Value = "" Then 
     cell.Value = ActiveCell.Value 
     Exit For 
    End If 
End If 

참고 : 테스트되지 않았습니다. 어떤 문제가 있으면 알려주세요