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

SCWYZJ

5,6l楼的老师插入代码符合要求，就是删除的代码都是报错，不是没有if,就是end if,不报时，把第E8行也删除了，也不提示。干脆直接退出关闭程序了。不知为啥

3190496160

SCWYZJ 发表于 2024-2-6 10:45
老师您好，我以为不会影响“合计”下面的数据，但是影响了（见图）。可否麻烦老师您再改下。另外，逆向删 ...

那你上传的附件就是在误导别人的嘛，
上传的附件  合计  二字下面是没有数据的嘛

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
    If r = rs Then
        hs = 1
    Else
        hs = r - 10
    End If
    .Cells(rs, 5).Resize(hs, 5).Cut Destination:=.Range("E" & rs + 2).Resize(hs, 5)
    .Range("K7:o8").Copy .Cells(rs, 5)
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub
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
    If rs = 9 Then MsgBox "没有数据可删除！": Exit Sub
    .Cells(rs - 1, 5).Resize(1, 5).Delete Shift:=xlShiftUp
End With
Application.ScreenUpdating = True
End Sub

3190496160

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

2024-2-6 11:31 上传

点击文件名下载附件

cao47112

SCWYZJ 发表于 2024-2-6 11:04
5,6l楼的老师插入代码符合要求，就是删除的代码都是报错，不是没有if,就是end if,不报时，把第E8行也删除了 ...

我是5楼，我用WPS和office（LTSC2021)都测试了，插入和倒序逐行删除都没问题；也有判断，不会删除表头，如果报错的话麻烦贴个报错的代码截图呢

ykcbf1100

SCWYZJ 发表于 2024-2-6 11:04
5,6l楼的老师插入代码符合要求，就是删除的代码都是报错，不是没有if,就是end if,不报时，把第E8行也删除了 ...

删除代码可以在附件中使用的。不存在if语句。
你自己改过代码了吧。

SCWYZJ

ykcbf1100 发表于 2024-2-6 10:24
附件供参考。。。

老师，我又看了下，是我把你的代码弄成了5楼的了，但是你的插入代码可以，删除时把E8标题行也删除了，我是要删除到E8标题行就停止，并提示.如何改呀？

ykcbf1100

SCWYZJ 发表于 2024-2-6 12:35
老师，我又看了下，是我把你的代码弄成了5楼的了，但是你的插入代码可以，删除时把E8标题行也删除了，我 ...

我的代码在附件中无论是插入还是删除都没有任何问题的。

你确信用的是我的代码？

cao47112

ykcbf1100 发表于 2024-2-6 12:43
我的代码在附件中无论是插入还是删除都没有任何问题的。

你确信用的是我的代码？

楼主应该是把不同人的代码堆一块了。
我的里面写了if 但是写到了一行，没有用end if，楼主应该是把执行语句换行，然后会提示他没有end if。
不过老师你的删除的确没有加判断，多次执行会直接删除到第一行

ykcbf1100

cao47112 发表于 2024-2-6 13:18
楼主应该是把不同人的代码堆一块了。
我的里面写了if 但是写到了一行，没有用end if，楼主应该是把执行 ...

删除是肉眼可见的，不可能一直删除啊。他插入多少就删除多少的。他删除是把表格还原到插入前的状态。
你说的也确实有一定道理，严谨一点，应该加上判断。
写代码就是一种思路，不可能适用所有情况的。
算了，不更新了。