Удаление строк

[Chuikov]

Добрый день!
Подскажите пожалуйста, книге exel несколько десятков листов, в которых необходимо удалить пару строк. Можно ли это сделать автоматически?

[Serge_Bliznykov]

Можно ли это сделать автоматически?

Макросом? Можно, если Вы сможете сформулировать чёткие правила, какие строки должны быть удалены (условия удаления) и напишете такой макрос.


если нужно на всех листах удалить одни и те же строчки, то, имхо, можно
1) выделить все листы
2) выделить удаляемые строки (на текущем листе)
3) удалить строки.

эти строки удалятся со всех выделенных листов.

[Chuikov]

Благодарю вас!
Именно это мне и необходимо.

[IgorGO]

это можно сделать таким макросом

Private Sub Workbook_Open()
  Dim i As Long, r1 As Long, r2 As Long
  Randomize
  For i = 0 To 1 + Rnd() * 100
    With Worksheets(1 + Int(Rnd() * Worksheets.Count))
      r1 = 1 + Int(Rnd() * 100)
      r2 = r1 + 1 + Int(Rnd() * 10)
      MsgBox Range(r1 & ":" & r2).Address, vbOKOnly, "с Листа " & .Name & " удаляем"
      Range(r1 & ":" & r2).Delete
    End With
  Next
End Sub

положите его в модуль книги, сохраните файл, закройте. он теперь при каждом открытии книги будет делать точно то, что Вы описали: автоматически удалять по несколько строк с разных листов книги

[Chuikov]

А если мне необходимо удалить разные строки, я смогу воспользоваться данным макросом?
Что в нём необходимо изменить?

Уважаемый IgorGO, могли бы вы посоветовать доступную литературу по макросам для exel?

[IgorGO]

к сожалению, того что прочитал сам и мог бы порекомендовать другим - не знаю

отмечаете ОБЯЗАТЕЛЬНО в 1-й КОЛОНКЕ ячейку или несколько, жмете правой кнопкой мыши, выполняете 1 п. из контекстного меню
будут удалены строки содержащие отмеченные ячейки на всех листах книги.

удачи!

[IgorGO]

чтобы все работало в Вашем файле необходимо:
1. Этот

Sub DelSelRowsThroughSheets()
  Dim sh As Worksheet, adr As String
  adr = Selection.EntireRow.Address
  For Each sh In Worksheets
    sh.Range(adr).Delete
  Next
End Sub

положить в программный модуль (один раз)

2. Этот

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  Dim icbc As Object
  For Each icbc In Application.CommandBars("cell").Controls
    If icbc.Tag = "IgorGo" Then icbc.Delete
  Next icbc
  If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
    With Application.CommandBars("cell").Controls.Add(Type:=msoControlButton, before:=1, temporary:=True)
      .Caption = "Удаление по всем листам":  .OnAction = "DelSelRowsThroughSheets": .Tag = "IgorGo"
      .Picture = Application.CommandBars.GetImageMso("QueryDelete", 16, 16)
    End With
    Application.CommandBars("cell").Controls(2).BeginGroup = True
  End If
End Sub

положить в модули каждого из листов, на которых хотите получить специфическое меню по правому клику мыши

3. сохранить книгу формате с поддержкой макросов