Question

我有一个项目将重新安排工作表＆＃34; GROUP＆＃34;并将其格式化为＆＃34; YTP＆＃34;片。但我不知道如何及时解决和制造它。我的问题是如果在复制SHEET GROUP中的数据后YTP工作表有一个空行，如何删除整行YTP表。我已经开始这样的代码：

CODE

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表的图像

Group

YTP

如果您想查看excel文件，请发表评论，我会将其附在此处。请各位，帮助我。

Answer 1

请尝试此代码

output

希望得到这个帮助。

由于

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

1 个答案: