Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Очистка данных, Очистка данных
 
#1
25.04.2024 13:30:46
Код
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", но почему то не работает
 
 
 
#2
25.04.2024 13:36:28
mitya528,  так ваши Cells(Rows.Count, 1).End(xlUp).Row + 1 на активном листе отрабатывают , а там на первом шаге очищается все.

Код
With Sheets("два").Range("A5:EN" & Sheets("два").Cells(Rows.Count, 1).End(xlUp).Row + 1)
По вопросам из тем форума, личку не читаю.
 
 
 
#3
25.04.2024 13:44:13
БМВ,
Цитата
написал:
Sheets("два").
Спасибо! Думал все проще  
 
 
 
#4
25.04.2024 14:09:33
на самом деле все еще сложнее ибо правильнее

Код
With Sheets("два").Range("A5:EN" & Sheets("два").Cells(Sheets("два").Rows.Count, 1).End(xlUp).Row + 1)

на случай если активнеа книга в xls а данных более 64К строк

В общем случае
Код
With Sheets("два")
    With .Range("A5:EN" & .Cells(.Rows.Count, 1).End(xlUp).Row + 1)
    
    End With
End With
По вопросам из тем форума, личку не читаю.
 
 
 
#5
25.04.2024 14:12:55
БМВ,
Цитата
написал:
xls
а если xlsm и более 64К строк, условие дописывать не нужно? я пока успел протестировать на более мелких примерах, 1-2 К, не более  
 
 
 
#6
25.04.2024 14:17:44
Вместо чехарды с очисткой попробуйте шаблон рабочей книги (расширение - xlt).
 
 
 
Страницы: 1
Наверх