Удаление Колонок

[HospodySave]

Привествую Программисты!
Нужна Помощь ...
Мне Нужен Код Который Будет Находить Пустые Колонки И Будет их удалять.А Может и ни Колонки незнаю как называются точно графы может Ну посмотря фаилы Которые вложены нетрудно понять.

[EducatedFool]

Sub test()
    Dim ra As Range, ra2 As Range: Application.ScreenUpdating = False
    For Each ra In ActiveSheet.UsedRange.Columns
        If ra.Find("*") Is Nothing Then
            If ra2 Is Nothing Then Set ra2 = ra Else Set ra2 = Union(ra, ra2)
        End If
    Next ra
    ra2.EntireColumn.Delete
End Sub

[HospodySave]

Офигенно))) Даже с кнопочкой Круто Спасибо большое!!!!

[Anatoly_K]

вопрос возник а как тоже сделать для строк? я понимаю что алгоритм тот же. описать как?

[AChrist]

Sub test()
    Dim ra As Range, ra2 As Range: Application.ScreenUpdating = False
    For Each ra In ActiveSheet.UsedRange.Rows
        If ra.Find("*") Is Nothing Then
            If ra2 Is Nothing Then Set ra2 = ra Else Set ra2 = Union(ra, ra2)
        End If
    Next ra
    ra2.EntireRow.Delete
End Sub