插入行复制固定区域数据不分割影响其他行列

SCWYZJ

求助：这样的动态插入/删除行复制数据，且不分割影响其他行列，如何实现？我试了网络上老师的方法，可以，但是都会分割影响其他行列。（详见附件），麻烦老师帮忙看看，谢谢

limonet

只有一个方法：先保存E9单元格的所有属性，再粘贴源值或删除目标区域，最后还原E9单元格到新的E列位置。

3190496160

Sub 插入行()
Application.ScreenUpdating = False
Dim rn As Range
With ActiveSheet
    r = .Cells(Rows.Count, 5).End(xlUp).Row
    Set rn = .Range("e9:e" & r).Find("合计：", , , , , , 1)
    If rn Is Nothing Then MsgBox "找不到合计：字段！": End
    rs = rn.Row
    .Cells(rs, 5).Resize(1, 5).Cut Destination:=.Range("E" & r + 2).Resize(1, 5)
    .Range("K7:o8").Copy .Cells(rs, 5)
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

在指定区域复制插入指定区域数据不分割影响其他行列.rar (36.7 KB, 下载次数: 11)

2024-2-6 09:20 上传

点击文件名下载附件

cjc209

Sub 插入行()
    Application.ScreenUpdating = False
    Dim rn As Range
    With ActiveSheet
        r = .Cells(Rows.Count, 5).End(xlUp).Row
        Set rn = .Range("e9:e" & r).Find("合计：", , , , , , 1)
        If rn Is Nothing Then MsgBox "找不到合计：字段！": End
        Range("K7:o8").Copy
        rn.Resize(1, 5).Insert Shift:=xlShiftDown
    End With
    Application.ScreenUpdating = True
    MsgBox "ok!"
End Sub

cjc209

就是插入指定区域 下方单元格下移

cao47112

请看一下是这样不

ykcbf1100

参与一下。。。

1. Sub 插入行()  '//2024.2.6
   
2.     r = Me.Columns("e:e").Find("合计：", , , , , 1).Row
   
3.     Me.Range(Me.Cells(r, "e"), Me.Cells(r, "i")).Rows("1:2").Insert Shift:=xlDown
   
4.     Me.[k7:o8].Copy Me.Cells(r, "e")
   
5. End Sub
   
6. 
   
7. Sub 删除行()
   
8.     r = Me.Columns("e:e").Find("合计：", , , , , 1).Row
   
9.     Me.Range(Me.Cells(r - 2, "e"), Me.Cells(r - 1, "i")).Delete Shift:=xlUp
   
10. End Sub
    

复制代码

ykcbf1100

附件供参考。。。

SCWYZJ

3190496160 发表于 2024-2-6 09:20

老师您好，我以为不会影响“合计”下面的数据，但是影响了（见图）。可否麻烦老师您再改下。另外，逆向删除功能可否一并写下？