Sub 删除第一列和第二列列合并单元格所在行()
Dim n
n = ActiveSheet.UsedRange.Item(ActiveSheet.UsedRange.Count).Row
For r = 1 To n
For c = 1 To 2
If Range(Cells(n - r + 1, c), Cells(n - r + 1, c)).MergeCells Then
Rows(n - r + 1).Delete
End If
Next
Next
End Sub
已上传附件
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024