수식에 관계없이 텍스트가 비어있는 셀을 무시합니다.

Question

여러 워크 시트를 실행하는 코드 스 니펫을 작성하려고합니다. "h"열의 값이 비어 있지 않으면 각 시트를 행별로 마스터 요약 시트. 내 문제는 열 "h"의 모든 셀에 CONCATENATE 수식이 포함되어 있지만 나머지 행이 비어 있으면 CONCATENATE가 빈 값이나 0 값을 반환한다는 것입니다. 어떤 이유로 인해 다음 코드는 이러한 행을 무시하지 못합니다. (참고 :. 현재 워크 시트를 나타내는 객체이며, 이명 령은 행이 복사 될 대상 워크 시트를 나타내는 객체입니다 W)

Last = w.Cells(Rows.Count, "h").End(xlUp).Row 
For a = 2 To Last Step 1 
    If w.Cells(a, "h").Text <> "" Or w.Cells(a, "h").Text <> "0" Then 
    d = dest.Cells(Rows.Count, "h").End(xlUp).Row + 1 
    w.Cells(a, "h").EntireRow.Copy dest.Cells(d, 1) 
    End If 

Answer 1

을 시도하는 경우 w.Cells (A, "H") 값. <> ""