이 (VBA) 엑셀 : <img src="https://i.stack.imgur.com/GQn4e.jpg" alt="enter image description here"></p> <p>그래서 나는이 칼럼에서이 두 열의 내용이

Question

일치하는 경우 액션이 그림의 가치가 천 단어가 그렇게 명확하게하는 것입니다, 여기에 상황을 설명하는 사진입니다 일부 내용 (문자열 및 정수)은 C2에서 C16입니다. 다른 열 G 일부 도시 이름 (문자열) G21 ~ G25에서.

다음은 내가하려고하는 것입니다.이 두 열 사이의 일치를 찾기 위해 내 메서드 probaCity()를 원합니다. 일치하는 항목이있는 경우 G 열의 해당 행 (배열 "Probablity of the city")에 일치하는 값이없는 경우 0으로 표시되도록 일부 값 (예 : 10)을 표시하려고합니다.

따라서 여기에 셀 G13 "Quezon"과 일치하는 배열이 10이므로 배열의 다른 모든 셀에 0을 써야합니다.

Sub probaCity() 
Dim count As Integer, myResult As Boolean 

For count = 2 To lastRow 
Range("C" & count).Activate 
myResult = IsNumeric(Application.Match(ActiveCell.Value, Range("G21:G25"), 0)) 

If myResult = True Then 
Range("G" & ActiveCell.Row).Value = Range("G" & ActiveCell.Row).Value + 0 
Else 
Range("G" & ActiveCell.Row).Value = Range("G" & ActiveCell.Row).Value + 10 
End If 

Next count 
End Sub 

이 코드의 문제는 myResult이 값은 항상 (그래서 모든 것이 내 배열에 0으로 설정) 거짓 반환한다는 것입니다 :

여기 내 코드입니다.

도움을 주셔서 감사합니다.

편집 : 제안을 시도한 후 : 공식 ... 같은 문제를 사용하여/VBA를 사용 1
은/(모든 것을 위해 일하지만, "퀘존") 2.

Answer 1

내 방법 probaCity()가이 두 열 간의 일치를 찾고 싶습니다. 일치하는 항목이있는 경우 G 열의 해당 행 (배열 "Probablity of the city")에 일치하는 값이없는 경우 0으로 표시되도록 일부 값 (예 : 10)을 표시하려고합니다.

아니요 VBA를 사용하지 않아도됩니다.

이 예제를 참조하십시오.

이 배열 수식을 사용하십시오.당신은 공식

=IF(COUNT(FIND($C$9:$C$11,A1)),"10","") 

스크린 샷

편집를 입력 한 후 CTRL + SHIFT + 이 Enter 키를 누릅니다해야합니다 : 당신은 VBA 방법을 원하기 때문에, 이 시도.

VBA의 방법 (이것은 원래의 게시물에 따라 샘플 데이터로 작업합니다)

Sub Sample() 
    Dim ws As Worksheet 
    Dim LookUpRange As Range 
    Dim lRow As Long 

    '~~> Change this to the relevant sheet 
    Set ws = ThisWorkbook.Sheets("Sheet1") 

    With ws 
     '~~> This is your city list 
     Set LookUpRange = .Range("G21:G25") 

     lRow = .Range("C" & .Rows.Count).End(xlUp).Row 

     For i = 2 To lRow 
      .Range("G" & i).Value = Application.Evaluate("=IF(COUNT(FIND(" & _ 
            LookUpRange.Address & _ 
            "," & .Range("C" & i).Address & ")),""10"",""0"")") 
     Next i 
    End With 
End Sub 

Answer 2

이 코드의 문제는 myResult가 (그래서 모든 것이 내 배열에 0으로 설정) 값이 항상 false입니다 반환한다는 것입니다.

myResult가 항상 false이거나 표시된 0 값에서 추론했는지 확인 했습니까?

도움이 될지 확실하지 않지만 IsError은 IsNumeric보다 자연 스럽습니다. 원래의 If 문은 올바른 순서로 작성됩니다.

Answer 3

VBA에 대한 필요가 없습니다. G2에

1. 유형 공식 =IF(ISNA(MATCH(C2,$G$21:$G$25,0)),0,10).
2. 복사 G2 to G3:G17.