Код |
---|
Sub aa() Sheets("один").Select With Sheets("один").Range("A5:CX" & Cells(Rows.Count, 1).End(xlUp).Row + 1) .ClearContents .ClearFormats End With Sheets("два").Select With Sheets("два").Range("A5:EN" & Cells(Rows.Count, 1).End(xlUp).Row + 1) .ClearContents .ClearFormats End With End Sub |
Код |
---|
Sub aa() With Sheets("один").Range("A5:CX" & Cells(Rows.Count, 1).End(xlUp).Row + 1) .ClearContents .ClearFormats End With With Sheets("два").Range("A5:EN" & Cells(Rows.Count, 1).End(xlUp).Row + 1) .ClearContents .ClearFormats End With End Sub |
Почему?
хотел обойтись без "Sheets("два").Select", но почему то не работает