이전에 작동했던 Iferror/Index/Match 수식이 이제 대상 시트에있는 값에도 불구하고 모든 False 결과를 반환합니다.

Question

나는 한 스프레드 시트 (데이터)에서 다른 스프레드 시트 (Sheet1)의 값을 검색하기 위해 매크로를 작성한 후, Sheet1에서 결과가 발견 된 셀의 2 열에서 왼쪽 값. 그것은 훌륭하게 작동했지만 무언가가 변경된 것 같습니다 (???). 두 스프레드 시트에 값이 존재 함에도 불구하고 모든 "거짓"결과를 반환합니다.

그것은 내가 어떤 테스트를 위해 문제의 스프레드 시트를 제공 할 수

(항상 Sheet1의라는) 두 번째 시트의 첫 번째 워크 시트에 열 C의 값을 검색합니다. 내 주석이 코드는 다음과 같습니다, 어떤 도움을 크게 감상 할 수있다 : 코드에

Sub GroupFileNameFix() 
' 
' GroupFileNameFix Macro 

'define variable types 
Dim strFormula As Variant 
Dim LastRow As Long 

'on Data sheet 
With ActiveSheet 
' determines last row on spreadsheet and saves value to variable "LastRow" 
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row 
    'sets variable "strFormula" as what we want to autofill, grabbing group filenames 
strFormula = "=IFERROR(INDEX(Sheet1!RC[-3],(MATCH(RC[1],Sheet1!C[-1],0))),""False"")" 
'inserts column "GroupFileName" as column D 
Columns("D:D").Select 
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove 
Range("D1").Select 
ActiveCell.FormulaR1C1 = "GroupFileName" 
Columns("D:D").EntireColumn.AutoFit 
' Fills cell D2 and then autofills column D to end of spreadsheet 
Range("D2:D2").Select 
.Range("D2:D2").Formula = strFormula 
.Range("D2:D" & LastRow).FillDown 
End With 
'Commit formula to text and replace "png" with "jpg" 
Columns("D:D").Select 
Selection.Copy 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
Selection.Replace What:="png", Replacement:="jpg", LookAt:=xlPart, _ 
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
    ReplaceFormat:=False 

End Sub 

Answer 1

을 바탕으로, 당신은 항상 같은 열에 공식을두고 있기 때문에,이 날 위해 일했습니다.

With ActiveSheet 
strFormula = "=IFERROR(INDEX(Sheet1!A2,(MATCH(E2,Sheet1!C:C,0))),""False"")" 
'inserts column "GroupFileName" as column D 
Columns("D:D").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove 
Range("D1").Value = "GroupFileName" 
Columns("D:D").EntireColumn.AutoFit 
' Fills cell D2 and then autofills column D to end of spreadsheet 
.Range("D2").Formula = strFormula 
.Range("D2:D" & LastRow).FillDown 
End With 

Answer 2

와우, 이것으로 끝내기가 훨씬 쉬워졌습니다. 간단한 붙여 넣기 공식 & 자동 채우기 워크 플로가 아주 쉽습니다. 매크로를 사용하여이 작업을 자동화하려고 시도했습니다. 아래 공식은 완벽하게 작동합니다.

= IFERROR (INDEX (Sheet1의 달러 (A $) 2 :! 달러 (A $) 2000, (MATCH ($ C2를, Sheet1의 C $ 2 :! C $ 2000,0))), "거짓")