[vba]Код
Sub Hide_215()
Dim cell As Range
Application.ScreenUpdating = False 'отключаем обновление экрана для ускорения
Columns.Hidden = False 'отменяем все скрытия строк и столбцов
Rows.Hidden = False
For Each cell In ActiveSheet.UsedRange.Rows(1).Cells 'проходим по всем ячейкам первой строки
If cell.Value = "2" Then cell.EntireColumn.Hidden = True 'если в ячейке 2 - скрываем столбец
Next
For Each cell In ActiveSheet.UsedRange.Columns(55).Cells 'проходим по всем ячейкам 55-го столбца
If cell.Value = "1" Then cell.EntireRow.Hidden = True 'если в ячейке "1" - скрываем строку
Next
Application.ScreenUpdating = True
End Sub
[/vba]