Удалить строку, если объединенная ячейка пуста

Question

У меня есть проект, который перестроит лист «ГРУППА» и отформатирует его так же, как лист «YTP».но у меня нет идеи, как решить и сделать это вовремя.Моя проблема заключается в том, как удалить всю строку листа YTP, если на листе YTP есть пустая строка после копирования данных в SHEET GROUP.Я начал код, подобный этому:

КОД

Option Explicit
Sub Copy()

  'Declaration for copying the entire column of J
    Dim lastrow As Long, erow As Long
    Dim sRange As Range
    Dim sCrange As Range
    Dim cell As Range
  'End Declare


    Set sRange = Sheet2.Range("J10:J350")
    Set sCrange = Sheet4.Range("J5:J360")

    For Each cell In sRange
        If Not IsEmpty(cell) Then
           sRange.Copy sCrange

        End If
    Next cell
End Sub

Это изображение группы и YTP лист

Группа

YTP

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

Answer 1

Пожалуйста, попробуйте этот код

Sub Copy()

  'Declaration for copying the entire column of J
    Dim lastrow As Long, erow As Long
    Dim sRange As Range
    Dim sCrange As Range
    Dim sSheet as Worksheet
    Dim sCSheet as Worksheet
    Dim i as Integer
    Dim cell As Range
  'End Declare

    Set sSheet = Worksheets("YTP")
    Set sCSheet = Worksheets("GROUP")
    sSheet.Range("J10:J350").Copy
    sCSheet.Activate
    sCSheet.Range("J5").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    lastrow = 360
    For i = 10 to lastrow 
        If sSheet.Range("J" & i).Value = "" then
           sSheet.Rows(i).delete 
           i = i - 1
           lastrow = lastrow - 1  
        End If
        if i > lastrow then Exit For

    Next i

    sSheet.Activate
End Sub

Надеюсь, эта помощь.

Спасибо