вырезать данные на основе найденного значения ячейки в VBA

Question

Я трал, хотя часы поиска, пытаясь найти ответ на мою проблему.

Это казалось легкой задачей, поскольку я хотел бы сократить данные из листа 1 и вставить в лист 2. Я был успешным в этом, но данные должны были оставаться в тех же местах.

Данные импортируются и каждый раз, когда место, где я хотел бы отрезать от изменений.

Мне нужно найти столбец А для слова «Сводка» (единственное слово, которое всегда находится в том же столбце), когда я нашел, я хотел бы сократить строку «Сводка» и все ниже и поперек столбца G до пустых ячеек (эти данные всегда на дне, но номер строки будет различаться)

нуждается данные вырезать не должны быть вставлены в Лист2 колонку ряд А.

Я надеюсь, что есть кто-то, кто имеет что-то подобное которые я мог бы приспособить к моим собственным потребностям.

Благодаря

Answer 1

Это должно дать вам старт:

Sub summary() 
    Dim sh1 As Worksheet, sh2 As Worksheet 
    Dim N As Long, i As Long, r1 As Range, r2 As Range 

    Set sh1 = Sheets("Sheet1") 
    Set sh2 = Sheets("Sheet2") 
    Set r2 = sh2.Range("A1") 

    With sh1 
     N = .Cells(Rows.Count, "A").End(xlUp).Row 
     For i = 1 To N 
      If .Cells(i, "A").Value = "Summary" Then 
       Set r1 = Range(.Cells(i, "A"), .Cells(N, "G")) 
       r1.Copy r2 
      End If 
     Next i 
    End With 
End Sub