批量数据转移工作表

tinkou

ykcbf1100 发表于 2023-1-13 13:09
请上传附件，没有附件即便给你代码，你还要回来继续问的。

'   结转完成后原工作表中3-11行数据进行删除处理
    With Sheets("1")  '指定删除工作表1的数据
        .Rows("3:11").Delete
    End With
我在代码中修改成这个，只不过是删除的固定行，当时 "待安排","待审批" 2个条件的删除行数据的代码如何写不会写

ykcbf1100

tinkou 发表于 2023-1-13 17:04
请大神直接在我的实际表格中操作吧，我捣鼓半天也没弄对

另外就是结转后最好连行都删除了，不仅仅是清 ...

可以了。

表中的筛选状态要取消，不然无法删除行。

tinkou

ykcbf1100 发表于 2023-1-16 09:39
可以了。

表中的筛选状态要取消，不然无法删除行。

大神确实牛，我得慢慢学把你写的代码搞明白