• Olenenok
  • Восстановленный участник
  • На форуме с 19 августа 2004г.
  • Сообщений: 6
  • Спасибо: 0

Тема: Хелп, плиз.

Подскажите пожалуйста, как удалить все чистые листы из книги в экселе??

  • На форуме с 16 мая 2004г.
  • Сообщений: 148
  • Спасибо: 0

Re: Хелп, плиз.

пример для VBA Excel!!!!!
если что-нибудь есть на листе  Selection.Text=Null.
скопируйте код в модуль и попробуйте-решение прийдет

Option Explicit
Sub showValSheets()
Dim SH As Worksheet
For Each SH In ThisWorkbook.Worksheets
SH.Activate
Cells.Select
     Debug.Print Selection.Text, SH.Name
Next
End Sub

результат этой проги типа

              Sheet 2
Null          Sheet 3
              Sheet 1

т.е. здесь Вы можете получить названия листов,которые надо удалить...
///-----------------------------------------------------------------------
www.mechmagic.com

  • На форуме с 16 мая 2004г.
  • Сообщений: 148
  • Спасибо: 0

Re: Хелп, плиз.

скопируйте в модуль - удаляет...

Option Explicit
Dim NameSheetsDel() As String
Sub deleteClearSheets()
Dim SH As Worksheet
Dim i As Long
i = 1
For Each SH In ThisWorkbook.Worksheets
SH.Activate
Cells.Select
If IsNull(Selection.Text) = False Then
ReDim Preserve NameSheetsDel(i)
     NameSheetsDel(i) = SH.Name
     i = i + 1
End If
'     Debug.Print Selection.Text, SH.Name
Next
For i = 1 To UBound(NameSheetsDel)
     Set SH = ThisWorkbook.Worksheets(NameSheetsDel(i))
 'Debug.Print SH.Name
 SH.Delete
Next
End Sub

///----------------------------------------------------------------------
www.mechmagic.com

  • Olenenok
  • Восстановленный участник
  • На форуме с 19 августа 2004г.
  • Сообщений: 6
  • Спасибо: 0

Re: Хелп, плиз.

Большущее спасибо =)