조건이 충족 될 경우 열 내용 지우기

열 B0의 행이 비어 있는지 확인한 다음 Bc 열의 동일한 행 내용을 지우는 절차를 작성하려고합니다. 예를 들어 열 BQ에서 테스트 3 후이 예제 모두에서 조건이 충족 될 경우 열 내용 지우기

enter image description here

는 비어 있어야합니다. 나는 다음과 같이 썼다 :

With calcCalculations 

For Each rng In Columns("BO").SpecialCells(xlBlanks) 
    rng.Offset(, 3).Value = "" 

Next 

End With

그러나 나를 위해 일하지 않는다. 프로 시저가 버그없이 실행되지만 아무 것도 발생하지 않습니다. 또한 열 BQ의 데이터가 계산됩니다. 즉, 0은 BQ 열의 수식 결과입니다.

감사

2014-07-23 Jose M.

왜처럼는 IF() 절에 BQ 열의 현재 공식을 포장하지 않습니다 열 BO에 인접 셀이 비어있는 경우 : 의미

=IF(BO1<>"";{current_formula};"")

또한 빈 문자열을 표시합니다 (그렇지 않으면 수식 결과 표시). 내가해야,

=IF({current_formula}<>0;{current_formula};"")

2014-07-23 19:49:48 johnwait

감사 : 열 BQ의 값이 0 때 실제로 표시 아무것도하지 않으

(오히려 열 BO의 텍스트에 따라보다), 당신은 같은 것을 사용해야 그 점을 생각해 보니, 실제로 저에게 두 단계의 도움이되었습니다. –

답변