Изменить текст, если совпадение?

Question

Сейчас у меня есть это копирование данных из листа 1 Колонка В.

Я хочу его так, чтобы он не копирует его он просто ставит завершенным, если он говорит Завершена или не завершено, если он говорит, что не завершено. Сейчас он копирует дополнительную информацию, которую у меня есть рядом с Completed.

With Sheets("Worksheet 2") 
    .Range("B1").Formula = "=IF(ISERROR(VLOOKUP(A1,'WorkSheet 1'!A:B,2,0))," & """""" & ",VLOOKUP(A1,'Worksheet 1'!A:B,2,0))" 
    .Range("B1").Copy Range("B2:B" & Range("A" & Rows.Count).End(xlUp).Row) 
End With 

Answer 1

Поэтому я думаю, что это сработает для вас, но дайте мне знать, если он не сделает то, что вы просите. На боковой ноте iferror(...,"error value") является хорошей заменой для if(iserror(...,"error value",...). Это избавит вас от необходимости дважды вводить тестовое условие.

With Sheets("Worksheet 2") 
    .Range("B1").Formula = "=IFERROR(IF(IFERROR(FIND(""Not Completed"",VLOOKUP(A1,'WorkSheet 1'!A:B,2,0)),0),""Not Completed"",IF(IFERROR(FIND(""Completed"",VLOOKUP(A1,'WorkSheet 1'!A:B,2,0)),""""),""Completed"","""")),"""")" 
    .Range("B1").Copy Range("B2:B" & Range("A" & Rows.Count).End(xlUp).Row) 
End With