Excel 如果合并单元格为空，则删除行

我有一个项目，将重新安排表“组”和格式它就像“YTP”表。但我不知道如何及时解决问题。我的问题是，如果YTP工作表在复制工作表组中的数据后有一个空行，如何删除YTP工作表的整行。我已经开始编写这样的代码：

代码

这是组和YTP表的图像

如果您想查看excel文件，请发表意见，我会将其附在这里。伙计们，帮帮我。

请试试这个代码

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

希望这有帮助

---

谢谢

表2为集团主席先生，表4为ytp。谢谢你的回答，先生，但它不起作用。它起作用了，先生，但这不是我预期的输出，先生。但是你给了我一个想法：）非常感谢先生：）我希望你能帮我完成我的项目：）不是很清楚，但我想你是说在你复制后你需要删除空行，就是这样，请看；您还可以在Google上搜索

删除空行excel vba

有许多示例。

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