макрос очистки листа

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/макрос очистки листа - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » макрос очистки листа (Макросы Sub)

макрос очистки листа

regitr

Дата: Среда, 08.01.2014, 15:27 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

использую такой макрос

[vba]

Код

Sub sh1()
Set aRange = Worksheets("15 äíåé äî îêîí÷àíèÿ").Range("A1").SpecialCells(xlCellTypeLastCell)
lastRow = aRange.Row
lastColumn = aRange.Column
Worksheets("15 äíåé äî îêîí÷àíèÿ").Range(Cells(1, 1), Cells(lastRow, lastColumn)).Delete
ThisWorkbook.Save
End Sub

[/vba]

выдает ошибку на строке Worksheets, в чем причина или сам макрос не рабочий

Ответить

AndreTM

Дата: Среда, 08.01.2014, 15:43 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1762

Репутация: 500 ±

Замечаний: 0% ±

2003 & 2010

[vba]

Код

Sub sh1()
     Set aRange = ThisWorkbook.Sheets("MySheet").Range("A1").SpecialCells(xlCellTypeLastCell)
     lastRow = aRange.Rows.Count
     lastColumn = aRange.Columns.Count
' Удаляем ячейки?
     ThisWorkbook.Sheets("MySheet").Range(Cells(1, 1), Cells(lastRow, lastColumn)).Delete
     ThisWorkbook.Save
End Sub

[/vba]
Но, вообще-то, достаточно сделать (имхо)
[vba]

Код

ThisWorkbook.Sheets("MySheet").Cells.Clear

[/vba]