大神们，有没有办法插入单元格而不拆开合并的单元格呢？

huangkepan

大神们，有没有办法插入单元格而不拆开合并的单元格呢？
试过很久，都会把单元格拆散了，
有没有办法不拆开呢，或者提供一些思路也行，谢谢
现在程序是：
Sub 插入()
    Sheet1.Range("l2").CurrentRegion.Offset(0).Copy
     Sheets("sheet3").Select
     For i = 1 To 100
      If Cells(i, 1) = "定位" Then
      Sheet3.Cells(i + 3, 1).Resize(4, 6).EntireRow.Insert shift:=xlShiftDown
      End If
     Next
End Sub