다른 열에 따라 특정 열의 값을 채우는 매크로

Question

도움을 요청하고 싶습니다. 나는 그런 행동을 할 매크로를 찾고있다.

나는 Comment 열과 Comment 열에 따라 채워 져야하는 5 개의 다른 열을 가지고있다. Comment 열에 "duplicate"라는 메시지가 있습니다. 중복되지 않았 으면 1이라는 열에 표시하고 싶습니다. 0이어야합니다.이 경우에도 두 값이 1로 채워지는 것을 나타낼 수 있습니다. 즉, Left-Replacement Found 왼쪽 - 교체 없음. 그 두 값에 대해서는 다른 열의 경우 왼쪽 열에 1을 채워야합니다.

내가 Vlookup에 대해 가지고있는 매크로를 수정했고 기능면에서는 1 개만 얻을 수있었습니다 (이 예제에서는). "왼쪽 - 교체를 찾았습니다.) 1 개 이상의 논리적 테스트가 필요합니다.이 경우, 왼쪽 대체 교체가 있고 왼쪽 교체가 1로 표시되고 나머지는 0으로 표시하고 나머지는 0으로 지정하고 싶습니다.

Sub Testing_if_function() 
Dim FormulaCol As Long 
Dim LookupCol As Long 
Dim TotalRows As Long 
Dim TotalCols As Long 
Dim i As Long 

Sheets("Data").Select 
TotalRows = ActiveSheet.UsedRange.Rows.Count 
TotalCols = ActiveSheet.UsedRange.Columns.Count 

For i = 1 To TotalCols 
    If Cells(1, i).Value = "Test" Then FormulaCol = i 
    If Cells(1, i).Value = "Comment" Then LookupCol = i 
Next 

ActiveCell.FormulaR1C1 = "=IF(RC[-2]=""Left - Replacement Found"",1,0)" 
Cells(2, FormulaCol).AutoFill Destination:=Range(Cells(2, FormulaCol), Cells(TotalRows, FormulaCol)) 
With Range(Cells(2, FormulaCol), Cells(TotalRows, FormulaCol)) 
    .Value = .Value 
End With 

End Sub 

Answer 1

이 문제의 해결책을 찾았습니다. 비슷한 매크로가 필요하면 다음 코드를 입력하십시오.

Sub Testing_if_function() 
Dim FormulaCol As Long 
Dim LookupCol As Long 
Dim TotalRows As Long 
Dim TotalCols As Long 
Dim i As Long 

Sheets("Data").Select 
TotalRows = ActiveSheet.UsedRange.Rows.Count 
TotalCols = ActiveSheet.UsedRange.Columns.Count 

For i = 1 To TotalCols 
    If Cells(1, i).Value = "Test" Then FormulaCol = i 
    If Cells(1, i).Value = "Comment" Then LookupCol = i 
Next 

ActiveCell.FormulaR1C1 = "=IF(RC[-2]=""Left - Replacement Found"", 1, IF(RC[-2]=""Left - No Replacement"", 1, 0))" 
Cells(2, FormulaCol).AutoFill Destination:=Range(Cells(2, FormulaCol), Cells(TotalRows, FormulaCol)) 
With Range(Cells(2, FormulaCol), Cells(TotalRows, FormulaCol)) 
    .Value = .Value 
End With 

End Sub