헤더가 비어있는 경우 열의 내용을 지우십시오. vba

Question

작업 표에서 빈 헤더가있는 열을 모두 지우려고합니다.

Set names = Sheets("Sheet2").Range(Sheets("Sheet2").Cells(1, 2), Sheets("Sheet2").Cells(1, 100)) 

For Each Cell In names 
    If IsEmpty(Cell.Value) Then 
    Cell.Columns.ClearContents 
    End If 
Next Cell 

그리고 코드가 실행되는 것을 볼 수는 없습니다. 논리적 인 오류가 있습니까? 어쩌면 여기 :

Cell.Columns.ClearContents 

Answer 1

이 시도 : 일

For Each cell In Names 
    If IsEmpty(cell.Value) Then 
     Dim col As Range 
     Set col = cell.EntireColumn 
     col.ClearContents 
    End If 
Next cell