Jestem nowy w programowaniu VBA. chciałbym

przeszukaj arkusz roboczy i znajdź „N” lub „TR” w wierszu 6Następnie dla każdej komórki w kolumnie „N” lub „TR”jeśli wszystkie komórki są puste, usuń / ukryj kolumnęjeśli komórki nie są puste, zaznacz puste komórki

To brzmi łatwo, ale myślę, że wymaga dwóch pętli.

 Sub checkandhide()    
    Set r = Range("6:6")  
    Rows("7:7").Select  
    For Each Cell In r  
        Selection.Find(What:="N", After:=ActiveCell, LookIn:=xlFormulas, LookAt _  
            :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _  
            False, MatchByte:=False, SearchFormat:=False).Activate  
        'search for N  
        Application.Run "hidecolumn"  
    Next  
 End Sub  


Sub hidecolumn()
    Dim target As Range
    Dim dwn As Range

    Set dwn = Range(ActiveCell.End(xlDown).Address)
    ActiveCell.Select

    ActiveCell.Offset(6, 0).Select

    For Each Cell In dwn
        If Cell.Text = "" Then Columns.Delete
    Next      
End Sub    

dołączony przykładowy arkusz kalkulacyjny